diff options
author | Subhendu Ghosh <sghosh@users.sourceforge.net> | 2002-05-02 16:43:29 (GMT) |
---|---|---|
committer | Subhendu Ghosh <sghosh@users.sourceforge.net> | 2002-05-02 16:43:29 (GMT) |
commit | becc0f34e60500798bd15bf5af6e4b8c52707d0a (patch) | |
tree | c117e73085955568f57d4eb89f41640297796977 /plugins-scripts/check_netdns.pl | |
parent | bbcaeb1db1666c606a3578d3d24f1618f8c9947c (diff) | |
download | monitoring-plugins-becc0f34e60500798bd15bf5af6e4b8c52707d0a.tar.gz |
fix for embedded perl
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@21 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins-scripts/check_netdns.pl')
-rwxr-xr-x | plugins-scripts/check_netdns.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/plugins-scripts/check_netdns.pl b/plugins-scripts/check_netdns.pl index 4bf7bd7..65ad7be 100755 --- a/plugins-scripts/check_netdns.pl +++ b/plugins-scripts/check_netdns.pl | |||
@@ -6,8 +6,11 @@ | |||
6 | # Copyright 2000, virCIO, LLP | 6 | # Copyright 2000, virCIO, LLP |
7 | # | 7 | # |
8 | # $Log$ | 8 | # $Log$ |
9 | # Revision 1.1 2002/02/28 06:43:00 egalstad | 9 | # Revision 1.2 2002/05/02 16:43:29 sghosh |
10 | # Initial revision | 10 | # fix for embedded perl |
11 | # | ||
12 | # Revision 1.1.1.1 2002/02/28 06:43:00 egalstad | ||
13 | # Initial import of existing plugin code | ||
11 | # | 14 | # |
12 | # Revision 1.1 2000/08/03 20:41:12 karldebisschop | 15 | # Revision 1.1 2000/08/03 20:41:12 karldebisschop |
13 | # rename to avoid conflict when installing | 16 | # rename to avoid conflict when installing |
@@ -18,11 +21,15 @@ | |||
18 | # Revision 1.1 2000/07/20 19:09:13 cwg | 21 | # Revision 1.1 2000/07/20 19:09:13 cwg |
19 | # All the pieces needed to use my version of check_dns. | 22 | # All the pieces needed to use my version of check_dns. |
20 | # | 23 | # |
24 | # | ||
21 | 25 | ||
22 | use Getopt::Long; | 26 | use Getopt::Long; |
23 | use Net::DNS; | 27 | use Net::DNS; |
28 | use Findbin; | ||
29 | use lib "$FindBin::Bin"; | ||
30 | use utils ; | ||
24 | 31 | ||
25 | Getopt::Long::Configure(`bundling`); | 32 | Getopt::Long::Configure(`bundling`); |
26 | GetOptions("V" => $opt_V, "version" => $opt_V, | 33 | GetOptions("V" => $opt_V, "version" => $opt_V, |
27 | "h" => $opt_h, "help" => $opt_h, | 34 | "h" => $opt_h, "help" => $opt_h, |
28 | "t=i" => $opt_t, "timeout=i" => $opt_t, | 35 | "t=i" => $opt_t, "timeout=i" => $opt_t, |