Solved! Was Re: not liking 3548XL ?

[john heasley]

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";