/[sysadmin-cookbook]/recepies/netpipe-tcp/test-all.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /recepies/netpipe-tcp/test-all.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 163 - (show annotations)
Fri Feb 19 22:36:27 2010 UTC (14 years, 1 month ago) by dpavlin
File MIME type: text/plain
File size: 483 byte(s)
run tests on all hosts automatically

1 #!/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 }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26