diff options
Diffstat (limited to 'contrib/check_wins.pl')
-rwxr-xr-x | contrib/check_wins.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/contrib/check_wins.pl b/contrib/check_wins.pl index 0d11737f..f11f8645 100755 --- a/contrib/check_wins.pl +++ b/contrib/check_wins.pl | |||
@@ -1,8 +1,7 @@ | |||
1 | #!/usr/bin/perl -w | 1 | #!/usr/bin/perl -w |
2 | 2 | ||
3 | # $Id$ | 3 | # $Id: check_wins.pl 940 2004-11-25 04:46:16Z stanleyhopcroft $ |
4 | 4 | ||
5 | # $Log$ | ||
6 | # Revision 1.3 2004/11/25 04:46:16 stanleyhopcroft | 5 | # Revision 1.3 2004/11/25 04:46:16 stanleyhopcroft |
7 | # Non functional tidy ups to check_wins | 6 | # Non functional tidy ups to check_wins |
8 | # | 7 | # |
@@ -190,7 +189,7 @@ sub print_usage () { | |||
190 | } | 189 | } |
191 | 190 | ||
192 | sub print_help () { | 191 | sub print_help () { |
193 | print_revision($PROGNAME,'$Revision$ '); | 192 | print_revision($PROGNAME,'$Revision: 940 $ '); |
194 | print "Copyright (c) 2001 Karl DeBisschop/S Hopcroft | 193 | print "Copyright (c) 2001 Karl DeBisschop/S Hopcroft |
195 | 194 | ||
196 | Perl Check WINS plugin for NetSaint. | 195 | Perl Check WINS plugin for NetSaint. |
@@ -237,7 +236,7 @@ The plugin works by | |||
237 | } | 236 | } |
238 | 237 | ||
239 | sub version () { | 238 | sub version () { |
240 | print_revision($PROGNAME,'$Revision$ '); | 239 | print_revision($PROGNAME,'$Revision: 940 $ '); |
241 | exit $ERRORS{'OK'}; | 240 | exit $ERRORS{'OK'}; |
242 | } | 241 | } |
243 | 242 | ||