diff options
| -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 (); |
