12 |
GetOptions("help" => \$help, |
GetOptions("help" => \$help, |
13 |
"delta|D:i" => \$delta, |
"delta|D:i" => \$delta, |
14 |
"debug" => \$debug, |
"debug" => \$debug, |
15 |
"ntp:s" => \@ntpservers, |
"ntp:s@" => \@ntpservers, |
16 |
"verbose" => \$verbose ); |
"verbose" => \$verbose ); |
17 |
|
|
18 |
my %ERRORS=(OK=>0, |
my %ERRORS=(OK=>0, |
28 |
print "UNKNOWN: no list of NTP servers found\n"; |
print "UNKNOWN: no list of NTP servers found\n"; |
29 |
exit $ERRORS{"UNKNOWN"}; |
exit $ERRORS{"UNKNOWN"}; |
30 |
} |
} |
31 |
|
# permit mulitple occurrences of --ntp or a comma separated argument lists to --ntp |
32 |
|
@ntpservers = split(/,/,join(',',@ntpservers)); |
33 |
my $ntpserverlist = ""; |
my $ntpserverlist = ""; |
34 |
foreach my $ntp ( @ntpservers ) { |
foreach my $ntp ( @ntpservers ) { |
35 |
# validate hostname |
# validate hostname |