1 #! /usr/bin/perl -w |
1 #! /usr/bin/perl |
2 # Grit Schlorke |
2 # Grit Schlorke |
3 # zieht alle configs nacheinander |
3 # zieht alle configs nacheinander |
4 # |
4 # |
5 |
5 |
|
6 use warnings; |
6 use strict; |
7 use strict; |
7 use Net::Ping; |
8 use Net::Ping; |
8 |
9 |
9 my $dirname = "/root/Configs/Hosts"; |
10 my $dirname = "/root/Configs/Hosts"; |
10 my $ping = Net::Ping->new("icmp"); |
11 my $ping = Net::Ping->new("icmp"); |
11 |
12 |
12 opendir (DIR, $dirname) or die "Can't open directory: \"$dirname\": $!\n"; |
13 opendir (DIR, $dirname) or die "Can't open directory: \"$dirname\": $!\n"; |
13 |
14 |
14 my $file; |
|
15 |
15 |
16 while (defined ($file = readdir(DIR))) { |
16 while (defined (my $file = readdir(DIR))) { |
17 if ($file =~ /^\./){ next}; |
17 |
18 if ($file =~ /mailserver.innoserver.com/){next}; |
18 next if $file ~~ [ qw( |
19 if ($file =~ /heinz.dd.dtele.de/){next}; |
19 asterisk.is.schlittermann.de |
20 if ($file =~ /sonne.dd.dtele.de/){next}; |
20 debian.net.besico.de |
21 if ($file =~ /gtd15.g-t-d.de/){next}; |
21 debian-alt.net.besico.de |
22 if ($ping->ping($file, 3)) { |
22 fileserver2-a.net.cms.de |
23 system ("./get-config", $file) == 0 or warn "Can't get-config (returned: $? // $!)\n"; |
23 fileserver2-a.net.cms.de |
24 } |
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 |
25 } |
36 } |
26 |
37 |
27 # vim:sts=4 sw=4 ai aw sm: |
38 # vim:sts=4 sw=4 ai aw sm: |