check_dcm

#!/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'});

This script doesn't follow Nagios guidelines http://nagiosplug.sourceforge.net/developer-guidelines.html#AEN76 Here is a patch to repair it 1c1 #! /usr/bin/perl -w 26,27c26,27 use lib "/usr/lib/nagios/plugins"; ## directory where I can find "utils.pm" 35c35,36 my ($echoscu); > $echoscu = "/usr/local/dcmtk/bin/echoscu"; 69c70,86 if (! $options{p}) { > print "No port specifiedn"; > exit($ERRORS{'CRITICAL'}); > } > > if (! $options{n}) { > print "No IP address specifiedn"; > exit($ERRORS{'CRITICAL'}); > } > > if (! $options{a}) { > print "No AE title specifiedn"; > exit($ERRORS{'CRITICAL'}); > } > > my($thing); > $thing = `$echoscu -v -aet $options{a} $options{n} $options{p} 2>&1`; 70a88 > my(@response); 72a91,92 > my ($result); > 74,75c94,95 print "$resultn"; 79,87c99,102 exit($ERRORS{'CRITICAL'});