[rancid] "End of run not found" what to do?
Lars Lystrup Christensen
llc at dansketelecom.com
Tue Aug 29 11:32:12 UTC 2006
Hi there
I'm currently working on a script to collect various informations about
some of our equipment (Nextnet Wireless Expedience).
I've tried to modify the "rancid" script to parse the output from my
login script, which works quite well. However when I run my rancid
script I get a "End of run not found".
I'm not quite sure where the problem is, so please give a hint :-)
The script is included right below:
---------------- START OF SCRIPT ------------------
#! /usr/bin/perl
##
## $Id: prancid.in,v 1.29 2004/01/11 03:49:13 heas Exp $
##
## Copyright (C) 1997-2004 by Terrapin Communications, Inc.
## All rights reserved.
##
## This software may be freely copied, modified and redistributed
## without fee for non-commerical purposes provided that this license
## remains intact and unmodified with any RANCID distribution.
##
## There is no warranty or other guarantee of fitness of this software.
## It is provided solely "as is". The author(s) disclaim(s) all
## responsibility and liability with respect to this software's usage
## or its effect upon hardware, computer systems, other software, or
## anything else.
##
## Except where noted otherwise, rancid was written by and is maintained
by
## Henry Kilmer, John Heasley, Andrew Partan, Pete Whiting, and Austin
Schutz.
##
#
# This version of rancid tries to deal with Nextnet Wireless Expedience
System.
# Done by Lars L. Christensen
#
# RANCID - Really Awesome New Cisco confIg Differ
#
# usage: expedrancid [-d] [-l] [-f filename | $host]
#
use Getopt::Std;
getopts('dfl');
$log = $opt_l;
$debug = $opt_d;
$file = $opt_f;
$host = $ARGV[0];
$clean_run = 0;
$found_end = 0;
$timeo = 90; # clogin timeout in seconds
my($platform); # platform/cpu type
my(%filter_pwds); # password filtering mode
# This routine is used to print out the router configuration
sub ProcessHistory {
my($new_hist_tag,$new_command,$command_string, at string)=(@_);
if((($new_hist_tag ne $hist_tag) || ($new_command ne $command))
&& defined %history) {
print eval "$command \%history";
undef %history;
}
if (($new_hist_tag) && ($new_command) && ($command_string)) {
if ($history{$command_string}) {
$history{$command_string} =
"$history{$command_string}@string";
} else {
$history{$command_string} = "@string";
}
} elsif (($new_hist_tag) && ($new_command)) {
$history{++$#history} = "@string";
} else {
print "@string";
}
$hist_tag = $new_hist_tag;
$command = $new_command;
1;
}
sub numerically { $a <=> $b; }
# This is a sort routing that will sort numerically on the
# keys of a hash as if it were a normal array.
sub keynsort {
local(%lines)=@_;
local($i) = 0;
local(@sorted_lines);
foreach $key (sort numerically keys(%lines)) {
$sorted_lines[$i] = $lines{$key};
$i++;
}
@sorted_lines;
}
# This is a sort routing that will sort on the
# keys of a hash as if it were a normal array.
sub keysort {
local(%lines)=@_;
local($i) = 0;
local(@sorted_lines);
foreach $key (sort keys(%lines)) {
$sorted_lines[$i] = $lines{$key};
$i++;
}
@sorted_lines;
}
# This is a sort routing that will sort on the
# values of a hash as if it were a normal array.
sub valsort{
local(%lines)=@_;
local($i) = 0;
local(@sorted_lines);
foreach $key (sort values %lines) {
$sorted_lines[$i] = $key;
$i++;
}
@sorted_lines;
}
# This is a numerical sort routing (ascending).
sub numsort {
local(%lines)=@_;
local($i) = 0;
local(@sorted_lines);
foreach $num (sort {$a <=> $b} keys %lines) {
$sorted_lines[$i] = $lines{$num};
$i++;
}
@sorted_lines;
}
# This is a sort routine that will sort on the
# ip address when the ip address is anywhere in
# the strings.
sub ipsort {
local(%lines)=@_;
local($i) = 0;
local(@sorted_lines);
foreach $addr (sort sortbyipaddr keys %lines) {
$sorted_lines[$i] = $lines{$addr};
$i++;
}
@sorted_lines;
}
# These two routines will sort based upon IP addresses
sub ipaddrval {
my(@a) = ($_[0] =~ m#^(\d+)\.(\d+)\.(\d+)\.(\d+)$#);
$a[3]+256*($a[2]+256*($a[1]+256*$a[0]));
}
sub sortbyipaddr {
&ipaddrval($a) <=> &ipaddrval($b);
}
# This routine parses "show version"
sub ShowVersion {
print STDERR " In ShowVersion: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if(/^$prompt/);
next if(/^(\s*|\s*$cmd\s*)$/);
return(-1) if (/command authorization failed/i);
/^version/ && ProcessHistory("COMMENTS","keysort","B1", "# $_")
&& next;
/^ATI/ && ProcessHistory("COMMENTS","keysort","B2", "# $_") &&
next;
/^ASIC/ && ProcessHistory("COMMENTS","keysort","B3", "# $_") &&
next;
}
return(0);
}
# This routine processes a "write term"
sub WriteTerm {
print STDERR " In WriteTerm: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if(/^$prompt/);
return(-1) if (/command authorization failed/i);
# filter out any RCS/CVS tags to avoid confusing local CVS
storage
s/\$(Revision|Id):/ $1:/;
# catch anything that wasnt matched above.
ProcessHistory("","","","$_");
# end of config.
if (/^$/) {
$found_end = 1;
return(1);
}
}
return(0);
}
# dummy function
sub DoNothing {print STDOUT;}
# Main
%commands=(
'show version' => "ShowVersion",
'show -fn' => "WriteTerm"
);
# keys() doesnt return things in the order entered and the order of the
# cmds is important (show version first and write term last). pita
@commands=(
"show version",
"show -fn"
);
$cisco_cmds=join(";", at commands);
$cmds_regexp=join("|", at commands);
open(OUTPUT,">$host.new") || die "Can't open $host.new for writing:
$!\n";
select(OUTPUT);
# make OUTPUT unbuffered if debugging
if ($debug) { $| = 1; }
if ($file) {
print STDERR "opening file $host\n" if ($debug);
print STDOUT "opening file $host\n" if ($log);
open(INPUT,"<$host") || die "open failed for $host: $!\n";
} else {
print STDERR "executing expedlogin -t $timeo -c \"$cisco_cmds\"
$host\n" if ($debug);
print STDOUT "executing expedlogin -t $timeo -c \"$cisco_cmds\"
$host\n" if ($log);
if (defined($ENV{NOPIPE})) {
system "expedlogin -t $timeo -c \"$cisco_cmds\" $host </dev/null
> $host.raw 2>&1" || die "expedlogin failed for $host: $!\n";
open(INPUT, "< $host.raw") || die "expedlogin failed for $host:
$!\n";
} else {
open(INPUT,"expedlogin -t $timeo -c \"$cisco_cmds\" $host
</dev/null |") || die "expedlogin failed for $host: $!\n";
}
}
# determine password filtering mode
if ($ENV{FILTER_PWDS} =~ /no/i) {
$filter_pwds = 0;
} elsif ($ENV{FILTER_PWDS} =~ /all/i) {
$filter_pwds = 2;
} else {
$filter_pwds = 1;
}
ProcessHistory("","","","\#RANCID-CONTENT-TYPE:
nextnetexpedience\n\#\n");
ProcessHistory("COMMENTS","keysort","B0","\#\n"); # show version
ProcessHistory("COMMENTS","keysort","Z0","\#\n");
TOP: while(<INPUT>) {
tr/\015//d;
if (/[>#]\s?exit$/) {
$clean_run=1;
last;
}
if (/^Error:/) {
print STDOUT ("$host expedlogin error: $_");
print STDERR ("$host expedlogin error: $_") if ($debug);
$clean_run=0;
last;
}
while (/[>#]\s*($cmds_regexp)\s*$/) {
$cmd = $1;
if (!defined($prompt)) {
$prompt = ($_ =~ /^([^>]+>)/)[0];
print STDERR ("PROMPT MATCH: $prompt\n") if ($debug);
}
print STDERR ("HIT COMMAND:$_") if ($debug);
if (! defined($commands{$cmd})) {
print STDERR "$host: found unexpected command - \"$cmd\"\n";
$clean_run = 0;
last TOP;
}
$rval = &{$commands{$cmd}};
delete($commands{$cmd});
if ($rval == -1) {
$clean_run = 0;
last TOP;
}
}
}
print STDOUT "Done $logincmd: $_\n" if ($log);
# Flush History
ProcessHistory("","","","");
# Cleanup
close(INPUT);
close(OUTPUT);
if (defined($ENV{NOPIPE})) {
unlink("$host.raw") if (! $debug);
}
# check for completeness
if (scalar(%commands) || !$clean_run || !$found_end) {
if (scalar(%commands)) {
printf(STDOUT "$host: missed cmd(s): %s\n", join(',',
keys(%commands)));
printf(STDERR "$host: missed cmd(s): %s\n", join(',',
keys(%commands))) if ($debug);
}
if (!$clean_run || !$found_end) {
print STDOUT "$host: End of run not found\n";
print STDERR "$host: End of run not found\n" if ($debug);
system("/usr/bin/tail -1 $host.new");
}
unlink "$host.new" if (! $debug);
}
------------- END OF SCRIPT ---------------
______________________________________
Med venlig hilsen / Kind regards
Lars Lystrup Christensen
Network Engineer
Danske Telecom A/S - Clearwire Denmark
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.shrubbery.net/pipermail/rancid-discuss/attachments/20060829/a5e8a345/attachment.html
More information about the Rancid-discuss
mailing list