recepies/netpipe-tcp/test-all.pl

#!/usr/bin/perl

# usage: test-all.pl hosts

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 ) {
                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);

        system "rsync -v $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	dpavlin	169	use Data::Dump qw(dump);
10	dpavlin	163
11			chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
12
13			my @hosts = read_file 'hosts';
14	dpavlin	169	@hosts = map { chomp; $_ } @hosts;
15			warn "hosts = ",dump(@hosts);
16	dpavlin	163
17			foreach my $host ( @hosts ) {
18			chomp($host);
19
20	dpavlin	169	my @test;
21
22	dpavlin	163	foreach my $to ( @hosts ) {
23	dpavlin	169	next if -s "$host/$to.np";
24	dpavlin	163	warn "start NPtcp on $to\n";
25			system "ssh $to NPtcp &";
26	dpavlin	169	push @test, $to;
27	dpavlin	163	}
28
29	dpavlin	169	warn "# missing ", dump(@test);
30
31			open(my $ssh, '\|-', "ssh $host xargs -i NPtcp -h {} -u 1048576 -o /tmp/{}.np");
32			foreach my $to ( @test ) {
33			warn "TEST from $host to $to\n";
34			print $ssh "$to\n";
35			}
36			close($ssh);
37
38			system "rsync -v $host:/tmp/*.np $host/";
39	dpavlin	163	}