Compatibility SNMPv3
This commit is contained in:
Quentin Garnier
parent
4688c97b12
commit
38a2b5225d
|
|
@ -12,8 +12,8 @@ my $Version='1.12';
|
||||||
#
|
#
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use Net::SNMP;
|
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
|
require "@NAGIOS_PLUGINS@/Centreon/SNMP/Utils.pm";
|
||||||
|
|
||||||
# Nagios specific
|
# Nagios specific
|
||||||
|
|
||||||
|
|
@ -21,6 +21,15 @@ my $TIMEOUT = 15;
|
||||||
my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
|
my %ERRORS=('OK'=>0,'WARNING'=>1,'CRITICAL'=>2,'UNKNOWN'=>3,'DEPENDENT'=>4);
|
||||||
|
|
||||||
# SNMP Datas
|
# SNMP Datas
|
||||||
|
my %OPTION = (
|
||||||
|
"host" => undef,
|
||||||
|
"snmp-community" => "public", "snmp-version" => 1, "snmp-port" => 161,
|
||||||
|
"snmp-auth-key" => undef, "snmp-auth-user" => undef, "snmp-auth-password" => undef, "snmp-auth-protocol" => "MD5",
|
||||||
|
"snmp-priv-key" => undef, "snmp-priv-password" => undef, "snmp-priv-protocol" => "DES",
|
||||||
|
"maxrepetitions" => undef,
|
||||||
|
"64-bits" => undef,
|
||||||
|
);
|
||||||
|
my $session_params;
|
||||||
|
|
||||||
# Generic with host-ressource-mib
|
# Generic with host-ressource-mib
|
||||||
my $base_proc = "1.3.6.1.2.1.25.3.3.1"; # oid for all proc info
|
my $base_proc = "1.3.6.1.2.1.25.3.3.1"; # oid for all proc info
|
||||||
|
|
@ -91,10 +100,6 @@ my %cpu_oid = ("netsc",$ns_cpu_idle,"as400",$as400_cpu,"bc",$bluecoat_cpu,"nokia
|
||||||
|
|
||||||
# Globals
|
# Globals
|
||||||
|
|
||||||
|
|
||||||
my $o_host = undef; # hostname
|
|
||||||
my $o_community = undef; # community
|
|
||||||
my $o_port = 161; # port
|
|
||||||
my $o_help= undef; # wan't some help ?
|
my $o_help= undef; # wan't some help ?
|
||||||
my $o_verb= undef; # verbose mode
|
my $o_verb= undef; # verbose mode
|
||||||
my $o_version= undef; # print version
|
my $o_version= undef; # print version
|
||||||
|
|
@ -107,14 +112,6 @@ my $o_crit= undef; # critical level
|
||||||
my @o_critL= undef; # critical level for Linux Load or Cisco CPU
|
my @o_critL= undef; # critical level for Linux Load or Cisco CPU
|
||||||
my $o_timeout= undef; # Timeout (Default 5)
|
my $o_timeout= undef; # Timeout (Default 5)
|
||||||
my $o_perf= undef; # Output performance data
|
my $o_perf= undef; # Output performance data
|
||||||
my $o_version2= undef; # use snmp v2c
|
|
||||||
# SNMPv3 specific
|
|
||||||
my $o_login= undef; # Login for snmpv3
|
|
||||||
my $o_passwd= undef; # Pass for snmpv3
|
|
||||||
my $v3protocols=undef; # V3 protocol list.
|
|
||||||
my $o_authproto='md5'; # Auth protocol
|
|
||||||
my $o_privproto='des'; # Priv protocol
|
|
||||||
my $o_privpass= undef; # priv password
|
|
||||||
|
|
||||||
# functions
|
# functions
|
||||||
|
|
||||||
|
|
@ -143,16 +140,9 @@ sub help {
|
||||||
name or IP address of host to check
|
name or IP address of host to check
|
||||||
-C, --community=COMMUNITY NAME
|
-C, --community=COMMUNITY NAME
|
||||||
community name for the host's SNMP agent (implies v1 protocol)
|
community name for the host's SNMP agent (implies v1 protocol)
|
||||||
-2, --v2c
|
|
||||||
Use snmp v2c
|
|
||||||
-l, --login=LOGIN ; -x, --passwd=PASSWD
|
-l, --login=LOGIN ; -x, --passwd=PASSWD
|
||||||
Login and auth password for snmpv3 authentication
|
Login and auth password for snmpv3 authentication
|
||||||
If no priv password exists, implies AuthNoPriv
|
If no priv password exists, implies AuthNoPriv
|
||||||
-X, --privpass=PASSWD
|
|
||||||
Priv password for snmpv3 (AuthPriv protocol)
|
|
||||||
-L, --protocols=<authproto>,<privproto>
|
|
||||||
<authproto> : Authentication protocol (md5|sha : default md5)
|
|
||||||
<privproto> : Priv protocole (des|aes : default des)
|
|
||||||
-P, --port=PORT
|
-P, --port=PORT
|
||||||
SNMP port (Default 161)
|
SNMP port (Default 161)
|
||||||
-w, --warn=INTEGER | INT,INT,INT
|
-w, --warn=INTEGER | INT,INT,INT
|
||||||
|
|
@ -193,23 +183,31 @@ sub verb { my $t=shift; print $t,"\n" if defined($o_verb) ; }
|
||||||
sub check_options {
|
sub check_options {
|
||||||
Getopt::Long::Configure ("bundling");
|
Getopt::Long::Configure ("bundling");
|
||||||
GetOptions(
|
GetOptions(
|
||||||
'v' => \$o_verb, 'verbose' => \$o_verb,
|
"H|hostname|host=s" => \$OPTION{'host'},
|
||||||
|
"C|community=s" => \$OPTION{'snmp-community'},
|
||||||
|
"snmp|snmp-version=s" => \$OPTION{'snmp-version'},
|
||||||
|
"p|port|P|snmpport|snmp-port=i" => \$OPTION{'snmp-port'},
|
||||||
|
"l|login|username=s" => \$OPTION{'snmp-auth-user'},
|
||||||
|
"x|passwd|authpassword|password=s" => \$OPTION{'snmp-auth-password'},
|
||||||
|
"k|authkey=s" => \$OPTION{'snmp-auth-key'},
|
||||||
|
"authprotocol=s" => \$OPTION{'snmp-auth-protocol'},
|
||||||
|
"privpassword=s" => \$OPTION{'snmp-priv-password'},
|
||||||
|
"privkey=s" => \$OPTION{'snmp-priv-key'},
|
||||||
|
"privprotocol=s" => \$OPTION{'snmp-priv-protocol'},
|
||||||
|
"maxrepetitions=s" => \$OPTION{'maxrepetitions'},
|
||||||
|
"64-bits" => \$OPTION{'64-bits'},
|
||||||
|
|
||||||
|
'v' => \$o_verb, 'verbose' => \$o_verb,
|
||||||
'h' => \$o_help, 'help' => \$o_help,
|
'h' => \$o_help, 'help' => \$o_help,
|
||||||
'H:s' => \$o_host, 'hostname:s' => \$o_host,
|
|
||||||
'p:i' => \$o_port, 'port:i' => \$o_port,
|
|
||||||
'C:s' => \$o_community, 'community:s' => \$o_community,
|
|
||||||
'l:s' => \$o_login, 'login:s' => \$o_login,
|
|
||||||
'x:s' => \$o_passwd, 'passwd:s' => \$o_passwd,
|
|
||||||
'X:s' => \$o_privpass, 'privpass:s' => \$o_privpass,
|
|
||||||
'L:s' => \$v3protocols, 'protocols:s' => \$v3protocols,
|
|
||||||
't:i' => \$o_timeout, 'timeout:i' => \$o_timeout,
|
't:i' => \$o_timeout, 'timeout:i' => \$o_timeout,
|
||||||
'V' => \$o_version, 'version' => \$o_version,
|
'V' => \$o_version, 'version' => \$o_version,
|
||||||
'2' => \$o_version2, 'v2c' => \$o_version2,
|
|
||||||
'c:s' => \$o_crit, 'critical:s' => \$o_crit,
|
'c:s' => \$o_crit, 'critical:s' => \$o_crit,
|
||||||
'w:s' => \$o_warn, 'warn:s' => \$o_warn,
|
'w:s' => \$o_warn, 'warn:s' => \$o_warn,
|
||||||
'f' => \$o_perf, 'perfparse' => \$o_perf,
|
'f' => \$o_perf, 'perfparse' => \$o_perf,
|
||||||
'T:s' => \$o_check_type, 'type:s' => \$o_check_type
|
'T:s' => \$o_check_type, 'type:s' => \$o_check_type
|
||||||
);
|
);
|
||||||
|
# check snmp information
|
||||||
|
($session_params) = Centreon::SNMP::Utils::check_snmp_options($ERRORS{'UNKNOWN'}, \%OPTION);
|
||||||
# check the -T option
|
# check the -T option
|
||||||
my $T_option_valid=0;
|
my $T_option_valid=0;
|
||||||
foreach (@valid_types) { if ($_ eq $o_check_type) {$T_option_valid=1} };
|
foreach (@valid_types) { if ($_ eq $o_check_type) {$T_option_valid=1} };
|
||||||
|
|
@ -221,21 +219,6 @@ sub check_options {
|
||||||
if (!defined($o_timeout)) {$o_timeout=5;}
|
if (!defined($o_timeout)) {$o_timeout=5;}
|
||||||
if (defined ($o_help) ) { help(); exit $ERRORS{"UNKNOWN"}};
|
if (defined ($o_help) ) { help(); exit $ERRORS{"UNKNOWN"}};
|
||||||
if (defined($o_version)) { p_version(); exit $ERRORS{"UNKNOWN"}};
|
if (defined($o_version)) { p_version(); exit $ERRORS{"UNKNOWN"}};
|
||||||
if ( ! defined($o_host) ) # check host and filter
|
|
||||||
{ print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
||||||
# check snmp information
|
|
||||||
if ( !defined($o_community) && (!defined($o_login) || !defined($o_passwd)) )
|
|
||||||
{ print "Put snmp login info!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
||||||
if ((defined($o_login) || defined($o_passwd)) && (defined($o_community) || defined($o_version2)) )
|
|
||||||
{ print "Can't mix snmp v1,2c,3 protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
||||||
if (defined ($v3protocols)) {
|
|
||||||
if (!defined($o_login)) { print "Put snmp V3 login info with protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
||||||
my @v3proto=split(/,/,$v3protocols);
|
|
||||||
if ((defined ($v3proto[0])) && ($v3proto[0] ne "")) {$o_authproto=$v3proto[0]; } # Auth protocol
|
|
||||||
if (defined ($v3proto[1])) {$o_privproto=$v3proto[1]; } # Priv protocol
|
|
||||||
if ((defined ($v3proto[1])) && (!defined($o_privpass))) {
|
|
||||||
print "Put snmp V3 priv login info with priv protocols!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
|
||||||
}
|
|
||||||
# Check warnings and critical
|
# Check warnings and critical
|
||||||
if (!defined($o_warn) || !defined($o_crit))
|
if (!defined($o_warn) || !defined($o_crit))
|
||||||
{ print "put warning and critical info!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
{ print "put warning and critical info!\n"; print_usage(); exit $ERRORS{"UNKNOWN"}}
|
||||||
|
|
@ -272,436 +255,315 @@ check_options();
|
||||||
|
|
||||||
# Check gobal timeout if snmp screws up
|
# Check gobal timeout if snmp screws up
|
||||||
if (defined($TIMEOUT)) {
|
if (defined($TIMEOUT)) {
|
||||||
verb("Alarm at $TIMEOUT + 5");
|
verb("Alarm at $TIMEOUT + 5");
|
||||||
alarm($TIMEOUT+5);
|
alarm($TIMEOUT+5);
|
||||||
} else {
|
} else {
|
||||||
verb("no global timeout defined : $o_timeout + 10");
|
verb("no global timeout defined : $o_timeout + 10");
|
||||||
alarm ($o_timeout+10);
|
alarm ($o_timeout+10);
|
||||||
}
|
}
|
||||||
|
|
||||||
$SIG{'ALRM'} = sub {
|
$SIG{'ALRM'} = sub {
|
||||||
print "No answer from host\n";
|
print "No answer from host\n";
|
||||||
exit $ERRORS{"UNKNOWN"};
|
exit $ERRORS{"UNKNOWN"};
|
||||||
};
|
};
|
||||||
|
|
||||||
# Connect to host
|
# Connect to host
|
||||||
my ($session,$error);
|
my $session = Centreon::SNMP::Utils::connection($ERRORS{'UNKNOWN'}, $session_params);
|
||||||
if ( defined($o_login) && defined($o_passwd)) {
|
|
||||||
# SNMPv3 login
|
|
||||||
verb("SNMPv3 login");
|
|
||||||
if (!defined ($o_privpass)) {
|
|
||||||
verb("SNMPv3 AuthNoPriv login : $o_login, $o_authproto");
|
|
||||||
($session, $error) = Net::SNMP->session(
|
|
||||||
-hostname => $o_host,
|
|
||||||
-version => '3',
|
|
||||||
-username => $o_login,
|
|
||||||
-authpassword => $o_passwd,
|
|
||||||
-authprotocol => $o_authproto,
|
|
||||||
-timeout => $o_timeout
|
|
||||||
);
|
|
||||||
} else {
|
|
||||||
verb("SNMPv3 AuthPriv login : $o_login, $o_authproto, $o_privproto");
|
|
||||||
($session, $error) = Net::SNMP->session(
|
|
||||||
-hostname => $o_host,
|
|
||||||
-version => '3',
|
|
||||||
-username => $o_login,
|
|
||||||
-authpassword => $o_passwd,
|
|
||||||
-authprotocol => $o_authproto,
|
|
||||||
-privpassword => $o_privpass,
|
|
||||||
-privprotocol => $o_privproto,
|
|
||||||
-timeout => $o_timeout
|
|
||||||
);
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
if (defined ($o_version2)) {
|
|
||||||
# SNMPv2 Login
|
|
||||||
verb("SNMP v2c login");
|
|
||||||
($session, $error) = Net::SNMP->session(
|
|
||||||
-hostname => $o_host,
|
|
||||||
-version => 2,
|
|
||||||
-community => $o_community,
|
|
||||||
-port => $o_port,
|
|
||||||
-timeout => $o_timeout
|
|
||||||
);
|
|
||||||
} else {
|
|
||||||
# SNMPV1 login
|
|
||||||
verb("SNMP v1 login");
|
|
||||||
($session, $error) = Net::SNMP->session(
|
|
||||||
-hostname => $o_host,
|
|
||||||
-community => $o_community,
|
|
||||||
-port => $o_port,
|
|
||||||
-timeout => $o_timeout
|
|
||||||
);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (!defined($session)) {
|
|
||||||
printf("ERROR opening session: %s.\n", $error);
|
|
||||||
exit $ERRORS{"UNKNOWN"};
|
|
||||||
}
|
|
||||||
|
|
||||||
my $exit_val=undef;
|
my $exit_val=undef;
|
||||||
########### Linux load check ##############
|
########### Linux load check ##############
|
||||||
|
|
||||||
if ($o_check_type eq "netsl") {
|
if ($o_check_type eq "netsl") {
|
||||||
|
verb("Checking linux load");
|
||||||
|
# Get load table
|
||||||
|
my $resultat = Centreon::SNMP::Utils::get_snmp_table($linload_table, $session, $ERRORS{'UNKNOWN'}, \%OPTION);
|
||||||
|
|
||||||
verb("Checking linux load");
|
my @load = undef;
|
||||||
# Get load table
|
my @iload = undef;
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my @oid=undef;
|
||||||
$session->get_table($linload_table)
|
my $exist=0;
|
||||||
: $session->get_table(Baseoid => $linload_table);
|
foreach my $key ( keys %$resultat) {
|
||||||
|
verb("OID : $key, Desc : $$resultat{$key}");
|
||||||
if (!defined($resultat)) {
|
if ( $key =~ /$linload_name/ ) {
|
||||||
printf("ERROR: Description table : %s.\n", $session->error);
|
@oid=split (/\./,$key);
|
||||||
$session->close;
|
$iload[0]= pop(@oid) if ($$resultat{$key} eq "Load-1");
|
||||||
exit $ERRORS{"UNKNOWN"};
|
$iload[1]= pop(@oid) if ($$resultat{$key} eq "Load-5");
|
||||||
}
|
$iload[2]= pop(@oid) if ($$resultat{$key} eq "Load-15");
|
||||||
$session->close;
|
$exist=1
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
my @load = undef;
|
if ($exist == 0) {
|
||||||
my @iload = undef;
|
print "Can't find snmp information on load : UNKNOWN\n";
|
||||||
my @oid=undef;
|
exit $ERRORS{"UNKNOWN"};
|
||||||
my $exist=0;
|
}
|
||||||
foreach my $key ( keys %$resultat) {
|
|
||||||
verb("OID : $key, Desc : $$resultat{$key}");
|
|
||||||
if ( $key =~ /$linload_name/ ) {
|
|
||||||
@oid=split (/\./,$key);
|
|
||||||
$iload[0]= pop(@oid) if ($$resultat{$key} eq "Load-1");
|
|
||||||
$iload[1]= pop(@oid) if ($$resultat{$key} eq "Load-5");
|
|
||||||
$iload[2]= pop(@oid) if ($$resultat{$key} eq "Load-15");
|
|
||||||
$exist=1
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
if ($exist == 0) {
|
for (my $i=0;$i<3;$i++) { $load[$i] = $$resultat{$linload_load . "." . $iload[$i]}};
|
||||||
print "Can't find snmp information on load : UNKNOWN\n";
|
|
||||||
exit $ERRORS{"UNKNOWN"};
|
|
||||||
}
|
|
||||||
|
|
||||||
for (my $i=0;$i<3;$i++) { $load[$i] = $$resultat{$linload_load . "." . $iload[$i]}};
|
print "Load : $load[0] $load[1] $load[2] :";
|
||||||
|
|
||||||
print "Load : $load[0] $load[1] $load[2] :";
|
$exit_val=$ERRORS{"OK"};
|
||||||
|
for (my $i=0;$i<3;$i++) {
|
||||||
$exit_val=$ERRORS{"OK"};
|
if ( $load[$i] > $o_critL[$i] ) {
|
||||||
for (my $i=0;$i<3;$i++) {
|
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
||||||
if ( $load[$i] > $o_critL[$i] ) {
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
}
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
if ( $load[$i] > $o_warnL[$i] ) {
|
||||||
}
|
# output warn error only if no critical was found
|
||||||
if ( $load[$i] > $o_warnL[$i] ) {
|
if ($exit_val eq $ERRORS{"OK"}) {
|
||||||
# output warn error only if no critical was found
|
print " $load[$i] > $o_warnL[$i] : WARNING";
|
||||||
if ($exit_val eq $ERRORS{"OK"}) {
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
print " $load[$i] > $o_warnL[$i] : WARNING";
|
}
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
}
|
||||||
}
|
}
|
||||||
}
|
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
}
|
if (defined($o_perf)) {
|
||||||
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
print " | load_1_min=$load[0];$o_warnL[0];$o_critL[0] ";
|
||||||
if (defined($o_perf)) {
|
print "load_5_min=$load[1];$o_warnL[1];$o_critL[1] ";
|
||||||
print " | load_1_min=$load[0];$o_warnL[0];$o_critL[0] ";
|
print "load_15_min=$load[2];$o_warnL[2];$o_critL[2]\n";
|
||||||
print "load_5_min=$load[1];$o_warnL[1];$o_critL[1] ";
|
} else {
|
||||||
print "load_15_min=$load[2];$o_warnL[2];$o_critL[2]\n";
|
print "\n";
|
||||||
} else {
|
}
|
||||||
print "\n";
|
exit $exit_val;
|
||||||
}
|
|
||||||
exit $exit_val;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
############## Cisco CPU check ################
|
############## Cisco CPU check ################
|
||||||
|
|
||||||
if ($o_check_type eq "cisco") {
|
if ($o_check_type eq "cisco") {
|
||||||
my @oidlists = ($cisco_cpu_5m, $cisco_cpu_1m, $cisco_cpu_5s);
|
my @oidlists = ($cisco_cpu_5m, $cisco_cpu_1m, $cisco_cpu_5s);
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my $resultat = Centreon::SNMP::Utils::get_snmp_leef(\@oidlists, $session, $ERRORS{'UNKNOWN'});
|
||||||
$session->get_request(@oidlists)
|
|
||||||
: $session->get_request(-varbindlist => \@oidlists);
|
|
||||||
|
|
||||||
if (!defined($resultat)) {
|
if (!defined ($$resultat{$cisco_cpu_5s})) {
|
||||||
printf("ERROR: Description table : %s.\n", $session->error);
|
print "No CPU information : UNKNOWN\n";
|
||||||
$session->close;
|
exit $ERRORS{"UNKNOWN"};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
}
|
||||||
}
|
|
||||||
|
|
||||||
$session->close;
|
my @load = undef;
|
||||||
|
|
||||||
if (!defined ($$resultat{$cisco_cpu_5s})) {
|
$load[0]=$$resultat{$cisco_cpu_5s};
|
||||||
print "No CPU information : UNKNOWN\n";
|
$load[1]=$$resultat{$cisco_cpu_1m};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
$load[2]=$$resultat{$cisco_cpu_5m};
|
||||||
}
|
|
||||||
|
|
||||||
my @load = undef;
|
print "CPU : $load[0] $load[1] $load[2] :";
|
||||||
|
|
||||||
$load[0]=$$resultat{$cisco_cpu_5s};
|
$exit_val=$ERRORS{"OK"};
|
||||||
$load[1]=$$resultat{$cisco_cpu_1m};
|
for (my $i=0;$i<3;$i++) {
|
||||||
$load[2]=$$resultat{$cisco_cpu_5m};
|
if ( $load[$i] > $o_critL[$i] ) {
|
||||||
|
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
||||||
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
|
}
|
||||||
|
if ( $load[$i] > $o_warnL[$i] ) {
|
||||||
|
# output warn error only if no critical was found
|
||||||
|
if ($exit_val eq $ERRORS{"OK"}) {
|
||||||
|
print " $load[$i] > $o_warnL[$i] : WARNING";
|
||||||
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
|
if (defined($o_perf)) {
|
||||||
|
print " | load_5_sec=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
||||||
|
print "load_1_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
||||||
|
print "load_5_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
||||||
|
} else {
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
print "CPU : $load[0] $load[1] $load[2] :";
|
exit $exit_val;
|
||||||
|
|
||||||
$exit_val=$ERRORS{"OK"};
|
|
||||||
for (my $i=0;$i<3;$i++) {
|
|
||||||
if ( $load[$i] > $o_critL[$i] ) {
|
|
||||||
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
|
||||||
}
|
|
||||||
if ( $load[$i] > $o_warnL[$i] ) {
|
|
||||||
# output warn error only if no critical was found
|
|
||||||
if ($exit_val eq $ERRORS{"OK"}) {
|
|
||||||
print " $load[$i] > $o_warnL[$i] : WARNING";
|
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
|
||||||
if (defined($o_perf)) {
|
|
||||||
print " | load_5_sec=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
|
||||||
print "load_1_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
|
||||||
print "load_5_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
|
||||||
} else {
|
|
||||||
print "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
exit $exit_val;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
############## Cisco Catalyst CPU check ################
|
############## Cisco Catalyst CPU check ################
|
||||||
|
|
||||||
if ($o_check_type eq "cata") {
|
if ($o_check_type eq "cata") {
|
||||||
my @oidlists = ($ciscocata_cpu_5m, $ciscocata_cpu_1m, $ciscocata_cpu_5s);
|
my @oidlists = ($ciscocata_cpu_5m, $ciscocata_cpu_1m, $ciscocata_cpu_5s);
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my $resultat = Centreon::SNMP::Utils::get_snmp_leef(\@oidlists, $session, $ERRORS{'UNKNOWN'});
|
||||||
$session->get_request(@oidlists)
|
|
||||||
: $session->get_request(-varbindlist => \@oidlists);
|
|
||||||
|
|
||||||
if (!defined($resultat)) {
|
if (!defined ($$resultat{$ciscocata_cpu_5s})) {
|
||||||
printf("ERROR: Description table : %s.\n", $session->error);
|
print "No CPU information : UNKNOWN\n";
|
||||||
$session->close;
|
exit $ERRORS{"UNKNOWN"};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
}
|
||||||
}
|
|
||||||
|
|
||||||
$session->close;
|
my @load = undef;
|
||||||
|
|
||||||
if (!defined ($$resultat{$ciscocata_cpu_5s})) {
|
$load[0]=$$resultat{$ciscocata_cpu_5s};
|
||||||
print "No CPU information : UNKNOWN\n";
|
$load[1]=$$resultat{$ciscocata_cpu_1m};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
$load[2]=$$resultat{$ciscocata_cpu_5m};
|
||||||
}
|
|
||||||
|
|
||||||
my @load = undef;
|
print "CPU : $load[0] $load[1] $load[2] :";
|
||||||
|
|
||||||
$load[0]=$$resultat{$ciscocata_cpu_5s};
|
$exit_val=$ERRORS{"OK"};
|
||||||
$load[1]=$$resultat{$ciscocata_cpu_1m};
|
for (my $i=0;$i<3;$i++) {
|
||||||
$load[2]=$$resultat{$ciscocata_cpu_5m};
|
if ( $load[$i] > $o_critL[$i] ) {
|
||||||
|
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
||||||
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
|
}
|
||||||
|
if ( $load[$i] > $o_warnL[$i] ) {
|
||||||
|
# output warn error only if no critical was found
|
||||||
|
if ($exit_val eq $ERRORS{"OK"}) {
|
||||||
|
print " $load[$i] > $o_warnL[$i] : WARNING";
|
||||||
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
|
if (defined($o_perf)) {
|
||||||
|
print " | load_5_sec=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
||||||
|
print "load_1_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
||||||
|
print "load_5_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
||||||
|
} else {
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
print "CPU : $load[0] $load[1] $load[2] :";
|
exit $exit_val;
|
||||||
|
|
||||||
$exit_val=$ERRORS{"OK"};
|
|
||||||
for (my $i=0;$i<3;$i++) {
|
|
||||||
if ( $load[$i] > $o_critL[$i] ) {
|
|
||||||
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
|
||||||
}
|
|
||||||
if ( $load[$i] > $o_warnL[$i] ) {
|
|
||||||
# output warn error only if no critical was found
|
|
||||||
if ($exit_val eq $ERRORS{"OK"}) {
|
|
||||||
print " $load[$i] > $o_warnL[$i] : WARNING";
|
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
|
||||||
if (defined($o_perf)) {
|
|
||||||
print " | load_5_sec=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
|
||||||
print "load_1_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
|
||||||
print "load_5_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
|
||||||
} else {
|
|
||||||
print "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
exit $exit_val;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
############## Netscreen CPU check ################
|
############## Netscreen CPU check ################
|
||||||
|
|
||||||
if ($o_check_type eq "nsc") {
|
if ($o_check_type eq "nsc") {
|
||||||
my @oidlists = ($nsc_cpu_5m, $nsc_cpu_1m, $nsc_cpu_5s);
|
my @oidlists = ($nsc_cpu_5m, $nsc_cpu_1m, $nsc_cpu_5s);
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my $resultat = Centreon::SNMP::Utils::get_snmp_leef(\@oidlists, $session, $ERRORS{'UNKNOWN'});
|
||||||
$session->get_request(@oidlists)
|
|
||||||
: $session->get_request(-varbindlist => \@oidlists);
|
|
||||||
|
|
||||||
if (!defined($resultat)) {
|
if (!defined ($$resultat{$nsc_cpu_5s})) {
|
||||||
printf("ERROR: Description table : %s.\n", $session->error);
|
print "No CPU information : UNKNOWN\n";
|
||||||
$session->close;
|
exit $ERRORS{"UNKNOWN"};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
}
|
||||||
}
|
|
||||||
|
|
||||||
$session->close;
|
my @load = undef;
|
||||||
|
|
||||||
if (!defined ($$resultat{$nsc_cpu_5s})) {
|
$load[0]=$$resultat{$nsc_cpu_5s};
|
||||||
print "No CPU information : UNKNOWN\n";
|
$load[1]=$$resultat{$nsc_cpu_1m};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
$load[2]=$$resultat{$nsc_cpu_5m};
|
||||||
}
|
|
||||||
|
|
||||||
my @load = undef;
|
print "CPU : $load[0] $load[1] $load[2] :";
|
||||||
|
|
||||||
$load[0]=$$resultat{$nsc_cpu_5s};
|
$exit_val=$ERRORS{"OK"};
|
||||||
$load[1]=$$resultat{$nsc_cpu_1m};
|
for (my $i=0;$i<3;$i++) {
|
||||||
$load[2]=$$resultat{$nsc_cpu_5m};
|
if ( $load[$i] > $o_critL[$i] ) {
|
||||||
|
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
||||||
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
|
}
|
||||||
|
if ( $load[$i] > $o_warnL[$i] ) {
|
||||||
|
# output warn error only if no critical was found
|
||||||
|
if ($exit_val eq $ERRORS{"OK"}) {
|
||||||
|
print " $load[$i] > $o_warnL[$i] : WARNING";
|
||||||
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
|
if (defined($o_perf)) {
|
||||||
|
print " | cpu_5_sec=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
||||||
|
print "cpu_1_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
||||||
|
print "cpu_5_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
||||||
|
} else {
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
print "CPU : $load[0] $load[1] $load[2] :";
|
exit $exit_val;
|
||||||
|
|
||||||
$exit_val=$ERRORS{"OK"};
|
|
||||||
for (my $i=0;$i<3;$i++) {
|
|
||||||
if ( $load[$i] > $o_critL[$i] ) {
|
|
||||||
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
|
||||||
}
|
|
||||||
if ( $load[$i] > $o_warnL[$i] ) {
|
|
||||||
# output warn error only if no critical was found
|
|
||||||
if ($exit_val eq $ERRORS{"OK"}) {
|
|
||||||
print " $load[$i] > $o_warnL[$i] : WARNING";
|
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
|
||||||
if (defined($o_perf)) {
|
|
||||||
print " | cpu_5_sec=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
|
||||||
print "cpu_1_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
|
||||||
print "cpu_5_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
|
||||||
} else {
|
|
||||||
print "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
exit $exit_val;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
################## CPU for : AS/400 , Netsnmp, HP, Bluecoat, linkproof, fortigate ###########
|
################## CPU for : AS/400 , Netsnmp, HP, Bluecoat, linkproof, fortigate ###########
|
||||||
if ( $o_check_type =~ /netsc|as400|bc|nokia|^hp$|lp|fg/ ) {
|
if ( $o_check_type =~ /netsc|as400|bc|nokia|^hp$|lp|fg/ ) {
|
||||||
|
|
||||||
# Get load table
|
# Get load table
|
||||||
my @oidlist = $cpu_oid{$o_check_type};
|
my @oidlist = $cpu_oid{$o_check_type};
|
||||||
verb("Checking OID : @oidlist");
|
verb("Checking OID : @oidlist");
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my $resultat = Centreon::SNMP::Utils::get_snmp_leef(\@oidlist, $session, $ERRORS{'UNKNOWN'});
|
||||||
$session->get_request(@oidlist)
|
|
||||||
: $session->get_request(-varbindlist => \@oidlist);
|
|
||||||
if (!defined($resultat)) {
|
|
||||||
printf("ERROR: Description table : %s.\n", $session->error);
|
|
||||||
$session->close;
|
|
||||||
exit $ERRORS{"UNKNOWN"};
|
|
||||||
}
|
|
||||||
$session->close;
|
|
||||||
|
|
||||||
if (!defined ($$resultat{$cpu_oid{$o_check_type}})) {
|
if (!defined ($$resultat{$cpu_oid{$o_check_type}})) {
|
||||||
print "No CPU information : UNKNOWN\n";
|
print "No CPU information : UNKNOWN\n";
|
||||||
exit $ERRORS{"UNKNOWN"};
|
exit $ERRORS{"UNKNOWN"};
|
||||||
}
|
}
|
||||||
|
|
||||||
my $load=$$resultat{$cpu_oid{$o_check_type}};
|
my $load=$$resultat{$cpu_oid{$o_check_type}};
|
||||||
verb("OID returned $load");
|
verb("OID returned $load");
|
||||||
# for AS400, divide by 100
|
# for AS400, divide by 100
|
||||||
if ($o_check_type eq "as400") {$load /= 100; };
|
if ($o_check_type eq "as400") {$load /= 100; };
|
||||||
# for Net-snmp : oid returned idle time so load = 100-idle.
|
# for Net-snmp : oid returned idle time so load = 100-idle.
|
||||||
if ($o_check_type eq "netsc") {$load = 100 - $load; };
|
if ($o_check_type eq "netsc") {$load = 100 - $load; };
|
||||||
|
|
||||||
printf("CPU used %.1f%% (",$load);
|
printf("CPU used %.1f%% (",$load);
|
||||||
|
|
||||||
$exit_val=$ERRORS{"OK"};
|
|
||||||
if ($load > $o_crit) {
|
|
||||||
print ">$o_crit) : CRITICAL";
|
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
|
||||||
} else {
|
|
||||||
if ($load > $o_warn) {
|
|
||||||
print ">$o_warn) : WARNING";
|
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
|
||||||
}
|
|
||||||
}
|
|
||||||
print "<$o_warn) : OK" if ($exit_val eq $ERRORS{"OK"});
|
|
||||||
(defined($o_perf)) ?
|
|
||||||
print " | cpu_prct_used=$load%;$o_warn;$o_crit\n"
|
|
||||||
: print "\n";
|
|
||||||
exit $exit_val;
|
|
||||||
|
|
||||||
|
$exit_val=$ERRORS{"OK"};
|
||||||
|
if ($load > $o_crit) {
|
||||||
|
print ">$o_crit) : CRITICAL";
|
||||||
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
|
} else {
|
||||||
|
if ($load > $o_warn) {
|
||||||
|
print ">$o_warn) : WARNING";
|
||||||
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print "<$o_warn) : OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
|
(defined($o_perf)) ?
|
||||||
|
print " | cpu_prct_used=$load%;$o_warn;$o_crit\n"
|
||||||
|
: print "\n";
|
||||||
|
exit $exit_val;
|
||||||
}
|
}
|
||||||
|
|
||||||
##### Checking hpux load
|
##### Checking hpux load
|
||||||
if ($o_check_type eq "hpux") {
|
if ($o_check_type eq "hpux") {
|
||||||
|
|
||||||
verb("Checking hpux load");
|
verb("Checking hpux load");
|
||||||
|
|
||||||
my @oidlists = ($hpux_load_1_min, $hpux_load_5_min, $hpux_load_15_min);
|
my @oidlists = ($hpux_load_1_min, $hpux_load_5_min, $hpux_load_15_min);
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my $resultat = Centreon::SNMP::Utils::get_snmp_leef(\@oidlists, $session, $ERRORS{'UNKNOWN'});
|
||||||
$session->get_request(@oidlists)
|
|
||||||
: $session->get_request(-varbindlist => \@oidlists);
|
|
||||||
|
|
||||||
if (!defined($resultat)) {
|
if (!defined ($$resultat{$hpux_load_1_min})) {
|
||||||
printf("ERROR: Load table : %s.\n", $session->error);
|
print "No Load information : UNKNOWN\n";
|
||||||
$session->close;
|
exit $ERRORS{"UNKNOWN"};
|
||||||
exit $ERRORS{"UNKNOWN"};
|
}
|
||||||
}
|
|
||||||
|
|
||||||
$session->close;
|
my @load = undef;
|
||||||
|
|
||||||
if (!defined ($$resultat{$hpux_load_1_min})) {
|
$load[0]=$$resultat{$hpux_load_1_min}/100;
|
||||||
print "No Load information : UNKNOWN\n";
|
$load[1]=$$resultat{$hpux_load_5_min}/100;
|
||||||
exit $ERRORS{"UNKNOWN"};
|
$load[2]=$$resultat{$hpux_load_15_min}/100;
|
||||||
}
|
|
||||||
|
|
||||||
my @load = undef;
|
print "Load : $load[0] $load[1] $load[2] :";
|
||||||
|
|
||||||
$load[0]=$$resultat{$hpux_load_1_min}/100;
|
$exit_val=$ERRORS{"OK"};
|
||||||
$load[1]=$$resultat{$hpux_load_5_min}/100;
|
for (my $i=0;$i<3;$i++) {
|
||||||
$load[2]=$$resultat{$hpux_load_15_min}/100;
|
if ( $load[$i] > $o_critL[$i] ) {
|
||||||
|
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
||||||
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
|
}
|
||||||
|
if ( $load[$i] > $o_warnL[$i] ) {
|
||||||
|
# output warn error only if no critical was found
|
||||||
|
if ($exit_val eq $ERRORS{"OK"}) {
|
||||||
|
print " $load[$i] > $o_warnL[$i] : WARNING";
|
||||||
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
|
if (defined($o_perf)) {
|
||||||
|
print " | load_1_min=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
||||||
|
print "load_5_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
||||||
|
print "load_15_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
||||||
|
} else {
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
print "Load : $load[0] $load[1] $load[2] :";
|
exit $exit_val;
|
||||||
|
|
||||||
$exit_val=$ERRORS{"OK"};
|
|
||||||
for (my $i=0;$i<3;$i++) {
|
|
||||||
if ( $load[$i] > $o_critL[$i] ) {
|
|
||||||
print " $load[$i] > $o_critL[$i] : CRITICAL";
|
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
|
||||||
}
|
|
||||||
if ( $load[$i] > $o_warnL[$i] ) {
|
|
||||||
# output warn error only if no critical was found
|
|
||||||
if ($exit_val eq $ERRORS{"OK"}) {
|
|
||||||
print " $load[$i] > $o_warnL[$i] : WARNING";
|
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
print " OK" if ($exit_val eq $ERRORS{"OK"});
|
|
||||||
if (defined($o_perf)) {
|
|
||||||
print " | load_1_min=$load[0]%;$o_warnL[0];$o_critL[0] ";
|
|
||||||
print "load_5_min=$load[1]%;$o_warnL[1];$o_critL[1] ";
|
|
||||||
print "load_15_min=$load[2]%;$o_warnL[2];$o_critL[2]\n";
|
|
||||||
} else {
|
|
||||||
print "\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
exit $exit_val;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
########## Standard cpu usage check ############
|
########## Standard cpu usage check ############
|
||||||
# Get desctiption table
|
# Get desctiption table
|
||||||
my $resultat = (Net::SNMP->VERSION < 4) ?
|
my $resultat = Centreon::SNMP::Utils::get_snmp_table($base_proc, $session, $ERRORS{'UNKNOWN'}, \%OPTION);
|
||||||
$session->get_table($base_proc)
|
|
||||||
: $session->get_table(Baseoid => $base_proc);
|
|
||||||
|
|
||||||
if (!defined($resultat)) {
|
|
||||||
printf("ERROR: Description table : %s.\n", $session->error);
|
|
||||||
$session->close;
|
|
||||||
exit $ERRORS{"UNKNOWN"};
|
|
||||||
}
|
|
||||||
|
|
||||||
$session->close;
|
|
||||||
|
|
||||||
my ($cpu_used,$ncpu)=(0,0);
|
my ($cpu_used,$ncpu)=(0,0);
|
||||||
foreach my $key ( keys %$resultat) {
|
foreach my $key ( keys %$resultat) {
|
||||||
verb("OID : $key, Desc : $$resultat{$key}");
|
verb("OID : $key, Desc : $$resultat{$key}");
|
||||||
if ( $key =~ /$proc_load/) {
|
if ( $key =~ /$proc_load/) {
|
||||||
$cpu_used += $$resultat{$key};
|
$cpu_used += $$resultat{$key};
|
||||||
$ncpu++;
|
$ncpu++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if ($ncpu==0) {
|
if ($ncpu==0) {
|
||||||
print "Can't find CPU usage information : UNKNOWN\n";
|
print "Can't find CPU usage information : UNKNOWN\n";
|
||||||
exit $ERRORS{"UNKNOWN"};
|
exit $ERRORS{"UNKNOWN"};
|
||||||
}
|
}
|
||||||
|
|
||||||
$cpu_used /= $ncpu;
|
$cpu_used /= $ncpu;
|
||||||
|
|
@ -711,17 +573,16 @@ printf(" %.1f%%",$cpu_used);
|
||||||
$exit_val=$ERRORS{"OK"};
|
$exit_val=$ERRORS{"OK"};
|
||||||
|
|
||||||
if ($cpu_used > $o_crit) {
|
if ($cpu_used > $o_crit) {
|
||||||
print " > $o_crit% : CRITICAL";
|
print " > $o_crit% : CRITICAL";
|
||||||
$exit_val=$ERRORS{"CRITICAL"};
|
$exit_val=$ERRORS{"CRITICAL"};
|
||||||
} else {
|
} else {
|
||||||
if ($cpu_used > $o_warn) {
|
if ($cpu_used > $o_warn) {
|
||||||
print " > $o_warn% : WARNING";
|
print " > $o_warn% : WARNING";
|
||||||
$exit_val=$ERRORS{"WARNING"};
|
$exit_val=$ERRORS{"WARNING"};
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
print " < $o_warn% : OK" if ($exit_val eq $ERRORS{"OK"});
|
print " < $o_warn% : OK" if ($exit_val eq $ERRORS{"OK"});
|
||||||
(defined($o_perf)) ?
|
(defined($o_perf)) ?
|
||||||
print " | cpu_prct_used=$cpu_used%;$o_warn;$o_crit\n"
|
print " | cpu_prct_used=$cpu_used%;$o_warn;$o_crit\n"
|
||||||
: print "\n";
|
: print "\n";
|
||||||
exit $exit_val;
|
exit $exit_val;
|
||||||
|
|
||||||
Loading…
Reference in New Issue