use strict;

#!/usr/local/bin/perl

use strict;
use Getopt::Std;

$| = 1;

my $USAGE = <<_EOU;
usage: execute_all.pl [-r username] filename { ip-file | ip-addr ... }
-r Skript als dieser Benutzer remote auf den Rechnern ausführen
_EOU

my $FPING = "/usr/sbin/fping";

main: {
# Optionen
my %opt;
my $opt_ok = getopts ('r:', \%opt);

# Parameter
my $command_file = shift @ARGV;
my @ip_addrs = @ARGV;

print ($USAGE), exit 1
if not $opt_ok or not $command_file or not @ip_addrs;

# per fping die Liste der IPs reduzieren auf die,
# die tatsächlich online sind
my $command;
if ( -f $ip_addrs[0] ) {
$command = "$FPING -A -q -a -r 3 \$(cat $ip_addrs[0]) ".
"2>/dev/null | sort";
} else {
my $ip_addrs = join (" ", @ip_addrs);
$command = "$FPING -A -q -a -r 3 $ip_addrs ".
"2>/dev/null | sort";
}

# fping-Kommando ausführen
my @fping_ip_addrs = split (/\s+/, qx[$command]);
print ("Keine IP erreichbar.\n"), exit 1 if not @fping_ip_addrs;

# einige IPs nicht erreichbar?
if ( @fping_ip_addrs != @ip_addrs ) {
print "Warnung: Folgende IP-Adressen sind nicht erreichbar:\n";
my %fping_ip_addrs;
@fping_ip_addrs{@fping_ip_addrs} = @fping_ip_addrs x (1);
print join (" ", grep {!$fping_ip_addrs{$_}} @ip_addrs),"\n";
print "Weiter [Return], Abbrechen [Strg+C] ";
<STDIN>;
}

if ( $opt{r} ) {
# Skript-Datei remote auf den Rechnern ausführen
open (FH, $command_file)
or die "can't read $command_file: $!";
$command = join ('', <FH>);
close FH;
foreach my $ip (@fping_ip_addrs) {
print "Führe Skript remote aus auf '$ip'...\n";
system ("ssh", "$opt{r}\@$ip", $command);
}
} else {
# Skript-Datei lokal mit IP als Parameter ausführen
print ("Skript ist nicht ausführbar.\n"), exit 1
if not -x $command_file;
foreach my $ip (@fping_ip_addrs) {
print "Führe Skript lokal aus mit '$ip'...\n";
system ($command_file, $ip);
}
}
}