[Nagiosplug-checkins] CVS: nagiosplug/plugins-scripts check_ntp.pl,1.2,1.3 check_breeze.pl,1.2,1.3 check_flexlm.pl,1.2,1.3 check_ircd.pl,1.2,1.3 check_netdns.pl,1.2,1.3 check_wave.pl,1.2,1.3

[Subhendu Ghosh]

Update of /cvsroot/nagiosplug/nagiosplug/plugins-scripts
In directory usw-pr-cvs1:/tmp/cvs-serv20313

Modified Files:
	check_ntp.pl check_breeze.pl check_flexlm.pl check_ircd.pl 
	check_netdns.pl check_wave.pl 
Log Message:
2nd fix for ePN

Index: check_ntp.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/plugins-scripts/check_ntp.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** check_ntp.pl	2 May 2002 16:43:29 -0000	1.2
--- check_ntp.pl	7 May 2002 05:35:49 -0000	1.3
***************
*** 48,52 ****
  #           with master has been lost.
  #
! # Modifed to run under Embedded Perl - patch from Douglas Warner
  #
  
--- 48,52 ----
  #           with master has been lost.
  #
! # Modifed to run under Embedded Perl 
  #
  
***************
*** 57,63 ****
  use Getopt::Long;
  use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $verbose $PROGNAME);
! use FindBin;
! use lib "$FindBin::Bin";
  use utils qw($TIMEOUT %ERRORS &print_revision &support);
  
  sub print_help ();
--- 57,64 ----
  use Getopt::Long;
  use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $verbose $PROGNAME);
! use lib utils.pm ;
  use utils qw($TIMEOUT %ERRORS &print_revision &support);
+ 
+ $PROGNAME="check_ntp";
  
  sub print_help ();

Index: check_breeze.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/plugins-scripts/check_breeze.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** check_breeze.pl	2 May 2002 16:43:29 -0000	1.2
--- check_breeze.pl	7 May 2002 05:35:49 -0000	1.3
***************
*** 5,11 ****
  use Getopt::Long;
  use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);
! use FindBin;
! use lib "$FindBin::Bin" ;
  use utils qw(%ERRORS &print_revision &support &usage);
  
  sub print_help ();
--- 5,12 ----
  use Getopt::Long;
  use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);
! use lib utils.pm ;
  use utils qw(%ERRORS &print_revision &support &usage);
+ 
+ $PROGNAME = "check_breeze";
  
  sub print_help ();

Index: check_flexlm.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/plugins-scripts/check_flexlm.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** check_flexlm.pl	2 May 2002 16:43:29 -0000	1.2
--- check_flexlm.pl	7 May 2002 05:35:49 -0000	1.3
***************
*** 34,40 ****
  use Getopt::Long;
  use vars qw($opt_V $opt_h $opt_F $verbose $PROGNAME);
! use FindBin ;
! use lib "$FindBin::Bin";
  use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
  
  sub print_help ();
--- 34,41 ----
  use Getopt::Long;
  use vars qw($opt_V $opt_h $opt_F $verbose $PROGNAME);
! use lib utils.pm;
  use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
+ 
+ $PROGNAME="check_flexlm";
  
  sub print_help ();

Index: check_ircd.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/plugins-scripts/check_ircd.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** check_ircd.pl	2 May 2002 16:43:29 -0000	1.2
--- check_ircd.pl	7 May 2002 05:35:49 -0000	1.3
***************
*** 53,58 ****
  use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $verbose);
  use vars qw($PROGNAME);
! use FindBin;
! use lib "$FindBin::Bin";
  use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
  
--- 53,57 ----
  use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $verbose);
  use vars qw($PROGNAME);
! use lib utils.pm;
  use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
  
***************
*** 72,75 ****
--- 71,75 ----
  # -----------------------------------------------------------------[ Global ]--
  
+ $PROGNAME = "check_ircd";
  my $NICK="ircd$$";
  my $USER_INFO="monitor localhost localhost : ";

Index: check_netdns.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/plugins-scripts/check_netdns.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** check_netdns.pl	2 May 2002 16:43:29 -0000	1.2
--- check_netdns.pl	7 May 2002 05:35:49 -0000	1.3
***************
*** 7,10 ****
--- 7,13 ----
  #
  # $Log$
+ # Revision 1.3  2002/05/07 05:35:49  sghosh
+ # 2nd fix for ePN
+ #
  # Revision 1.2  2002/05/02 16:43:29  sghosh
  # fix for embedded perl
***************
*** 26,32 ****
  use Getopt::Long;
  use Net::DNS;
! use Findbin;
! use lib "$FindBin::Bin";
  use utils ;
  
  Getopt::Long::Configure(`bundling`);
--- 29,36 ----
  use Getopt::Long;
  use Net::DNS;
! use lib utils.pm;
  use utils ;
+ 
+ my $PROGNAME = "check_netdns";
  
  Getopt::Long::Configure(`bundling`);

Index: check_wave.pl
===================================================================
RCS file: /cvsroot/nagiosplug/nagiosplug/plugins-scripts/check_wave.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** check_wave.pl	2 May 2002 16:43:29 -0000	1.2
--- check_wave.pl	7 May 2002 05:35:49 -0000	1.3
***************
*** 5,10 ****
  
  use strict;
! use FindBin;
! use lib "$Findbin::Bin";
  use utils qw($TIMEOUT %ERRORS &print_revision &support);
  use vars qw($PROGNAME);
--- 5,9 ----
  
  use strict;
! use lib utils.pm;
  use utils qw($TIMEOUT %ERRORS &print_revision &support);
  use vars qw($PROGNAME);
***************
*** 14,17 ****
--- 13,17 ----
  my ($low, $med, $high, $lowavg, $medavg, $highavg, $tot, $ss);
  
+ $PROGNAME = "check_wave";
  sub print_help ();
  sub print_usage ();