2nd fix for ePN

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@22 f882894a-f735-0410-b71e-b25c423dba1c

diff --git a/plugins-scripts/check_breeze.pl b/plugins-scripts/check_breeze.pl
index bd73f42a554937fef4c3854f79c6c27a74df8d6d..c7728b8d211c6e1d4c8b1388dfd409193a51f6e6 100755 (executable)
--- a/plugins-scripts/check_breeze.pl
+++ b/plugins-scripts/check_breeze.pl
@@ -4,10 +4,11 @@
 use strict;
 use Getopt::Long;
 use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);
-use FindBin;
-use lib "$FindBin::Bin" ;
+use lib utils.pm ;
 use utils qw(%ERRORS &print_revision &support &usage);
 
+$PROGNAME = "check_breeze";
+
 sub print_help ();
 sub print_usage ();
 

diff --git a/plugins-scripts/check_flexlm.pl b/plugins-scripts/check_flexlm.pl
index 595a0b341c94e609611d603077bf555583c1fbe0..6bda29bdb3eb13651214a3a9d02eeb03c4126b42 100755 (executable)
--- a/plugins-scripts/check_flexlm.pl
+++ b/plugins-scripts/check_flexlm.pl
@@ -33,10 +33,11 @@
 use strict;
 use Getopt::Long;
 use vars qw($opt_V $opt_h $opt_F $verbose $PROGNAME);
-use FindBin ;
-use lib "$FindBin::Bin";
+use lib utils.pm;
 use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
 
+$PROGNAME="check_flexlm";
+
 sub print_help ();
 sub print_usage ();
 

diff --git a/plugins-scripts/check_ircd.pl b/plugins-scripts/check_ircd.pl
index 098a8e70adb0463623914bab34ea100ec1835766..7a90a96b5184163568b847798b0854661f8835d5 100755 (executable)
--- a/plugins-scripts/check_ircd.pl
+++ b/plugins-scripts/check_ircd.pl
@@ -52,8 +52,7 @@ use strict;
 use Getopt::Long;
 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 lib utils.pm;
 use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
 
 # ----------------------------------------------------[ Function Prototypes ]--
@@ -71,6 +70,7 @@ $ENV{BASH_ENV} = "";
 
 # -----------------------------------------------------------------[ Global ]--
 
+$PROGNAME = "check_ircd";
 my $NICK="ircd$$";
 my $USER_INFO="monitor localhost localhost : ";
        

diff --git a/plugins-scripts/check_netdns.pl b/plugins-scripts/check_netdns.pl
index 65ad7beb1aa774d521e371a65fea44382c322a65..6872b9320a813215f1d541b9bf3d0c94652a616f 100755 (executable)
--- a/plugins-scripts/check_netdns.pl
+++ b/plugins-scripts/check_netdns.pl
@@ -6,6 +6,9 @@
 # Copyright 2000, virCIO, LLP
 #
 # $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
 #
@@ -25,10 +28,11 @@
 
 use Getopt::Long;
 use Net::DNS;
-use Findbin;
-use lib "$FindBin::Bin";
+use lib utils.pm;
 use utils ;
 
+my $PROGNAME = "check_netdns";
+
 Getopt::Long::Configure(`bundling`);
 GetOptions("V" => $opt_V,         "version" => $opt_V,
                                         "h" => $opt_h,         "help" => $opt_h,

diff --git a/plugins-scripts/check_ntp.pl b/plugins-scripts/check_ntp.pl
index 918ad50422a81f16bfbf62a7a4595dc010941256..9a58d78ab3fb9f8bcd0eb1ed523dfc285cf03387 100755 (executable)
--- a/plugins-scripts/check_ntp.pl
+++ b/plugins-scripts/check_ntp.pl
@@ -47,7 +47,7 @@
 #           source. This happens while starting up and if contact
 #           with master has been lost.
 #
-# Modifed to run under Embedded Perl - patch from Douglas Warner
+# Modifed to run under Embedded Perl 
 #
 
 
@@ -56,10 +56,11 @@ use POSIX;
 use strict;
 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 lib utils.pm ;
 use utils qw($TIMEOUT %ERRORS &print_revision &support);
 
+$PROGNAME="check_ntp";
+
 sub print_help ();
 sub print_usage ();
 

diff --git a/plugins-scripts/check_wave.pl b/plugins-scripts/check_wave.pl
index 6d58e4f4f49edc1de1a06e17b400902a0a9eed07..a6b3d2de131a9711b005df7cd2e3ebc449993931 100755 (executable)
--- a/plugins-scripts/check_wave.pl
+++ b/plugins-scripts/check_wave.pl
@@ -4,8 +4,7 @@
 
 
 use strict;
-use FindBin;
-use lib "$Findbin::Bin";
+use lib utils.pm;
 use utils qw($TIMEOUT %ERRORS &print_revision &support);
 use vars qw($PROGNAME);
 use Getopt::Long;
@@ -13,6 +12,7 @@ use vars qw($opt_V $opt_h $verbose $opt_w $opt_c $opt_H);
 my (@test, $low1, $med1, $high1, $snr, $low2, $med2, $high2);
 my ($low, $med, $high, $lowavg, $medavg, $highavg, $tot, $ss);
 
+$PROGNAME = "check_wave";
 sub print_help ();
 sub print_usage ();