diff options
Diffstat (limited to 'plugins-scripts/check_netdns.pl')
| -rwxr-xr-x | plugins-scripts/check_netdns.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/plugins-scripts/check_netdns.pl b/plugins-scripts/check_netdns.pl index ecdbdb1a..82939bff 100755 --- a/plugins-scripts/check_netdns.pl +++ b/plugins-scripts/check_netdns.pl | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | #!/usr/bin/perl -w | 1 | #!@PERL@ -w |
| 2 | 2 | ||
| 3 | # Perl version of check_dns plugin which calls DNS directly instead of | 3 | # Perl version of check_dns plugin which calls DNS directly instead of |
| 4 | # relying on nslookup (which has bugs) | 4 | # relying on nslookup (which has bugs) |
| @@ -27,11 +27,16 @@ | |||
| 27 | 27 | ||
| 28 | use Getopt::Long; | 28 | use Getopt::Long; |
| 29 | use Net::DNS; | 29 | use Net::DNS; |
| 30 | use lib utils.pm; | 30 | use FindBin; |
| 31 | use lib "$FindBin::Bin"; | ||
| 31 | use utils ; | 32 | use utils ; |
| 32 | 33 | ||
| 33 | my $PROGNAME = "check_netdns"; | 34 | my $PROGNAME = "check_netdns"; |
| 34 | 35 | ||
| 36 | $ENV{'PATH'}='@TRUSTED_PATH@'; | ||
| 37 | $ENV{'BASH_ENV'}=''; | ||
| 38 | $ENV{'ENV'}=''; | ||
| 39 | |||
| 35 | Getopt::Long::Configure(`bundling`); | 40 | Getopt::Long::Configure(`bundling`); |
| 36 | GetOptions("V" => $opt_V, "version" => $opt_V, | 41 | GetOptions("V" => $opt_V, "version" => $opt_V, |
| 37 | "h" => $opt_h, "help" => $opt_h, | 42 | "h" => $opt_h, "help" => $opt_h, |
