1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
# Based on work of Matthew.Stier@fnc.fujitsu.com |
# Based on work of Matthew.Stier@fnc.fujitsu.com |
4 |
|
# |
5 |
|
# Dobrica Pavlinusic <dpavlin@rot13.org> |
6 |
|
# http://www.rot13.org/~dpavlin/sysadm.html |
7 |
|
# |
8 |
|
# Usage: parse_ntpq.pl host peer |
9 |
|
|
10 |
use strict; |
use strict; |
11 |
|
|
20 |
|
|
21 |
# Test for the number of arguments |
# Test for the number of arguments |
22 |
if ($#ARGV != 1) { |
if ($#ARGV != 1) { |
23 |
print STDERR "usage: $0 host peer\n"; |
print STDERR "usage: $0 host [peer|--config]\n"; |
24 |
exit 1; |
exit 1; |
25 |
} |
} |
26 |
|
|