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