From 989312339ea2e16579803a48700628c5469e327a Mon Sep 17 00:00:00 2001 From: Tar Committer Date: Mon, 12 Jan 2004 03:17:26 +0000 Subject: Imported from rancid-2.3.rc1.tar.gz. --- bin/rrancid.in | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) mode change 100755 => 100644 bin/rrancid.in (limited to 'bin/rrancid.in') diff --git a/bin/rrancid.in b/bin/rrancid.in old mode 100755 new mode 100644 index f242ec4..7674452 --- a/bin/rrancid.in +++ b/bin/rrancid.in @@ -1,28 +1,32 @@ -#!@PERLV_PATH@ +#! @PERLV_PATH@ ## -## hacked version of Hank's rancid - this one tries to deal with redbacks. +## $Id: rrancid.in,v 1.18 2004/01/11 03:49:13 heas Exp $ ## -## Copyright (C) 1997-2001 by Henry Kilmer. +## Copyright (C) 1997-2004 by Terrapin Communications, Inc. ## All rights reserved. ## -## This software may be freely copied, modified and redistributed without -## fee for non-commerical purposes provided that this copyright notice is -## preserved intact on all copies and modified copies. +## This software may be freely copied, modified and redistributed +## without fee for non-commerical purposes provided that this license +## remains intact and unmodified with any RANCID distribution. ## ## There is no warranty or other guarantee of fitness of this software. -## It is provided solely "as is". The author(s) disclaim(s) all +## It is provided solely "as is". The author(s) disclaim(s) all ## responsibility and liability with respect to this software's usage ## or its effect upon hardware, computer systems, other software, or ## anything else. ## +## Except where noted otherwise, rancid was written by and is maintained by +## Henry Kilmer, John Heasley, Andrew Partan, Pete Whiting, and Austin Schutz. ## # +# hacked version of Hank's rancid - this one tries to deal with redbacks. +# # RANCID - Really Awesome New Cisco confIg Differ # # usage: rancid [-d] [-l] [-f filename | $host] # use Getopt::Std; -getopts('dflm'); +getopts('dfl'); $log = $opt_l; $debug = $opt_d; $file = $opt_f; @@ -353,7 +357,8 @@ while() { $cmd = $1; if (!defined($prompt)) { $prompt = ($_ =~ /^([^#]*#)/)[0]; - $prompt =~ s/([][])/\\$1/g; # quote the damn []'s + $prompt =~ s/([][}{)(\\])/\\$1/g; # quote the damn []'s + print STDERR ("PROMPT MATCH: $prompt\n") if ($debug); } print STDERR ("HIT COMMAND:$_") if ($debug); if (! defined($commands{$cmd})) { -- cgit