diff options
Diffstat (limited to 'bin/mrancid.in')
| -rw-r--r-- | bin/mrancid.in | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/bin/mrancid.in b/bin/mrancid.in index a97e4d9..f77779e 100644 --- a/bin/mrancid.in +++ b/bin/mrancid.in @@ -1,7 +1,8 @@ #! @PERLV_PATH@ ## -## $Id: mrancid.in,v 1.17 2006/05/28 16:38:51 heas Exp $ +## $Id: mrancid.in,v 1.19 2006/10/05 04:27:43 heas Exp $ ## +## @PACKAGE@ @VERSION@ ## Copyright (C) 1997-2006 by Terrapin Communications, Inc. ## All rights reserved. ## @@ -24,10 +25,14 @@ # # RANCID - Really Awesome New Cisco confIg Differ # -# usage: rancid [-d] [-l] [-f filename | hostname] +# usage: rancid [-dV] [-l] [-f filename | hostname] # use Getopt::Std; -getopts('dfl'); +getopts('dflV'); +if ($opt_V) { + print "@PACKAGE@ @VERSION@\n"; + exit(0); +} $log = $opt_l; $debug = $opt_d; $file = $opt_f; @@ -293,7 +298,6 @@ sub WriteTerm { ProcessHistory("IPHOST","numsort","$1","$_") && next; # end of config - #if (/^end(\n\[OK])?$/) { if (/^(: )?end$/) { $found_end = 1; return(1); |