summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSubhendu Ghosh <sghosh@users.sourceforge.net>2002-05-07 05:35:49 +0000
committerSubhendu Ghosh <sghosh@users.sourceforge.net>2002-05-07 05:35:49 +0000
commitd95644521ccd544cbb9a8bfeda927a6b9f6fb01a (patch)
treee4b0f1fc5d7ff91f23d211adf91f53b2debab74f
parentbecc0f34e60500798bd15bf5af6e4b8c52707d0a (diff)
downloadmonitoring-plugins-d95644521ccd544cbb9a8bfeda927a6b9f6fb01a.tar.gz
2nd fix for ePN
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@22 f882894a-f735-0410-b71e-b25c423dba1c
-rwxr-xr-xplugins-scripts/check_breeze.pl5
-rwxr-xr-xplugins-scripts/check_flexlm.pl5
-rwxr-xr-xplugins-scripts/check_ircd.pl4
-rwxr-xr-xplugins-scripts/check_netdns.pl8
-rwxr-xr-xplugins-scripts/check_ntp.pl7
-rwxr-xr-xplugins-scripts/check_wave.pl4
6 files changed, 20 insertions, 13 deletions
diff --git a/plugins-scripts/check_breeze.pl b/plugins-scripts/check_breeze.pl
index bd73f42a..c7728b8d 100755
--- a/plugins-scripts/check_breeze.pl
+++ b/plugins-scripts/check_breeze.pl
@@ -4,10 +4,11 @@
4use strict; 4use strict;
5use Getopt::Long; 5use Getopt::Long;
6use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME); 6use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $PROGNAME);
7use FindBin; 7use lib utils.pm ;
8use lib "$FindBin::Bin" ;
9use utils qw(%ERRORS &print_revision &support &usage); 8use utils qw(%ERRORS &print_revision &support &usage);
10 9
10$PROGNAME = "check_breeze";
11
11sub print_help (); 12sub print_help ();
12sub print_usage (); 13sub print_usage ();
13 14
diff --git a/plugins-scripts/check_flexlm.pl b/plugins-scripts/check_flexlm.pl
index 595a0b34..6bda29bd 100755
--- a/plugins-scripts/check_flexlm.pl
+++ b/plugins-scripts/check_flexlm.pl
@@ -33,10 +33,11 @@
33use strict; 33use strict;
34use Getopt::Long; 34use Getopt::Long;
35use vars qw($opt_V $opt_h $opt_F $verbose $PROGNAME); 35use vars qw($opt_V $opt_h $opt_F $verbose $PROGNAME);
36use FindBin ; 36use lib utils.pm;
37use lib "$FindBin::Bin";
38use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); 37use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
39 38
39$PROGNAME="check_flexlm";
40
40sub print_help (); 41sub print_help ();
41sub print_usage (); 42sub print_usage ();
42 43
diff --git a/plugins-scripts/check_ircd.pl b/plugins-scripts/check_ircd.pl
index 098a8e70..7a90a96b 100755
--- a/plugins-scripts/check_ircd.pl
+++ b/plugins-scripts/check_ircd.pl
@@ -52,8 +52,7 @@ use strict;
52use Getopt::Long; 52use Getopt::Long;
53use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $verbose); 53use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $verbose);
54use vars qw($PROGNAME); 54use vars qw($PROGNAME);
55use FindBin; 55use lib utils.pm;
56use lib "$FindBin::Bin";
57use utils qw($TIMEOUT %ERRORS &print_revision &support &usage); 56use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
58 57
59# ----------------------------------------------------[ Function Prototypes ]-- 58# ----------------------------------------------------[ Function Prototypes ]--
@@ -71,6 +70,7 @@ $ENV{BASH_ENV} = "";
71 70
72# -----------------------------------------------------------------[ Global ]-- 71# -----------------------------------------------------------------[ Global ]--
73 72
73$PROGNAME = "check_ircd";
74my $NICK="ircd$$"; 74my $NICK="ircd$$";
75my $USER_INFO="monitor localhost localhost : "; 75my $USER_INFO="monitor localhost localhost : ";
76 76
diff --git a/plugins-scripts/check_netdns.pl b/plugins-scripts/check_netdns.pl
index 65ad7beb..6872b932 100755
--- a/plugins-scripts/check_netdns.pl
+++ b/plugins-scripts/check_netdns.pl
@@ -6,6 +6,9 @@
6# Copyright 2000, virCIO, LLP 6# Copyright 2000, virCIO, LLP
7# 7#
8# $Log$ 8# $Log$
9# Revision 1.3 2002/05/07 05:35:49 sghosh
10# 2nd fix for ePN
11#
9# Revision 1.2 2002/05/02 16:43:29 sghosh 12# Revision 1.2 2002/05/02 16:43:29 sghosh
10# fix for embedded perl 13# fix for embedded perl
11# 14#
@@ -25,10 +28,11 @@
25 28
26use Getopt::Long; 29use Getopt::Long;
27use Net::DNS; 30use Net::DNS;
28use Findbin; 31use lib utils.pm;
29use lib "$FindBin::Bin";
30use utils ; 32use utils ;
31 33
34my $PROGNAME = "check_netdns";
35
32Getopt::Long::Configure(`bundling`); 36Getopt::Long::Configure(`bundling`);
33GetOptions("V" => $opt_V, "version" => $opt_V, 37GetOptions("V" => $opt_V, "version" => $opt_V,
34 "h" => $opt_h, "help" => $opt_h, 38 "h" => $opt_h, "help" => $opt_h,
diff --git a/plugins-scripts/check_ntp.pl b/plugins-scripts/check_ntp.pl
index 918ad504..9a58d78a 100755
--- a/plugins-scripts/check_ntp.pl
+++ b/plugins-scripts/check_ntp.pl
@@ -47,7 +47,7 @@
47# source. This happens while starting up and if contact 47# source. This happens while starting up and if contact
48# with master has been lost. 48# with master has been lost.
49# 49#
50# Modifed to run under Embedded Perl - patch from Douglas Warner 50# Modifed to run under Embedded Perl
51# 51#
52 52
53 53
@@ -56,10 +56,11 @@ use POSIX;
56use strict; 56use strict;
57use Getopt::Long; 57use Getopt::Long;
58use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $verbose $PROGNAME); 58use vars qw($opt_V $opt_h $opt_H $opt_w $opt_c $verbose $PROGNAME);
59use FindBin; 59use lib utils.pm ;
60use lib "$FindBin::Bin";
61use utils qw($TIMEOUT %ERRORS &print_revision &support); 60use utils qw($TIMEOUT %ERRORS &print_revision &support);
62 61
62$PROGNAME="check_ntp";
63
63sub print_help (); 64sub print_help ();
64sub print_usage (); 65sub print_usage ();
65 66
diff --git a/plugins-scripts/check_wave.pl b/plugins-scripts/check_wave.pl
index 6d58e4f4..a6b3d2de 100755
--- a/plugins-scripts/check_wave.pl
+++ b/plugins-scripts/check_wave.pl
@@ -4,8 +4,7 @@
4 4
5 5
6use strict; 6use strict;
7use FindBin; 7use lib utils.pm;
8use lib "$Findbin::Bin";
9use utils qw($TIMEOUT %ERRORS &print_revision &support); 8use utils qw($TIMEOUT %ERRORS &print_revision &support);
10use vars qw($PROGNAME); 9use vars qw($PROGNAME);
11use Getopt::Long; 10use Getopt::Long;
@@ -13,6 +12,7 @@ use vars qw($opt_V $opt_h $verbose $opt_w $opt_c $opt_H);
13my (@test, $low1, $med1, $high1, $snr, $low2, $med2, $high2); 12my (@test, $low1, $med1, $high1, $snr, $low2, $med2, $high2);
14my ($low, $med, $high, $lowavg, $medavg, $highavg, $tot, $ss); 13my ($low, $med, $high, $lowavg, $medavg, $highavg, $tot, $ss);
15 14
15$PROGNAME = "check_wave";
16sub print_help (); 16sub print_help ();
17sub print_usage (); 17sub print_usage ();
18 18