init III

Perl procurve konfigurieren/procurve_config.pl

@@ -0,0 +1,24 @@
+#!/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;