3 # usage: test-all.pl hosts
9 use Data::Dump qw(dump);
11 chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
13 my @hosts = read_file 'hosts';
14 @hosts = map { chomp; $_ } @hosts;
15 warn "hosts = ",dump(@hosts);
17 foreach my $host ( @hosts ) {
22 foreach my $to ( @hosts ) {
23 next if -s "$host/$to.np";
24 warn "start NPtcp on $to\n";
25 system "ssh $to NPtcp &";
29 warn "# missing ", dump(@test);
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";
38 system "rsync -v $host:/tmp/*.np $host/";