25 lines
518 B
Perl
25 lines
518 B
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/procurve_switches.conf";
|
|
#print "\n";
|
|
|
|
while (<CONF>) {
|
|
chomp;
|
|
|
|
print "Konfiguriere Switch $_\n";
|
|
`./procurve_config.sh admin LTBBffD45 $_`;
|
|
|
|
}
|
|
close CONF;
|