jcarr
/
old-benchmark-code
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* also write out the testservers file

This commit is contained in:
Jeff Carr 2011-10-03 11:50:03 -04:00
parent 7a87e94113
commit cb734891e1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
loadbot/make_do_all.pl
View File

@ -3,13 +3,16 @@
use strict; use strict;
open OUT, ">do_all.sh"; open OUT, ">do_all.sh";
open OUT2, ">testservers";
foreach my $line (split "\n", `cat /tmp/junk`) { foreach my $line (split "\n", `cat /tmp/junk`) {
my @parts = split " ", $line; my @parts = split " ", $line;
print OUT "./ssh.pl $parts[13] root $parts[7] \$1\n"; print OUT "./ssh.pl $parts[13] root $parts[7] \$1\n";
print OUT2 "$parts[13]\n";
} }
close OUT; close OUT;
close OUT2;
# system "chmod +x do_all.sh"; # system "chmod +x do_all.sh";
system "cat do_all.sh"; system "cat do_all.sh";