tools/ltp_master

#!/usr/bin/perl

#Master control script; ltp_master
#       3/12/02 William Jay Huie (creation)
#       3/28/02 William Jay Huie minor updates
#This will upload the ltprun script to the test system and kick off this script
#uses the Net:Telnet and Net::Ftp modules from www.cpan.org
#the ltprun script is a shell script to eliminate the need to write a script
#to install these modules on all the target systems

#FIXME: One problem is that the tests need to be run as root as as of now
#this means that LTP_USER needs to be root, which means root needs to be
#able to telnet and ftp into the machine. Couldn't figure out how to add
#a su -c to the LTP_CMD_LINE variable, ssh will probably be the solution
#but for now this works

use Net::Telnet ();
use Net::FTP ();

#Leave this set to keep perl from buffering IO
$| = 1;

#CHANGEME:
#change these for different defaults
#Think carefully because things like ltprun.out are relied upon in the ltprun
#     script, so you need to change them there too, or better yet make them
#     cmd line parms
#$LTP_USER = "ltp";
#$LTP_PASS = "ltp";
$LTP_USER = "root";
$LTP_PASS = "password";
$LTP_RUN = "ltprun";
#CHANGEME:
#Can't use ~/bin so have to explicitly hardcode this directory
$LTP_RUN_DIR = "/home/wjhuie/bin/";
$LTP_CMD_LINE = "chmod +x $LTP_RUN && nohup ./$LTP_RUN &> $LTP_RUN.out &";

#print "For this to work root must be able to ftp and telnet into the machines\n";
#print "Check #LTP_RUN_DIR/ltp_master for root password: $LTP_PASS\n";

#print "FIXME: Need to change this to su to root, not login over telnet\n";
#print "       Or run in some other way like ssh\n";

if ( $ARGV[0] eq "-f" )
{
   if ( -f $ARGV[1] )
   {
      open(FILE, $ARGV[1]) or die "Can't open $ARGV[1]";
      for ($i = 0; chomp($hosts[$i] = <FILE>); $i++) { ; }
      $#hosts--;
      close(FILE);
   }
   else { die "Please specify host list file with option -f\n"; }
}
elsif (@ARGV)
{  @hosts = @ARGV; }
else
{
   print "HOSTS separate with [ENTER] finish with [^D]\n";
   chomp(@hosts = <STDIN>);
}

$t = new Net::Telnet (Timeout => 30, Prompt => '/.+[\$#] $/'
#                     ,Dump_Log => "ltp_control.log"
#Remove the # on the line above and a copy of the
#       data exchange will be saved to the file 'ms.log'
                      );

#FIXME: Need a better retry system, this would loop forever
#$retry = 0;

for ($j = 0; $j <= $#hosts; $j++)
{
   chdir "$LTP_RUN_DIR" or die "Can't change to $LTP_RUN_DIR";
   print "\nAttempting to Upload $LTP_RUN to: $hosts[$j]";

   $ftp = Net::FTP->new($hosts[$j], Debug => 0) or
      do { print "\n\tCouldn't connect to: $hosts[$j] --- skipping\n"; next; };
   $ftp->login($LTP_USER, $LTP_PASS) or die "\nUnable to login";
   $ftp->type('I') or die "\nUnable to set type to Binary";
   $ftp->put($LTP_RUN) or die "\nUnable to put $LTP_RUN";
   $ftp->quit;
   print "\nUploading $LTP_RUN Done";

   print "\nConnecting to: $hosts[$j]";
   $t->open($hosts[$j]);
   $t->errmode("return");
   $t->login($LTP_USER, $LTP_PASS) or
                 do { print "\n\tFailed Login to $hosts[$j]! "; next;
#perhaps work in some sort of retry, but this way will loop forever
#                      if ($retry) { $j--; } next;
                    };
   @l = $t->cmd("$LTP_CMD_LINE");

   if ($j == 0)
   {
      if ($l[0]) { print " >\n@l"; @base_output = @l; }
      else { printf "\nReturned empty Buffer!\n"; }
   }
   $a = join("",@l);
   $b = join("",@base_output);
   if ($a ne $b)
   { print "!>\n@l\n"; }

   $t->buffer_empty();
   $t->close();
   print "\t Command Completed";
}
print "\nAll Done!\n";

#Use snippit below in results script to convert timing info
#     from tar file name into human readable format
#$foo = $ARGV[0];
#($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($foo);
#print "$foo\n";
#print "Hour: $hour Min: $min Sec: $sec\n";