diff options
Diffstat (limited to 'contrib/check_apc_ups.pl')
-rw-r--r-- | contrib/check_apc_ups.pl | 9 |
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 | ||
12 | BEGIN { | ||
13 | if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { | ||
14 | $runtimedir = $1; | ||
15 | $PROGNAME = $2; | ||
16 | } | ||
17 | } | ||
18 | |||
19 | use strict; | 12 | use strict; |
20 | use Getopt::Long; | 13 | use Getopt::Long; |
21 | use vars qw($opt_V $opt_h $opt_H $opt_T $opt_t $opt_R $opt_r | 14 | use 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); |
23 | use lib $main::runtimedir; | 16 | use lib utils.pm; |
24 | use utils qw(%ERRORS &print_revision &support &usage); | 17 | use utils qw(%ERRORS &print_revision &support &usage); |
25 | 18 | ||
26 | sub print_help (); | 19 | sub print_help (); |