unknown
1970-01-01 00:00:00 UTC
# This routine parses "show license *"
sub ShowLicense {
print STDERR " In ShowLicense: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
/^-+$/ && next; # Skip lines of all dashes.
s/ Grace .+$/ Grace/; # Drop anything after Grace.
ProcessHistory("COMMENTS","","", "!LIC: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show system redundancy status"
sub ShowRedundancy {
print STDERR " In ShowRedundancy: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
return(1) if (/This command is not supported on this platform./);
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Red: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show environment"
sub ShowEnv {
print STDERR " In ShowEnv: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Env: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show environment temperature"
sub ShowEnvTemp {
print STDERR " In ShowEnvTemp: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
# Cut out CurTemp - drop the 2nd to last field.
#--------------------------------------------------------------------
#Module Sensor MajorThresh MinorThres CurTemp Status
# (Celsius) (Celsius) (Celsius)
#5 Outlet1 (s1) 125 125 33 Ok
#5 QEng1Sn1(s10) 115 105 39 Ok
s/^(.+\s)(\S+\s+)(\S+\s*)$/$1$3/;
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Env: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show environment power"
sub ShowEnvPower {
print STDERR " In ShowEnvPower: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
# Cut out Actual Output/Draw.
#Power Actual Total
#Supply Model Output Capacity Status
# (Watts ) (Watts )
#------- ------------------- ----------- ----------- --------------
#1 ------------ 0 W 0 W Absent
#3 749 W 5480 W Ok
# Actual Power
#Module Model Draw Allocated Status
# (Watts ) (Watts )
#------- ------------------- ----------- ----------- --------------
#2 NURBURGRING N/A 573 W Powered-Up
#fan1 N/A 720 W Powered-Up
s/ Actual / /;
s/ Output / /;
s/ \(Watts \) / /;
s/ Draw / /;
s/ ----------- / /;
s/ N\/A / / ||
s/ \d+ W / /; # Does not chop enough to line up.
/actual draw/ && next; # Drop changing total power output.
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Env: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show boot"
sub ShowBoot {
print STDERR " In ShowBoot: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
return(1) if (/\% Ambiguous command/i);
s/ variable = / = /;
ProcessHistory("COMMENTS","","","!Variable: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "dir /all ((disk|slot)N|bootflash|nvram):"
sub DirSlotN {
print STDERR " In DirSlotN: $_" if ($debug);
my($dev) = (/\s([^\s]+):/);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid URI path at /);
return(1) if (/\% Invalid command at /);
return(1) if /(No such device|Error Sending Request)/i;
return(1) if /\%Error: No such file or directory/;
return(1) if /No space information available/;
return(1) if / is either not present or not formatted/;
return(-1) if /\%Error calling/;
return(-1) if /(: device being squeezed|ATA_Status time out)/i; # busy
return(1) if /(Open device \S+ failed|Error opening \S+:)/;
return(1) if /(compact flash is either not present or not formatted)/;
if (/^\s*(\d+) bytes /) {
my($tmp) = int($1 / (1024 * 1024));
s/$1 bytes /$tmp MB /;
}
ProcessHistory("COMMENTS","","","!Flash: $dev: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show module".
sub ShowModule {
print STDERR " In ShowModule: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/online diag status/i);
last if (/^$prompt/);
next if (/^\s*$cmd\s*$/);
next if (/^\s+\^$/);
return(1) if (/\% Invalid number at /);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
s/(.*) \*$/$1/; # Drop a trailing '*'
/^\* this terminal session/ && next;
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Mod: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show inventory".
sub ShowInventory {
print STDERR " In ShowInventory: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
if (/^(NAME: "[^"]*",)\s+(DESCR: "[^"]+")/) {
ProcessHistory("COMMENTS","","", sprintf("!%-30s %s\n", $1, $2));
next;
}
# split PID/VID/SN line
if (/^PID: (\S*)\s*,\s+VID: (\S*)\s*,\s+SN: (\S*)\s*$/) {
my($entries) = "";
$entries .= "!PID: $1\n" if ($1);
$entries .= "!VID: $2\n" if ($2);
$entries .= "!SN: $3\n" if ($3);
ProcessHistory("COMMENTS","","", "$entries");
next;
}
# split broken PID/VID/SN lines.
if (/^PID: (\S*)\s*,\s+VID: (\S*)\s*$/) {
my($entries) = "";
$entries .= "!PID: $1\n" if ($1);
$entries .= "!VID: $2\n" if ($2);
<INPUT>;
tr/\015//d;
/^\s*,\s+SN: (\S*)\s*$/;
$entries .= "!SN: $1\n" if ($1);
ProcessHistory("COMMENTS","","", "$entries");
next;
}
ProcessHistory("COMMENTS","","","!$_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show vtp status"
sub ShowVTP {
print STDERR " In ShowVTP: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
next if (/^Configuration last modified by/);
# the pager can not be disabled per-session on the PIX
if (/^(<-+ More -+>)/) {
my($len) = length($1);
s/^$1\s{$len}//;
}
if (/^VTP Operating Mode\s+:\s+(Transparent|Server)/) {
$DO_SHOW_VLAN = 1;
}
ProcessHistory("COMMENTS","","","!VTP: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show vlan"
sub ShowVLAN {
print STDERR " In ShowVLAN: $_" if ($debug);
($_ = <INPUT>, return(1)) if (!$DO_SHOW_VLAN);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
return(1) if (/\% Ambiguous command/i);
ProcessHistory("COMMENTS","","","!VLAN: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show debug"
sub ShowDebug {
print STDERR " In ShowDebug: $_" if ($debug);
my($lines) = 0;
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
# return(1) if (/\% Permission denied/);
# NX 5000 bug? "show debug" generate some
# "Permission denied" when using permit command rules on account.
next if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
/^No matching debug flags set$/ && next;
/^No debug flags set$/ && next;
ProcessHistory("COMMENTS","","","!DEBUG: $_");
$lines++;
}
if ($lines) {
ProcessHistory("COMMENTS","","","!\n");
}
return(0);
}
# This routine parses "show cores"
sub ShowCores {
print STDERR " In ShowCores: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
ProcessHistory("COMMENTS","","","!CORES: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show processes log"
sub ShowProcLog {
print STDERR " In ShowProcLog: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
ProcessHistory("COMMENTS","","","!PROC_LOGS: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine processes a "write term"
sub WriteTerm {
print STDERR " In WriteTerm: $_" if ($debug);
my($lineauto,$comment,$linecnt) = (0,0,0);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
return(1) if (/(Invalid input detected|Type help or )/i);
next if (/^\s+\^$/);
return(1) if (/\% Invalid command at /);
return(0) if ($found_end); # Only do this routine once
$linecnt++;
$lineauto = 0 if (/^[^ ]/);
# Dog gone Cool matches to process the rest of the config
/^!Command: show running-config/ && next; # kill this junk
/^!Time: / && next; # kill this junk
# Sort username and delete passwords.
if (/^username (\S+) password (\d) (\S+)(\s.*)$/) {
if ($filter_pwds >= 2) {
ProcessHistory("USER","keysort","$1","!username $1 password <removed>$4\n");
} elsif ($filter_pwds >= 1 && $2 ne "5") {
ProcessHistory("USER","keysort","$1","!username $1 password <removed>$4\n");
} else {
ProcessHistory("USER","keysort","$1","$_");
}
next;
}
# Sort any other username info.
/^username (\S+) .*$/ && ProcessHistory("USER","keysort","$1","$_") && next;
# Sort snmp user and delete passwords.
if (/^snmp-server user (\S+) (\S+) auth md5 (\S+) priv (\S+) localizedkey$/) {
if ($filter_pwds >= 2) {
ProcessHistory("SNMP-USER","keysort","$1","!snmp-server user $1 $2 auth md5 <removed> priv <removed> localizedkey\n");
} else {
ProcessHistory("SNMP-USER","keysort","$1","$_");
}
next;
}
# Sort any other snmp user info.
/^snmp-server user (\S+) .*$/ && ProcessHistory("SNMP-USER","keysort","$1","$_") && next;
# Delete bgp passwords.
if (/^(\s*)password (\d) (\S+)(\s.*)?$/) {
if ($filter_pwds >= 2) {
ProcessHistory("","","","!$1password <removed>$4");
} elsif ($filter_pwds >= 1 && $2 ne "5") {
ProcessHistory("","","","!$1password <removed>$4");
} else {
ProcessHistory("","","","$_");
}
next;
}
# order cli alias names
/^cli alias name (\S+) .*$/ &&
ProcessHistory("CLI-ALIAS","keysort","$1","$_") && next;
# order snmp-server enable trap statements
/^snmp-server enable traps (.*)$/ &&
ProcessHistory("SNMP-TRAPS","keysort","$1","$_") && next;
# catch anything that wasnt matched above.
ProcessHistory("","","","$_");
# end of config. the ": " game is for the PIX
if (/^(: +)?end$/) {
$found_end = 1;
return(0);
}
}
# The ContentEngine lacks a definitive "end of config" marker. If we
# know that it is a CE, SAN, or NXOS and we have seen at least 5 lines
# of write term output, we can be reasonably sure that we got the config.
if (($type == "CE" || $type == "SAN" || $type == "NXOS" ) && $linecnt > 5) {
$found_end = 1;
return(0);
}
return(0);
}
# This routine parses a single command that returns no required info.
sub RunCommand {
print STDERR " In RunCommand: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
return(1) if /Line has invalid autocommand /;
return(1) if (/(Invalid input detected|Type help or )/i);
}
return(0);
}
# dummy function
sub DoNothing {print STDOUT;}
##############################
# add these:
# show version module X - wait until can show all
# show version module X epld - wait until can show all
##############################
# Main
@commandtable = (
{'show version' => 'ShowVersion'},
{'show version build-info all' => 'ShowVersionBuild'},
{'show license' => 'ShowLicense'},
{'show license usage' => 'ShowLicense'},
{'show license host-id' => 'ShowLicense'},
{'show system redundancy status' => 'ShowRedundancy'},
{'show environment clock' => 'ShowEnv'},
{'show environment fan' => 'ShowEnv'},
{'show environment fex all fan' => 'ShowEnv'},
{'show environment temperature' => 'ShowEnvTemp'},
{'show environment power' => 'ShowEnvPower'},
{'show boot' => 'ShowBoot'},
{'dir bootflash:' => 'DirSlotN'},
{'dir debug:' => 'DirSlotN'},
{'dir logflash:' => 'DirSlotN'},
{'dir slot0:' => 'DirSlotN'},
{'dir usb1:' => 'DirSlotN'},
{'dir usb2:' => 'DirSlotN'},
{'dir volatile:' => 'DirSlotN'},
{'show module' => 'ShowModule'},
{'show module xbar' => 'ShowModule'},
{'show inventory' => 'ShowInventory'},
{'show vtp status' => 'ShowVTP'}, # drop?
{'show vlan' => 'ShowVLAN'},
{'show debug' => 'ShowDebug'},
{'show cores vdc-all' => 'ShowCores'},
{'show processes log vdc-all' => 'ShowProcLog'},
{'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("|", map quotemeta($_), @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 clogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($debug);
print STDOUT "executing clogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($log);
if (defined($ENV{NOPIPE}) && $ENV{NOPIPE} =~ /^YES/i) {
system "clogin -t $timeo -c \"$cisco_cmds\" $host </dev/null > $host.raw 2>&1" || die "clogin failed for $host: $!\n";
open(INPUT, "< $host.raw") || die "clogin failed for $host: $!\n";
} else {
open(INPUT,"clogin -t $timeo -c \"$cisco_cmds\" $host </dev/null |") || die "clogin failed for $host: $!\n";
}
}
# determine ACL sorting mode
if ($ENV{"ACLSORT"} =~ /no/i) {
$aclsort = "";
}
# determine community string filtering mode
if (defined($ENV{"NOCOMMSTR"}) &&
($ENV{"NOCOMMSTR"} =~ /yes/i || $ENV{"NOCOMMSTR"} =~ /^$/)) {
$filter_commstr = 1;
} else {
$filter_commstr = 0;
}
# 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: cisco-nx\n!\n");
TOP: while(<INPUT>) {
tr/\015//d;
if (/[>#]\s?exit$/) {
print STDERR ("$host: found exit\n") if ($debug);
$clean_run = 1;
last;
}
if (/^Error:/) {
print STDOUT ("$host clogin error: $_");
print STDERR ("$host clogin error: $_") if ($debug);
$clean_run = 0;
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";
$clean_run = 0;
last TOP;
}
$rval = &{$commands{$cmd}};
delete($commands{$cmd});
if ($rval == -1) {
$clean_run = 0;
print STDERR ("$host: $cmd failed: $rval\n") if ($debug);
last TOP;
}
if (/[>#]\s?exit$/) {
print STDERR ("$host: found exit\n") if ($debug);
$clean_run = 1;
last TOP;
}
}
}
print STDOUT "Done $logincmd: $_\n" if ($log);
# Flush History
ProcessHistory("","","","");
# Cleanup
close(INPUT);
close(OUTPUT);
if (defined($ENV{NOPIPE}) && $ENV{NOPIPE} =~ /^YES/i) {
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);
print STDERR "$host: clean: $clean_run, end: $found_end\n" if ($debug);
system("/usr/bin/tail -1 $host.new");
}
unlink "$host.new" if (! $debug);
}
--------------090407060207040700000209--
sub ShowLicense {
print STDERR " In ShowLicense: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
/^-+$/ && next; # Skip lines of all dashes.
s/ Grace .+$/ Grace/; # Drop anything after Grace.
ProcessHistory("COMMENTS","","", "!LIC: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show system redundancy status"
sub ShowRedundancy {
print STDERR " In ShowRedundancy: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
return(1) if (/This command is not supported on this platform./);
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Red: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show environment"
sub ShowEnv {
print STDERR " In ShowEnv: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Env: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show environment temperature"
sub ShowEnvTemp {
print STDERR " In ShowEnvTemp: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
# Cut out CurTemp - drop the 2nd to last field.
#--------------------------------------------------------------------
#Module Sensor MajorThresh MinorThres CurTemp Status
# (Celsius) (Celsius) (Celsius)
#5 Outlet1 (s1) 125 125 33 Ok
#5 QEng1Sn1(s10) 115 105 39 Ok
s/^(.+\s)(\S+\s+)(\S+\s*)$/$1$3/;
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Env: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show environment power"
sub ShowEnvPower {
print STDERR " In ShowEnvPower: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
# Cut out Actual Output/Draw.
#Power Actual Total
#Supply Model Output Capacity Status
# (Watts ) (Watts )
#------- ------------------- ----------- ----------- --------------
#1 ------------ 0 W 0 W Absent
#3 749 W 5480 W Ok
# Actual Power
#Module Model Draw Allocated Status
# (Watts ) (Watts )
#------- ------------------- ----------- ----------- --------------
#2 NURBURGRING N/A 573 W Powered-Up
#fan1 N/A 720 W Powered-Up
s/ Actual / /;
s/ Output / /;
s/ \(Watts \) / /;
s/ Draw / /;
s/ ----------- / /;
s/ N\/A / / ||
s/ \d+ W / /; # Does not chop enough to line up.
/actual draw/ && next; # Drop changing total power output.
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Env: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show boot"
sub ShowBoot {
print STDERR " In ShowBoot: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
return(1) if (/\% Ambiguous command/i);
s/ variable = / = /;
ProcessHistory("COMMENTS","","","!Variable: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "dir /all ((disk|slot)N|bootflash|nvram):"
sub DirSlotN {
print STDERR " In DirSlotN: $_" if ($debug);
my($dev) = (/\s([^\s]+):/);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid URI path at /);
return(1) if (/\% Invalid command at /);
return(1) if /(No such device|Error Sending Request)/i;
return(1) if /\%Error: No such file or directory/;
return(1) if /No space information available/;
return(1) if / is either not present or not formatted/;
return(-1) if /\%Error calling/;
return(-1) if /(: device being squeezed|ATA_Status time out)/i; # busy
return(1) if /(Open device \S+ failed|Error opening \S+:)/;
return(1) if /(compact flash is either not present or not formatted)/;
if (/^\s*(\d+) bytes /) {
my($tmp) = int($1 / (1024 * 1024));
s/$1 bytes /$tmp MB /;
}
ProcessHistory("COMMENTS","","","!Flash: $dev: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show module".
sub ShowModule {
print STDERR " In ShowModule: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/online diag status/i);
last if (/^$prompt/);
next if (/^\s*$cmd\s*$/);
next if (/^\s+\^$/);
return(1) if (/\% Invalid number at /);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
s/(.*) \*$/$1/; # Drop a trailing '*'
/^\* this terminal session/ && next;
s/ +$//; # Drop trailing ' '
ProcessHistory("COMMENTS","","","!Mod: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show inventory".
sub ShowInventory {
print STDERR " In ShowInventory: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
if (/^(NAME: "[^"]*",)\s+(DESCR: "[^"]+")/) {
ProcessHistory("COMMENTS","","", sprintf("!%-30s %s\n", $1, $2));
next;
}
# split PID/VID/SN line
if (/^PID: (\S*)\s*,\s+VID: (\S*)\s*,\s+SN: (\S*)\s*$/) {
my($entries) = "";
$entries .= "!PID: $1\n" if ($1);
$entries .= "!VID: $2\n" if ($2);
$entries .= "!SN: $3\n" if ($3);
ProcessHistory("COMMENTS","","", "$entries");
next;
}
# split broken PID/VID/SN lines.
if (/^PID: (\S*)\s*,\s+VID: (\S*)\s*$/) {
my($entries) = "";
$entries .= "!PID: $1\n" if ($1);
$entries .= "!VID: $2\n" if ($2);
<INPUT>;
tr/\015//d;
/^\s*,\s+SN: (\S*)\s*$/;
$entries .= "!SN: $1\n" if ($1);
ProcessHistory("COMMENTS","","", "$entries");
next;
}
ProcessHistory("COMMENTS","","","!$_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show vtp status"
sub ShowVTP {
print STDERR " In ShowVTP: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
next if (/^Configuration last modified by/);
# the pager can not be disabled per-session on the PIX
if (/^(<-+ More -+>)/) {
my($len) = length($1);
s/^$1\s{$len}//;
}
if (/^VTP Operating Mode\s+:\s+(Transparent|Server)/) {
$DO_SHOW_VLAN = 1;
}
ProcessHistory("COMMENTS","","","!VTP: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show vlan"
sub ShowVLAN {
print STDERR " In ShowVLAN: $_" if ($debug);
($_ = <INPUT>, return(1)) if (!$DO_SHOW_VLAN);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
return(1) if (/\% Ambiguous command/i);
ProcessHistory("COMMENTS","","","!VLAN: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show debug"
sub ShowDebug {
print STDERR " In ShowDebug: $_" if ($debug);
my($lines) = 0;
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
# return(1) if (/\% Permission denied/);
# NX 5000 bug? "show debug" generate some
# "Permission denied" when using permit command rules on account.
next if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
/^No matching debug flags set$/ && next;
/^No debug flags set$/ && next;
ProcessHistory("COMMENTS","","","!DEBUG: $_");
$lines++;
}
if ($lines) {
ProcessHistory("COMMENTS","","","!\n");
}
return(0);
}
# This routine parses "show cores"
sub ShowCores {
print STDERR " In ShowCores: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
ProcessHistory("COMMENTS","","","!CORES: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine parses "show processes log"
sub ShowProcLog {
print STDERR " In ShowProcLog: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
next if (/^(\s*|\s*$cmd\s*)$/);
next if (/^\s+\^$/);
return(1) if (/\% Permission denied/);
return(1) if (/\% Invalid command at /);
ProcessHistory("COMMENTS","","","!PROC_LOGS: $_");
}
ProcessHistory("COMMENTS","","","!\n");
return(0);
}
# This routine processes a "write term"
sub WriteTerm {
print STDERR " In WriteTerm: $_" if ($debug);
my($lineauto,$comment,$linecnt) = (0,0,0);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
return(1) if (/(Invalid input detected|Type help or )/i);
next if (/^\s+\^$/);
return(1) if (/\% Invalid command at /);
return(0) if ($found_end); # Only do this routine once
$linecnt++;
$lineauto = 0 if (/^[^ ]/);
# Dog gone Cool matches to process the rest of the config
/^!Command: show running-config/ && next; # kill this junk
/^!Time: / && next; # kill this junk
# Sort username and delete passwords.
if (/^username (\S+) password (\d) (\S+)(\s.*)$/) {
if ($filter_pwds >= 2) {
ProcessHistory("USER","keysort","$1","!username $1 password <removed>$4\n");
} elsif ($filter_pwds >= 1 && $2 ne "5") {
ProcessHistory("USER","keysort","$1","!username $1 password <removed>$4\n");
} else {
ProcessHistory("USER","keysort","$1","$_");
}
next;
}
# Sort any other username info.
/^username (\S+) .*$/ && ProcessHistory("USER","keysort","$1","$_") && next;
# Sort snmp user and delete passwords.
if (/^snmp-server user (\S+) (\S+) auth md5 (\S+) priv (\S+) localizedkey$/) {
if ($filter_pwds >= 2) {
ProcessHistory("SNMP-USER","keysort","$1","!snmp-server user $1 $2 auth md5 <removed> priv <removed> localizedkey\n");
} else {
ProcessHistory("SNMP-USER","keysort","$1","$_");
}
next;
}
# Sort any other snmp user info.
/^snmp-server user (\S+) .*$/ && ProcessHistory("SNMP-USER","keysort","$1","$_") && next;
# Delete bgp passwords.
if (/^(\s*)password (\d) (\S+)(\s.*)?$/) {
if ($filter_pwds >= 2) {
ProcessHistory("","","","!$1password <removed>$4");
} elsif ($filter_pwds >= 1 && $2 ne "5") {
ProcessHistory("","","","!$1password <removed>$4");
} else {
ProcessHistory("","","","$_");
}
next;
}
# order cli alias names
/^cli alias name (\S+) .*$/ &&
ProcessHistory("CLI-ALIAS","keysort","$1","$_") && next;
# order snmp-server enable trap statements
/^snmp-server enable traps (.*)$/ &&
ProcessHistory("SNMP-TRAPS","keysort","$1","$_") && next;
# catch anything that wasnt matched above.
ProcessHistory("","","","$_");
# end of config. the ": " game is for the PIX
if (/^(: +)?end$/) {
$found_end = 1;
return(0);
}
}
# The ContentEngine lacks a definitive "end of config" marker. If we
# know that it is a CE, SAN, or NXOS and we have seen at least 5 lines
# of write term output, we can be reasonably sure that we got the config.
if (($type == "CE" || $type == "SAN" || $type == "NXOS" ) && $linecnt > 5) {
$found_end = 1;
return(0);
}
return(0);
}
# This routine parses a single command that returns no required info.
sub RunCommand {
print STDERR " In RunCommand: $_" if ($debug);
while (<INPUT>) {
tr/\015//d;
last if (/^$prompt/);
return(1) if /Line has invalid autocommand /;
return(1) if (/(Invalid input detected|Type help or )/i);
}
return(0);
}
# dummy function
sub DoNothing {print STDOUT;}
##############################
# add these:
# show version module X - wait until can show all
# show version module X epld - wait until can show all
##############################
# Main
@commandtable = (
{'show version' => 'ShowVersion'},
{'show version build-info all' => 'ShowVersionBuild'},
{'show license' => 'ShowLicense'},
{'show license usage' => 'ShowLicense'},
{'show license host-id' => 'ShowLicense'},
{'show system redundancy status' => 'ShowRedundancy'},
{'show environment clock' => 'ShowEnv'},
{'show environment fan' => 'ShowEnv'},
{'show environment fex all fan' => 'ShowEnv'},
{'show environment temperature' => 'ShowEnvTemp'},
{'show environment power' => 'ShowEnvPower'},
{'show boot' => 'ShowBoot'},
{'dir bootflash:' => 'DirSlotN'},
{'dir debug:' => 'DirSlotN'},
{'dir logflash:' => 'DirSlotN'},
{'dir slot0:' => 'DirSlotN'},
{'dir usb1:' => 'DirSlotN'},
{'dir usb2:' => 'DirSlotN'},
{'dir volatile:' => 'DirSlotN'},
{'show module' => 'ShowModule'},
{'show module xbar' => 'ShowModule'},
{'show inventory' => 'ShowInventory'},
{'show vtp status' => 'ShowVTP'}, # drop?
{'show vlan' => 'ShowVLAN'},
{'show debug' => 'ShowDebug'},
{'show cores vdc-all' => 'ShowCores'},
{'show processes log vdc-all' => 'ShowProcLog'},
{'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("|", map quotemeta($_), @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 clogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($debug);
print STDOUT "executing clogin -t $timeo -c\"$cisco_cmds\" $host\n" if ($log);
if (defined($ENV{NOPIPE}) && $ENV{NOPIPE} =~ /^YES/i) {
system "clogin -t $timeo -c \"$cisco_cmds\" $host </dev/null > $host.raw 2>&1" || die "clogin failed for $host: $!\n";
open(INPUT, "< $host.raw") || die "clogin failed for $host: $!\n";
} else {
open(INPUT,"clogin -t $timeo -c \"$cisco_cmds\" $host </dev/null |") || die "clogin failed for $host: $!\n";
}
}
# determine ACL sorting mode
if ($ENV{"ACLSORT"} =~ /no/i) {
$aclsort = "";
}
# determine community string filtering mode
if (defined($ENV{"NOCOMMSTR"}) &&
($ENV{"NOCOMMSTR"} =~ /yes/i || $ENV{"NOCOMMSTR"} =~ /^$/)) {
$filter_commstr = 1;
} else {
$filter_commstr = 0;
}
# 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: cisco-nx\n!\n");
TOP: while(<INPUT>) {
tr/\015//d;
if (/[>#]\s?exit$/) {
print STDERR ("$host: found exit\n") if ($debug);
$clean_run = 1;
last;
}
if (/^Error:/) {
print STDOUT ("$host clogin error: $_");
print STDERR ("$host clogin error: $_") if ($debug);
$clean_run = 0;
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";
$clean_run = 0;
last TOP;
}
$rval = &{$commands{$cmd}};
delete($commands{$cmd});
if ($rval == -1) {
$clean_run = 0;
print STDERR ("$host: $cmd failed: $rval\n") if ($debug);
last TOP;
}
if (/[>#]\s?exit$/) {
print STDERR ("$host: found exit\n") if ($debug);
$clean_run = 1;
last TOP;
}
}
}
print STDOUT "Done $logincmd: $_\n" if ($log);
# Flush History
ProcessHistory("","","","");
# Cleanup
close(INPUT);
close(OUTPUT);
if (defined($ENV{NOPIPE}) && $ENV{NOPIPE} =~ /^YES/i) {
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);
print STDERR "$host: clean: $clean_run, end: $found_end\n" if ($debug);
system("/usr/bin/tail -1 $host.new");
}
unlink "$host.new" if (! $debug);
}
--------------090407060207040700000209--