--- a/get-all	Tue Apr 17 12:28:34 2012 +0200
+++ b/get-all	Thu Oct 11 09:39:21 2018 +0200
@@ -1,8 +1,9 @@
-#! /usr/bin/perl -w
+#! /usr/bin/perl
 # Grit Schlorke
 # zieht alle configs nacheinander
 #
 
+use warnings;
 use strict;
 use Net::Ping;
 
@@ -11,17 +12,27 @@
 
 opendir (DIR, $dirname) or die "Can't open directory: \"$dirname\": $!\n";
 
-my $file;
+
+while (defined (my $file = readdir(DIR))) {
 
-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";
-    }
+    next if $file ~~ [ qw(
+    asterisk.is.schlittermann.de
+    debian.net.besico.de
+    debian-alt.net.besico.de
+    fileserver2-a.net.cms.de
+    fileserver2-a.net.cms.de
+    heinz.dd.dtele.de
+    sonne.dd.dtele.de
+    mail.ccos.de
+    gtd15.g-t-d.de) ];
+
+    (system ("./get-config", $file) == 0 or warn "Can't get-config (returned: $? // $!)\n") if $file ~~ [ qw(
+    emil.frey.kx.schlittermann.de
+    ahwinter.dyn.schlittermann.de
+    portal.mm.frey.kx.schlittermann.de
+    proxy.mm.frey.kx.schlittermann.de
+    webian2.sachsengarage.de) ] or $ping->ping($file, 3);
+
 }
 
 # vim:sts=4 sw=4 ai aw sm: