diff options
author | Tar Committer <tar@ocjtech.us> | 2004-01-12 03:17:26 +0000 |
---|---|---|
committer | Tar Committer <tar@ocjtech.us> | 2004-01-12 03:17:26 +0000 |
commit | 989312339ea2e16579803a48700628c5469e327a (patch) | |
tree | 967ee77195819d70f2dc675444e92340bb98e0d6 /bin/rivrancid.in | |
parent | ff168ecfe045c690c24d5bbc5a3062bf9d64120c (diff) | |
download | rancid-989312339ea2e16579803a48700628c5469e327a.tar.gz rancid-989312339ea2e16579803a48700628c5469e327a.tar.xz rancid-989312339ea2e16579803a48700628c5469e327a.zip |
Imported from rancid-2.3.rc1.tar.gz.rancid-2.3.rc1
Diffstat (limited to 'bin/rivrancid.in')
-rw-r--r-- | bin/rivrancid.in | 344 |
1 files changed, 344 insertions, 0 deletions
diff --git a/bin/rivrancid.in b/bin/rivrancid.in new file mode 100644 index 0000000..8b9ae03 --- /dev/null +++ b/bin/rivrancid.in @@ -0,0 +1,344 @@ +#! @PERLV_PATH@ +## +## $Id: rivrancid.in,v 1.9 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. +## +# +# Amazingly hacked version of Hank's rancid - this one tries to +# deal with Cabletron, Riverstone and Enterasys routers/switches +# +# 10/23/2002 -- Initial changes for Riverstone/Cabletron support +# Jim Meehan -- jmeehan@vpizza.org +# +# RANCID - Really Awesome New Cisco confIg Differ +# +# usage: rivrancid [-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; # flogin timeout in seconds + +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,@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 "system show version" +sub ShowVersion { + my($slot); + + print STDERR " In ShowVersion: $_" if ($debug); + + while (<INPUT>) { + tr/\015//d; + next if /^\s*$/; + last if(/^$prompt/); + + ProcessHistory("VERSION","","","!SW: $_"); + } + ProcessHistory("VERSION","","","!\n"); + return(0); +} + +# This routine parses "system show hardware" +sub ShowHardware { + print STDERR " In ShowHardware: $_" if ($debug); + + while (<INPUT>) { + tr/\015//d; + last if (/^$prompt/); + ProcessHistory("HARDWARE","","","!HW: $_"); + } + ProcessHistory("","","","!\n"); + return(0); +} + +# This routine parses "system show uptime" +sub ShowUptime { + print STDERR " In ShowUptime: $_" if ($debug); + + while (<INPUT>) { + tr/\015//d; + last if(/^$prompt/); + next if /^\s*$/; + next if /System up/; + ProcessHistory("UPTIME","","","!UPTIME: $_"); + } + ProcessHistory("","","","!\n"); + return; +} + +# This routine processes a "system show active" +sub ShowActive { + print STDERR " In ShowActive: $_" if ($debug); + + while (<INPUT>) { + tr/\015//d; + + # Remove leading whitespace and/or line numbers + s/^\s*(\d+\D: )*//; + + # Riverstone/Cabletron doesn't have an "end" line, so + # we need to set $clean_run here + if (/^$prompt/) { + $clean_run = 1; + last; + } + + next if (/Running system configuration/); + + # filter out any RCS/CVS tags to avoid confusing local CVS storage + s/\$(Revision|Id):/ $1:/; + + if (/^(.*hashed-password \S+)/ && $filter_pwds == 2) { + ProcessHistory("","","","! $1 <removed>\n"); + next; + } + + if (/^(snmp set community )\S+/ && defined($ENV{'NOCOMMSTR'})) { + ProcessHistory("","","","! $1<removed>$'"); + next; + } + + ProcessHistory("","","","$_"); + } + return; +} + +# dummy function +sub DoNothing {print STDOUT;} + +# Main +%commands=( + 'system show uptime' => "ShowUptime", + 'system show version' => "ShowVersion", + 'system show hardware' => "ShowHardware", + 'system show active-config' => "ShowActive" +); + +# keys() doesnt return things in the order entered and the order of the +# cmds is important. pita + +@commands=( + "system show uptime", + "system show version", + "system show hardware", + "system show active-config" +); + +$cisco_cmds=join(";",@commands); +$cmds_regexp=join("|",@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 rivlogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($debug); + print STDOUT "executing rivlogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($log); + if (defined($ENV{NOPIPE})) { + system "rivlogin -t $timeo -c \"$cisco_cmds\" $host </dev/null > $host.raw 2>&1" || die "rivlogin failed for $host: $!\n"; + open(INPUT, "< $host.raw") || die "rivlogin failed for $host: $!\n"; + } else { + open(INPUT,"rivlogin -t $timeo -c \"$cisco_cmds\" $host </dev/null |") || die "rivlogin 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: riverstone\n!\n"); +TOP: while(<INPUT>) { + tr/\015//d; + last if ($clean_run); + if (/^Error:/) { + print STDOUT ("$host rivlogin error: $_"); + print STDERR ("$host rivlogin error: $_") if ($debug); + $clean_run=0; + last; + } + + $kradcount++; + + while (/\033(\[\?25l)/) { + s/\033\[\?25l//g; + #print STDERR "krad $1\n"; + #print STDERR $_; + #print STDERR $kradcount; + next; + } + + + 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 "$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) { + 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) { + 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); +} |