[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
---------------------------