#!/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;