Ondrej Hrstka

Working version - tested w 3.5.1

#!/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: $resultn"; exit($ERRORS{'CRITICAL'}); } } print "CRITICAL: Indeterminate Error.n"; exit($ERRORS{'CRITICAL'});

Reviewed 11 years ago