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, |