run tests on all hosts automatically

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

diff --git a/recepies/netpipe-tcp/test-all.pl b/recepies/netpipe-tcp/test-all.pl
new file mode 100755 (executable)
index 0000000..fb48270
--- /dev/null
+++ b/recepies/netpipe-tcp/test-all.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+# usage: test-all.pl hosts
+
+use warnings;
+use strict;
+use autodie;
+use File::Slurp;
+
+chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
+
+my @hosts = read_file 'hosts';
+
+foreach my $host ( @hosts ) {
+       chomp($host);
+
+       foreach my $to ( @hosts ) {
+               chomp($to);
+               warn "start NPtcp on $to\n";
+               system "ssh $to NPtcp &";
+       }
+
+       warn "TEST from $host\n";
+       system "ssh $host /srv/sysadmin-cookbook/recepies/netpipe-tcp/test.sh";
+       system "rsync $host:/tmp/*.np $host/";
+}