From heas at shrubbery.net Thu Jan 11 06:43:13 2001 From: heas at shrubbery.net (john heasley) Date: Wed, 10 Jan 2001 22:43:13 -0800 Subject: Solved! Was Re: not liking 3548XL ? In-Reply-To: <200101110449.XAA20529@tower.partan.com>; from asp@partan.com on Wed, Jan 10, 2001 at 11:49:55PM -0500 References: <20010110173652.R30999@playboy.com> <200101110449.XAA20529@tower.partan.com> Message-ID: <20010110224313.C1406@shrubbery.net> Wed, Jan 10, 2001 at 11:49:55PM -0500, Andrew Partan: > > |>> Bug-report / wishlist - allow (){}[]\:; etc in router hostnames / > > figure out what it's choking on? > > Not a problem. We will accept patches for this (or other) fixes. > [I'm not a perl wizard.] > --asp this should do it, yes? Index: rancid.in =================================================================== RCS file: /home/rancid/.CVS/rancid/bin/rancid.in,v retrieving revision 1.69 diff -c -r1.69 rancid.in *** rancid.in 2001/01/08 04:55:05 1.69 --- rancid.in 2001/01/11 06:42:11 *************** *** 1079,1085 **** } while (/#\s*($cmds_regexp)\s*$/) { $cmd = $1; ! if (!defined($prompt)) {$prompt = ($_ =~ /^([^#]+#)/)[0]; } print STDERR ("HIT COMMAND:$_") if ($debug); if (! defined($commands{$cmd})) { print STDERR "found unexpected command - \"$cmd\"\n"; --- 1079,1088 ---- } while (/#\s*($cmds_regexp)\s*$/) { $cmd = $1; ! if (!defined($prompt)) { ! $prompt = ($_ =~ /^([^#]+#)/)[0]; ! $prompt =~ s/([}{)(\\])/\\$1/g; ! } print STDERR ("HIT COMMAND:$_") if ($debug); if (! defined($commands{$cmd})) { print STDERR "found unexpected command - \"$cmd\"\n";