From: Subhendu Ghosh Date: Wed, 14 Aug 2002 19:02:31 +0000 (+0000) Subject: fix for ePN X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=c370a35caaa236b154367663307081ec50eb5ae0;p=nagiosplug.git fix for ePN git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@74 f882894a-f735-0410-b71e-b25c423dba1c --- 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 @@ # remaining: hh:mm:ss" if all is well, and a list of specific problems # if something is broken. -BEGIN { - if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { - $runtimedir = $1; - $PROGNAME = $2; - } -} - use strict; use Getopt::Long; use vars qw($opt_V $opt_h $opt_H $opt_T $opt_t $opt_R $opt_r $opt_L $opt_l $PROGNAME); -use lib $main::runtimedir; +use lib utils.pm; use utils qw(%ERRORS &print_revision &support &usage); sub print_help ();