test just missing files

git-svn-id: svn://svn.rot13.org/sysadmin-cookbook@169 191e9f34-6774-4a6d-acfc-7664dacd4a2a

diff --git a/recepies/netpipe-tcp/test-all.pl b/recepies/netpipe-tcp/test-all.pl
index 1c69b31..ece66ca 100755 (executable)
--- a/recepies/netpipe-tcp/test-all.pl
+++ b/recepies/netpipe-tcp/test-all.pl
@@ -6,21 +6,34 @@ use warnings;
 use strict;
 use autodie;
 use File::Slurp;
+use Data::Dump qw(dump);
 
 chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
 
 my @hosts = read_file 'hosts';
+@hosts = map { chomp; $_ } @hosts;
+warn "hosts = ",dump(@hosts);
 
 foreach my $host ( @hosts ) {
        chomp($host);
 
+       my @test;
+
        foreach my $to ( @hosts ) {
-               chomp($to);
+               next if -s "$host/$to.np";
                warn "start NPtcp on $to\n";
                system "ssh $to NPtcp &";
+               push @test, $to;
+       }
+
+       warn "# missing ", dump(@test);
+
+       open(my $ssh, '|-', "ssh $host xargs -i NPtcp -h {} -u 1048576 -o /tmp/{}.np");
+       foreach my $to ( @test ) {
+               warn "TEST from $host to $to\n";
+               print $ssh "$to\n";
        }
+       close($ssh);
 
-       warn "TEST from $host\n";
-       system "cat hosts | ssh $host xargs -i NPtcp -h {} -u 1048576 -o /tmp/{}.np";
-       system "rsync $host:/tmp/*.np $host/";
+       system "rsync -v $host:/tmp/*.np $host/";
 }