From ac54243f382e817c08c1f895ccfdc05dcacdb044 Mon Sep 17 00:00:00 2001 From: Tar Committer Date: Sun, 14 Jan 2007 05:39:54 +0000 Subject: Imported from rancid-2.3.2a7.tar.gz. --- bin/srancid.in | 404 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 404 insertions(+) create mode 100755 bin/srancid.in (limited to 'bin/srancid.in') diff --git a/bin/srancid.in b/bin/srancid.in new file mode 100755 index 0000000..63c2e92 --- /dev/null +++ b/bin/srancid.in @@ -0,0 +1,404 @@ +#! @PERLV_PATH@ +## +## Pretty huge hack to take care of Dell Switch configs +## d_pfleger@juniper.net +## +## @PACKAGE@ @VERSION@ +## Copyright (C) 1997-2006 by Henry Kilmer. +## All rights reserved. +## +## This software may be freely copied, modified and redistributed +## fee for non-commerical purposes provided that this copyright notice +## preserved intact on all copies and modified copies. +## +## 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. +## +## +# +# RANCID - Really Awesome New Cisco confIg Differ +# +# usage: rancid [-dV] [-l] [-f filename | hostname] +# +use Getopt::Std; +getopts('dflV'); +if ($opt_V) { + print "@PACKAGE@ @VERSION@\n"; + exit(0); +} +$log = $opt_l; +$debug = $opt_d; +$file = $opt_f; +$host = $ARGV[0]; +$found_end = 0; +$timeo = 90; # hlogin timeout in seconds + +my(@commandtable, %commands, @commands);# command lists +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 routine 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 routine 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 routine 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 routine (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 "dir" +sub Dir { + print STDERR " In Dir: $_" if ($debug); + + while () { + s/^\s+\015//g; + tr/\015//d; + next if /^\s*$/; + last if(/$prompt/); + # pager remnants like: ^H^H^H ^H^H^H content + s/[\b]+\s*[\b]*//g; + + ProcessHistory("COMMENTS","keysort","D1","! $_"); + } + return(0); +} + + +sub ShowVer { + print STDERR " In ShowVer: $_" if ($debug); + + while () { + tr/\015//d; + next if /^\s*$/; + last if(/$prompt/); + # pager remnants like: ^H^H^H ^H^H^H content + s/[\b]+\s*[\b]*//g; + + ProcessHistory("COMMENTS","keysort","B1","! $_"); + } + return(0); +} + +sub ShowSys { + print STDERR " In ShowSys: $_" if ($debug); + + while () { + s/^\s+\015//g; + tr/\015//d; + next if /^\s*$/; + last if(/$prompt/); + # pager remnants like: ^H^H^H ^H^H^H content + s/[\b]+\s*[\b]*//g; + + # Remove Uptime + / Up time/ && next; + + /system description: (.*)/i && + ProcessHistory("COMMENTS","keysort","A1", "!Chassis type: $1\n") && + next; + + ProcessHistory("COMMENTS","keysort","C1","! $_"); + } + return(0); +} + +sub ShowVlan { + print STDERR " In ShowVlan: $_" if ($debug); + + while () { + s/^\s+\015//g; + tr/\015//d; + next if /^\s*$/; + last if(/$prompt/); + # pager remnants like: ^H^H^H ^H^H^H content + s/[\b]+\s*[\b]*//g; + + # Remove Uptime + / Up time/ && next; + ProcessHistory("COMMENTS","keysort","D1","! $_"); + } + return(0); +} + +# This routine processes a "write term" (aka show running-configuration) +sub WriteTerm { + my($comment) = (0); + print STDERR " In ShowRun: $_" if ($debug); + + while () { + tr/\015//d; + next if /^\s*$/; + last if(/$prompt/); + # pager remnants like: ^H^H^H ^H^H^H content + s/[\b]+\s*[\b]*//g; + + # skip consecutive comment lines + if (/^!/) { + next if ($comment); + ProcessHistory("","","",$_); + $comment++; + next; + } + $comment = 0; + + /^building running-config/ && next; + /^------+/ && ProcessHistory("","","","!$_") && next; + /^router configuration/i && ProcessHistory("","","","!$_") && next; + /^oob host config/i && ProcessHistory("","","","!$_") && next; + /^empty configuration/i && ProcessHistory("","","","!$_") && next; + + if (/^password (\S+) encrypted/ && $filter_pwds > 1) { + ProcessHistory("","","","!password encrypted\n"); + next; + } + if (/^password (\S+)$/ && $filter_pwds >= 1) { + ProcessHistory("","","","!password \n"); + next; + } + + if (/^(enable password level \d+) (\S+) encrypted/ && $filter_pwds > 1){ + ProcessHistory("","","","!$1 encrypted\n"); + next; + } + if (/^(enable password level \d+) (\S+)$/ && $filter_pwds >= 1) { + ProcessHistory("","","","!$1 $'\n"); + next; + } + + # order/prune snmp-server host statements + # we only prune lines of the form + # snmp-server host a.b.c.d + if (/^(snmp-server host) (\d+\.\d+\.\d+\.\d+) (\S+)/) { + if (defined($ENV{'NOCOMMSTR'})) { + ProcessHistory("SNMPSERVERHOST","ipsort", + "$2","!$1 $2 $'"); + } else { + ProcessHistory("SNMPSERVERHOST","ipsort","$2","$_"); + } + next; + } + if (/^(snmp-server community) (\S+)/) { + if (defined($ENV{'NOCOMMSTR'})) { + ProcessHistory("SNMPSERVERCOMM","keysort", + "$_","!$1 $'") && next; + } else { + ProcessHistory("SNMPSERVERCOMM","keysort","$2","$_") && next; + } + } + + # prune tacacs/radius server keys + if (/^(tacacs-server|radius-server) key \w+/ && $filter_pwds >= 1) { + ProcessHistory("","","","!$1 $'"); next; + } + + ProcessHistory("","","","$_"); + } + $found_end = 1; + return(1); +} + +# dummy function +sub DoNothing {print STDOUT;} + +# Main +@commandtable = ( + {'show system' => 'ShowSys'}, + {'show version' => 'ShowVer'}, + {'dir' => 'Dir'}, + {'show vlan' => 'ShowVlan'}, + {'show running-config' => 'WriteTerm'} +); +# Use an array to preserve the order of the commands and a hash for mapping +# commands to the subroutine and track commands that have been completed. +@commands = map(keys(%$_), @commandtable); +%commands = map(%$_, @commandtable); + +$cisco_cmds=join(";",@commands); +$cmds_regexp=join("|",@commands); + +if (length($host) == 0) { + if ($file) { + print(STDERR "Too few arguments: file name required\n"); + exit(1); + } else { + print(STDERR "Too few arguments: host name required\n"); + exit(1); + } +} +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 hlogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($debug); + print STDOUT "executing hlogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($log); + if (defined($ENV{NOPIPE})) { + system "hlogin -t $timeo -c \"$cisco_cmds\" $host $host.raw 2>&1" || die "hlogin failed for $host: $!\n"; + open(INPUT, "< $host.raw") || die "hlogin failed for $host: $!\n"; + } else { + open(INPUT,"hlogin -t $timeo -c \"$cisco_cmds\" $host ) { + tr/\015//d; + if (/^Error:/) { + print STDOUT ("$host dlogin error: $_"); + print STDERR ("$host dlogin error: $_") if ($debug); + last; + } + while (/#\s*($cmds_regexp)\s*$/) { + $cmd = $1; + if (!defined($prompt)) { + $prompt = ($_ =~ /^([^#]+#)/)[0]; + $prompt =~ s/([][}{)(\\])/\\$1/g; + 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"; + last TOP; + } + $rval = &{$commands{$cmd}}; + delete($commands{$cmd}); + if ($rval == -1) { + 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) || !$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 (!$found_end) { + print STDOUT "$found_end: found end\n"; + 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); +} -- cgit