* 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

View File

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