[Nagiosplug-checkins] CVS: nagiosplug/contrib check_apc_ups.pl,1.1.1.1,1.2

[Subhendu Ghosh]

Update of /cvsroot/nagiosplug/nagiosplug/contrib
In directory usw-pr-cvs1:/tmp/cvs-serv1244

Modified Files:
	check_apc_ups.pl 
Log Message:
fix for ePN

Index: check_apc_ups.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/contrib/check_apc_ups.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** check_apc_ups.pl	28 Feb 2002 06:42:53 -0000	1.1.1.1
--- check_apc_ups.pl	14 Aug 2002 19:02:31 -0000	1.2
***************
*** 10,25 ****
  #   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 utils qw(%ERRORS &print_revision &support &usage);
  
--- 10,18 ----
  #   if something is broken. 
  
  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 utils.pm;
  use utils qw(%ERRORS &print_revision &support &usage);