[rancid] Minor Bug in nrancid

[Dan Mahoney, System Admin]

Perl complained about missing a curly bracket.  After using an editor to 
find matching brackets, I found that one's missing on line 200:

sub GetConf {
     print STDERR "    In GetConf: $_" if ($debug);
     while (<INPUT>) {
         tr/\015//d;
         next if /^\s*$/;
         last if(/$prompt/);

         if (/^set admin name "(\S+)"$/ && $filter_pwds >= 1) {
             ProcessHistory("ADMIN","","","!set admin name <removed>\n");
             next;
         }
         if (/^set admin password (\S+)$/ && $filter_pwds >= 1) {
             ProcessHistory("ADMIN","","","!set admin password 
<removed>\n");
             next;
         }
         if (/^set admin user (\S+) password (\S+) privilege (\S+)$/ &&
                                                         $filter_pwds >= 1) 
{
             ProcessHistory("ADMIN","","",
                 "!set admin user $1 password <removed> privilege $3\n");
             next;
HERE -->}
         ProcessHistory("","","","$_");
     }
     $found_end=1;
     return(1);
}

Please include this in the next version, whenever.

-Dan Mahoney


--

"I'm sorry, that is bull$@%^, but they did not say 'Exsqueeze Me' A Long Time Ago in a Galaxy Far Far Away."

-Richard Bozzello, on Jar Jar Binks

--------Dan Mahoney--------
Techie,  Sysadmin,  WebGeek
Gushi on efnet/undernet IRC
ICQ: 13735144   AIM: LarpGM
Site:  http://www.gushi.org
---------------------------