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