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

---