--- a/get-all	Thu Oct 11 09:39:21 2018 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,38 +0,0 @@
-#! /usr/bin/perl
-# Grit Schlorke
-# zieht alle configs nacheinander
-#
-
-use warnings;
-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";
-
-
-while (defined (my $file = readdir(DIR))) {
-
-    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: