Search Exchange
Search All Sites
Nagios Live Webinars
Let our experts show you how Nagios can help your organization.Login
Directory Tree
Directory
ohrstka
byohrstka, April 17, 2015
#!/usr/bin/perl -w
# check_dcm.pl
#define command{
# command_name check_dcm
# command_line /usr/lib/nagios/plugins/check_dcm -a $HOSTADDRESS$ -n $ARG1$ -p $ARG2$
# }
use Getopt::Std;
use strict;
use lib "/usr/lib/nagios/plugins"; ## directory where I can find "utils.pm"
use utils qw{%ERRORS};
my $echoscu = "/usr/bin/echoscu";
my ($USAGE) = ult =~ /Association Rejected/) {
print "CRITICAL: $result\n";
exit($ERRORS{'CRITICAL'});
}
}
print "CRITICAL: Indeterminate Error.\n";
exit($ERRORS{'CRITICAL'});
# check_dcm.pl
#define command{
# command_name check_dcm
# command_line /usr/lib/nagios/plugins/check_dcm -a $HOSTADDRESS$ -n $ARG1$ -p $ARG2$
# }
use Getopt::Std;
use strict;
use lib "/usr/lib/nagios/plugins"; ## directory where I can find "utils.pm"
use utils qw{%ERRORS};
my $echoscu = "/usr/bin/echoscu";
my ($USAGE) = ult =~ /Association Rejected/) {
print "CRITICAL: $result\n";
exit($ERRORS{'CRITICAL'});
}
}
print "CRITICAL: Indeterminate Error.\n";
exit($ERRORS{'CRITICAL'});