mirror of
https://github.com/munin-monitoring/contrib.git
synced 2018-11-08 00:59:34 +01:00
Merge pull request #213 from jobauer/master
change for snmp__netscaler_connections
This commit is contained in:
commit
e284719458
@ -121,9 +121,9 @@ if ($ARGV[0] and $ARGV[0] eq "autoconf") {
|
||||
}
|
||||
|
||||
if (! defined $o_host ) {
|
||||
$0 =~ /netscaler_conn_(.+)*$/;
|
||||
$0 =~ /.*onnections?_(.+)*$/;
|
||||
$o_host = $1;
|
||||
die "No host provided" unless defined $o_host;
|
||||
die "No host provided or unabled to extract hostname from $0" unless defined $o_host;
|
||||
}
|
||||
|
||||
if ($ARGV[0] and $ARGV[0] eq "config") {
|
||||
@ -163,15 +163,14 @@ if (!defined($session)) {
|
||||
|
||||
my $counter1;
|
||||
# TCP
|
||||
$counter1 = &get_client_conn($session);
|
||||
$counter1 = &get_oid_values($session,$oid_client_conn);
|
||||
$return_str .= "client.value $counter1\n";
|
||||
$counter1 = &get_server_conn($session);
|
||||
$counter1 = &get_oid_values($session,$oid_server_conn);
|
||||
$return_str .= "server.value $counter1\n";
|
||||
# SSL
|
||||
$counter1 = &get_ssl_sessions($session);
|
||||
$counter1 = &get_oid_values($session,$oid_ssl_session);
|
||||
$return_str .= "ssl.value $counter1\n";
|
||||
|
||||
|
||||
&close_session($session);
|
||||
|
||||
print "$return_str";
|
||||
@ -218,54 +217,20 @@ sub get_buildversion {
|
||||
}
|
||||
}
|
||||
|
||||
sub get_ssl_sessions {
|
||||
my ($session) = @_;
|
||||
my $ssl_session;
|
||||
sub get_oid_values {
|
||||
my ($session,$oid_string) = @_;
|
||||
my $return_value;
|
||||
|
||||
my $result = $session->get_request(
|
||||
-varbindlist => [$oid_ssl_session]
|
||||
-varbindlist => [$oid_string]
|
||||
);
|
||||
|
||||
if (!defined($result)) {
|
||||
return "na";
|
||||
}
|
||||
else {
|
||||
$ssl_session = $result->{$oid_ssl_session};
|
||||
return $ssl_session;
|
||||
}
|
||||
}
|
||||
|
||||
sub get_client_conn {
|
||||
my ($session) = @_;
|
||||
my $client_conn;
|
||||
|
||||
my $result = $session->get_request(
|
||||
-varbindlist => [$oid_client_conn]
|
||||
);
|
||||
|
||||
if (!defined($result)) {
|
||||
return "na";
|
||||
}
|
||||
else {
|
||||
$client_conn = $result->{$oid_client_conn};
|
||||
return $client_conn;
|
||||
}
|
||||
}
|
||||
|
||||
sub get_server_conn {
|
||||
my ($session) = @_;
|
||||
my $server_conn;
|
||||
|
||||
my $result = $session->get_request(
|
||||
-varbindlist => [$oid_server_conn]
|
||||
);
|
||||
|
||||
if (!defined($result)) {
|
||||
return "na";
|
||||
}
|
||||
else {
|
||||
$server_conn = $result->{$oid_server_conn};
|
||||
return $server_conn;
|
||||
$return_value = $result->{$oid_string};
|
||||
return $return_value;
|
||||
}
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user