summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSubhendu Ghosh <sghosh@users.sourceforge.net>2002-08-14 19:02:31 +0000
committerSubhendu Ghosh <sghosh@users.sourceforge.net>2002-08-14 19:02:31 +0000
commitc370a35caaa236b154367663307081ec50eb5ae0 (patch)
tree1a7e70426a99ed1a7a34a5aaf6201689f35815bd
parent005a4281f4272114a7c2c56bc48d9640b3a47531 (diff)
downloadmonitoring-plugins-c370a35caaa236b154367663307081ec50eb5ae0.tar.gz
fix for ePN
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@74 f882894a-f735-0410-b71e-b25c423dba1c
-rw-r--r--contrib/check_apc_ups.pl9
1 files changed, 1 insertions, 8 deletions
diff --git a/contrib/check_apc_ups.pl b/contrib/check_apc_ups.pl
index dd979f52..74ae229d 100644
--- a/contrib/check_apc_ups.pl
+++ b/contrib/check_apc_ups.pl
@@ -9,18 +9,11 @@
9# remaining: hh:mm:ss" if all is well, and a list of specific problems 9# remaining: hh:mm:ss" if all is well, and a list of specific problems
10# if something is broken. 10# if something is broken.
11 11
12BEGIN {
13 if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
14 $runtimedir = $1;
15 $PROGNAME = $2;
16 }
17}
18
19use strict; 12use strict;
20use Getopt::Long; 13use Getopt::Long;
21use vars qw($opt_V $opt_h $opt_H $opt_T $opt_t $opt_R $opt_r 14use vars qw($opt_V $opt_h $opt_H $opt_T $opt_t $opt_R $opt_r
22 $opt_L $opt_l $PROGNAME); 15 $opt_L $opt_l $PROGNAME);
23use lib $main::runtimedir; 16use lib utils.pm;
24use utils qw(%ERRORS &print_revision &support &usage); 17use utils qw(%ERRORS &print_revision &support &usage);
25 18
26sub print_help (); 19sub print_help ();