retsil42

Does not work

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

Reviewed 13 years ago