1 #! /usr/bin/perl

     2 # Grit Schlorke

     3 # zieht alle configs nacheinander

     4 #

     5 

     6 use warnings;

     7 use strict;

     8 use Net::Ping;

     9 

    10 my $dirname = "/root/Configs/Hosts";

    11 my $ping = Net::Ping->new("icmp");

    12 

    13 opendir (DIR, $dirname) or die "Can't open directory: \"$dirname\": $!\n";

    14 

    15 

    16 while (defined (my $file = readdir(DIR))) {

    17 

    18     next if $file ~~ [ qw(

    19     asterisk.is.schlittermann.de

    20     debian.net.besico.de

    21     debian-alt.net.besico.de

    22     fileserver2-a.net.cms.de

    23     fileserver2-a.net.cms.de

    24     heinz.dd.dtele.de

    25     sonne.dd.dtele.de

    26     mail.ccos.de

    27     gtd15.g-t-d.de) ];

    28 

    29     (system ("./get-config", $file) == 0 or warn "Can't get-config (returned: $? // $!)\n") if $file ~~ [ qw(

    30     emil.frey.kx.schlittermann.de

    31     ahwinter.dyn.schlittermann.de

    32     portal.mm.frey.kx.schlittermann.de

    33     proxy.mm.frey.kx.schlittermann.de

    34     webian2.sachsengarage.de) ] or $ping->ping($file, 3);

    35 

    36 }

    37 

    38 # vim:sts=4 sw=4 ai aw sm: