Mailing List Archive

Solved! Was Re: not liking 3548XL ?
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";