diff options
Diffstat (limited to 'bin/hrancid.in')
-rw-r--r-- | bin/hrancid.in | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/bin/hrancid.in b/bin/hrancid.in index f26182d..0feefd0 100644 --- a/bin/hrancid.in +++ b/bin/hrancid.in @@ -1,7 +1,8 @@ #! @PERLV_PATH@ ## -## $Id: hrancid.in,v 1.25 2006/07/10 21:35:39 heas Exp $ +## $Id: hrancid.in,v 1.27 2006/10/05 04:27:42 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; @@ -160,8 +165,6 @@ sub ShowVersion { # This routine parses "show flash" sub ShowFlash { - # skip if this is 7000, 7200, 7500, or 12000; else we end up with - # redundant data from dir /all slot0: print STDERR " In ShowFlash: $_" if ($debug); while (<INPUT>) { |