recepies/netpipe-tcp/test-all.pl

#!/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/";
}
1	dpavlin	163	#!/usr/bin/perl
2
3			# usage: test-all.pl hosts
4
5			use warnings;
6			use strict;
7			use autodie;
8			use File::Slurp;
9
10			chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
11
12			my @hosts = read_file 'hosts';
13
14			foreach my $host ( @hosts ) {
15			chomp($host);
16
17			foreach my $to ( @hosts ) {
18			chomp($to);
19			warn "start NPtcp on $to\n";
20			system "ssh $to NPtcp &";
21			}
22
23			warn "TEST from $host\n";
24			system "ssh $host /srv/sysadmin-cookbook/recepies/netpipe-tcp/test.sh";
25			system "rsync $host:/tmp/*.np $host/";
26			}