--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/get-all	Tue Apr 17 12:28:34 2012 +0200
@@ -0,0 +1,27 @@
+#! /usr/bin/perl -w
+# Grit Schlorke
+# zieht alle configs nacheinander
+#
+
+use strict;
+use Net::Ping;
+
+my $dirname = "/root/Configs/Hosts";
+my $ping = Net::Ping->new("icmp");
+
+opendir (DIR, $dirname) or die "Can't open directory: \"$dirname\": $!\n";
+
+my $file;
+
+while (defined ($file = readdir(DIR))) {
+    if ($file =~ /^\./){ next};
+    if ($file =~ /mailserver.innoserver.com/){next};
+    if ($file =~ /heinz.dd.dtele.de/){next};
+    if ($file =~ /sonne.dd.dtele.de/){next};
+    if ($file =~ /gtd15.g-t-d.de/){next};
+    if ($ping->ping($file, 3)) {
+	system ("./get-config", $file) == 0 or warn "Can't get-config (returned: $? // $!)\n";
+    }
+}
+
+# vim:sts=4 sw=4 ai aw sm: