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 dd979f5212f265ef32d154e4fb7f2169f0e75a66..74ae229d2516eaa4072a1ad6f5f096539b39fecf 100644 (file)
--- 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 ();