80 lines
3.8 KiB
Perl
80 lines
3.8 KiB
Perl
#!/usr/bin/perl
|
|
|
|
($ss,$mm,$hh,$dd,$mon,$yy,$we,$doy,$st)=localtime;
|
|
$mon=$mon+1;
|
|
if ($mon<10) { $mon="0" . $mon; }
|
|
if ($dd <10) { $dd="0" . $dd; }
|
|
if ($hh <10) { $hh="0" . $hh; }
|
|
if ($mm <10) { $mm="0" . $mm; }
|
|
if ($ss <10) { $ss="0" . $ss; }
|
|
|
|
$yy=$yy+1900;
|
|
$date=$yy . "-" . $mon . "-" . $dd;
|
|
|
|
open CONF,"</home/monitoring/save.conf";
|
|
#print "\n";
|
|
|
|
while (<CONF>) {
|
|
chomp;
|
|
$line=$_;
|
|
$order1 = "";
|
|
$order2 = "";
|
|
$order3 = "";
|
|
$order4 = "";
|
|
$order5 = "";
|
|
|
|
if ($line =~ /[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+/ ) {
|
|
($ip,$def_vlan,$swtype) = split /,/,$line;
|
|
|
|
print "\nSichere Konfig von Switch $ip Default-VLAN: $def_vlan ";
|
|
if ($swtype eq "4000") {
|
|
$order1="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CONFIG $date/$ip/CONFIG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order2="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHREC $date/$ip/CRASHREC.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order3="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHDATA $date/$ip/CRASHDATA.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order4="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 EVENTLOG $date/$ip/EVENTLOG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order5="(sleep 1; echo admin sleep 1; echo LTBBffD45; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 BROWSE $date/$ip/BROWSE.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
}
|
|
elsif ($swtype eq "5300") {
|
|
`./exp.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "5400") {
|
|
`./exp.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "2600") {
|
|
`./exp.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "2500") {
|
|
`./exp3.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "GBE2") {
|
|
`./exp2.sh admin LTBBffD45 $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "B2600") { # Boerse Muenchen HP 2600
|
|
`./exp.sh admin "manbayb&" $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "B5300") { # Boerse Muenchen HP 5300
|
|
`./exp.sh admin "manbayb&" $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "B5400") { # Boerse Muenchen HP 5400
|
|
`./exp.sh admin "manbayb&" $ip 10.10.12.36 $date`;
|
|
}
|
|
elsif ($swtype eq "C4000") { # Chugai HP 4000
|
|
$order1="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CONFIG $date/$ip/CONFIG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order2="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHREC $date/$ip/CRASHREC.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order3="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 CRASHDATA $date/$ip/CRASHDATA.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order4="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 EVENTLOG $date/$ip/EVENTLOG.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
$order5="(sleep 1; echo admin sleep 1; echo IaguhC; sleep 1; echo 54$def_vlan; sleep 1; echo put 10.10.12.36 BROWSE $date/$ip/BROWSE.txt PC; sleep 5; echo exit; sleep 1; echo 00y) | telnet $ip";
|
|
}
|
|
else {
|
|
print "\nSwitchtype not supported!\n";
|
|
}
|
|
}
|
|
`$order1`;
|
|
`$order2`;
|
|
`$order3`;
|
|
`$order4`;
|
|
`$order5`;
|
|
|
|
}
|
|
close CONF;
|