From 8c5c1d20fc744c7e60a6197fc397b44d424c65b8 Mon Sep 17 00:00:00 2001 From: Tar Committer Date: Sun, 20 Jun 1999 23:17:14 +0000 Subject: Imported from rancid-1.0.tar.gz. --- bin/jrancid | 327 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 327 insertions(+) create mode 100755 bin/jrancid (limited to 'bin/jrancid') diff --git a/bin/jrancid b/bin/jrancid new file mode 100755 index 0000000..b5b968e --- /dev/null +++ b/bin/jrancid @@ -0,0 +1,327 @@ +#!/usr/local/bin/perl +## +## Amazingly hacked version of Hank's rancid - this one tries to +## deal with Junipers. +## +## Original Rancid: Copyright (C) 1997 by Henry Kilmer. +## All rights reserved. +## +## This software may be freely copied, modified and redistributed without +## fee for non-commerical purposes provided that this copyright notice is +## 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: jrancid [-d] [-l] [-f filename | $host] +# +use Getopt::Std; +getopts('dfl'); +$debug = $opt_d; +$log = $opt_l; +$file = $opt_f; +$host = $ARGV[0]; + +$clean_run = 0; + +# 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); +} + +### +### Start of real work +### + +# This routine parses "show chassis clocks" +sub ShowChassisClocks { + print STDERR " In ShowChassisClocks: $_" if ($debug); + /error: the chassis subsystem is not running/ && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show chassis environment" +sub ShowChassisEnvironment { + print STDERR " In ShowChassisEnvironment: $_" if ($debug); + /error: the chassis subsystem is not running/ && return; + /Couldn\'t initiate connection/ && return; + / backplane temperature/ && return; + /(\s*Power supply.*), temperature/ && ProcessHistory("","","","# $1\n") && return; + /(\s*.+) +\d+ degrees C.*$/ && ProcessHistory("","","","# $1\n") && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show chassis firmware" +sub ShowChassisFirmware { + print STDERR " In ShowChassisFirmware: $_" if ($debug); + /error: the chassis subsystem is not running/ && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show chassis fpc detail" +sub ShowChassisFpcDetail { + print STDERR " In ShowChassisFpcDetail: $_" if ($debug); + /error: the chassis subsystem is not running/ && return; + / Temperature:/ && return; + / Start time:/ && return; + / Uptime:/ && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show chassis hardware" +sub ShowChassisHardware { + print STDERR " In ShowChassisHardware: $_" if ($debug); + /error: the chassis subsystem is not running/ && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show chassis routing-engine" +sub ShowChassisRoutingEngine { + print STDERR " In ShowChassisRoutingEngine: $_" if ($debug); + /^Routing Engine status:/ && ProcessHistory("","","","# $_") && return; + / DRAM:/ && ProcessHistory("","","","# $_") && return; + /^\s*$/ && ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show chassis scb" +sub ShowChassisSCB { + print STDERR " In ShowChassisSCB: $_" if ($debug); + /error: the chassis subsystem is not running/ && return; + / Temperature:/ && return; + / utilization:/ && return; + /time:/ && return; + / (IP|MLPS) routes:/ && return; + / used:/ && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show version" +sub ShowVersion { + print STDERR " In ShowVersionAndBlame: $_" if ($debug); + /^Juniper Networks is:/ && ProcessHistory("","","","\n$_") && return; + ProcessHistory("","","","# $_") && return; + return; +} + +# This routine parses "show configuration" +sub ShowConfiguration { + print STDERR " In ShowConfiguration: $_" if ($debug); + /^database header mismatch: / && return(-1); + s/(\s*authentication-key ).*$/#$1;/; + ProcessHistory("","","","$_") && return; + return; +} + +### +### End of real work +### + +# dummy function +sub DoNothing {print STDOUT;} + +# Main subroutine that splits up the work +# All Subs return the name of the next function to use. +# If the sub returns a new funtion name, that name will be used +# else the main loop keeps using the current function +sub FlailHelplessly { + print STDERR "Flailing: $_" if ($debug); + print STDOUT "Flailing: $_" if ($log); + /(show chassis clocks)/ && delete($commands{$1}) && return("ShowChassisClocks"); + /(show chassis environment)/ && delete($commands{$1}) && return("ShowChassisEnvironment"); + /(show chassis firmware)/ && delete($commands{$1}) && return("ShowChassisFirmware"); + /(show chassis fpc detail)/ && delete($commands{$1}) && return("ShowChassisFpcDetail"); + /(show chassis hardware)/ && delete($commands{$1}) && return("ShowChassisHardware"); + /(show chassis routing-engine)/ && delete($commands{$1}) && return("ShowChassisRoutingEngine"); + /(show chassis scb)/ && delete($commands{$1}) && return("ShowChassisSCB"); + /(show version)/ && delete($commands{$1}) && return("ShowVersion"); + /(show configuration)/ && delete($commands{$1}) && return("ShowConfiguration"); + return "FlailHelplessly"; +} + +# Main +@commands=("show chassis clocks", "show chassis environment", + "show chassis firmware", "show chassis fpc detail", + "show chassis hardware", "show chassis routing-engine", + "show chassis scb", "show version", "show configuration"); + +foreach $c (@commands) { $commands{$c} = 1; } +$jnx_commands=join(";",@commands); +$cmds_regexp=join("|",@commands); +$func = FlailHelplessly; + +open(OUTPUT,">$host.new") || die "Can't open $host.new for writing: $!\n"; +# make OUTPUT unbuffered +select(OUTPUT); $| = 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 echo jlogin -c\"$jnx_commands\" $host\n") if ($debug); + print(STDOUT "executing echo jlogin -c\"$jnx_commands\" $host\n") if ($debug); + open(INPUT,"jlogin -c\"$jnx_commands\" $host ) { + tr/\015//d; + if (/quit/) { + delete($commands{"quit"}); + $clean_run=1; + last; + } + if (/^Error:/) { + print STDOUT ("$host jlogin error: $_"); + print STDERR ("$host jlogin error: $_") if ($debug); + $clean_run=0; + last; + } + if (/System shutdown message/) { + print STDOUT ("$host shutdown msg: $_"); + print STDERR ("$host shutdown msg: $_") if ($debug); + $clean_run = 0; + last; + } + if (/($cmds_regexp)/) { + ProcessHistory("","","","# $host> $1\n"); + $func = FlailHelplessly; + print STDERR ("HIT COMMAND:$_") if ($debug); + } else { + $rval=eval $func; + if ($rval == -1) { + $clean_run = 0; + last; + } + $func=$rval if ($rval); + } +} +print STDOUT "Done jlogin: $_\n" if ($log); +# Flush History +ProcessHistory("","","",""); +# Cleanup +close(INPUT); +close(OUTPUT); + +# check for completeness +$commands = join(", ", keys(%commands)); +if (scalar(%commands) || !$clean_run) { + if (scalar(%commands)) { + print STDOUT "missed cmd(s): $commands\n"; + print STDERR "missed cmd(s): $commands[0]\n" if ($debug); + } + if (!$clean_run) { + print STDOUT "End of run not found - removing $host.new\n"; + print STDERR "End of run not found - removing $host.new\n" if ($debug); + system("/usr/bin/tail -1 $host.new"); + } + unlink "$host.new"; +} -- cgit