projects
/
sysadmin-cookbook
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added -A for ACLs in SELinux
[sysadmin-cookbook]
/
recepies
/
netpipe-tcp
/
test-all.pl
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 strict;
use autodie;
use File::Slurp;
+use Data::Dump qw(dump);
chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
my @hosts = read_file 'hosts';
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);
foreach my $host ( @hosts ) {
chomp($host);
+ my @test;
+
foreach my $to ( @hosts ) {
foreach my $to ( @hosts ) {
-
chomp($to)
;
+
next if -s "$host/$to.np"
;
warn "start NPtcp on $to\n";
system "ssh $to NPtcp &";
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/";
}
}