summaryrefslogtreecommitdiffstats
path: root/contrib/check_apc_ups.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/check_apc_ups.pl')
-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 dd979f5..74ae229 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 ();