diff options
author | Jan Wagner <waja@cyconet.org> | 2015-10-04 19:50:18 +0200 |
---|---|---|
committer | Jan Wagner <waja@cyconet.org> | 2015-10-04 19:50:18 +0200 |
commit | 5ca1bff80cf86c290a0803f3cf37aee9bd57d41f (patch) | |
tree | 58ddc5f60319a596cec22715b2f6da5f59aa3c52 /plugins-scripts/check_netdns.pl | |
parent | 20d223119eb40bd1ecdd637eb845f5e16c87bd36 (diff) | |
download | monitoring-plugins-5ca1bff80cf86c290a0803f3cf37aee9bd57d41f.tar.gz |
check_netdns.pl: Prototyping functions
Diffstat (limited to 'plugins-scripts/check_netdns.pl')
-rwxr-xr-x | plugins-scripts/check_netdns.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/plugins-scripts/check_netdns.pl b/plugins-scripts/check_netdns.pl index af1456be..8c631089 100755 --- a/plugins-scripts/check_netdns.pl +++ b/plugins-scripts/check_netdns.pl | |||
@@ -32,6 +32,9 @@ use lib "$FindBin::Bin"; | |||
32 | use utils; | 32 | use utils; |
33 | 33 | ||
34 | my $PROGNAME = "check_netdns"; | 34 | my $PROGNAME = "check_netdns"; |
35 | sub print_help (); | ||
36 | sub print_version(); | ||
37 | sub print_usage (); | ||
35 | 38 | ||
36 | $ENV{'PATH'}='@TRUSTED_PATH@'; | 39 | $ENV{'PATH'}='@TRUSTED_PATH@'; |
37 | $ENV{'BASH_ENV'}=''; | 40 | $ENV{'BASH_ENV'}=''; |
@@ -43,7 +46,7 @@ GetOptions("V" => $opt_V, "version" => $opt_V, | |||
43 | "t=i" => $opt_t, "timeout=i" => $opt_t, | 46 | "t=i" => $opt_t, "timeout=i" => $opt_t, |
44 | "s=s" => $opt_s, "server=s" => $opt_s, | 47 | "s=s" => $opt_s, "server=s" => $opt_s, |
45 | "H=s" => $opt_H, "hostname=s" => $opt_H); | 48 | "H=s" => $opt_H, "hostname=s" => $opt_H); |
46 | 49 | ||
47 | # -h means display verbose help screen | 50 | # -h means display verbose help screen |
48 | if($opt_h){ print_help(); exit 0; } | 51 | if($opt_h){ print_help(); exit 0; } |
49 | 52 | ||