exe/linux/exec_command.pl

   1 #!/usr/bin/perl
   2
   3 use Getopt::Std;
   4 require "/m1/homes/swgsrv/nodes.pl";
   5
   6 # verify cmd line arguments and abort if incorrect
   7 $Getopt::Std::opt_v = "";
   8 Getopt::Std::getopts("v");
   9
  10 if ( ! $ARGV[0] )
  11 {
  12     print "usage: startcluster.pl <CLUSTER>\n";
  13     print "  e.g: startcluster.pl dev\n";
  14     exit;
  15 }
  16
  17 $cmd = $ARGV[1];
  18 $cluster = $ARGV[0];
  19 if ( ! $node{"$cluster"}{"01"} )
  20 {
  21     print "cluster: $cluster not defined\n";
  22     exit;
  23 }
  24 else
  25 {
  26     foreach $n ( sort { $a <=> $b } keys % {$node{"$cluster"}} )
  27     {
  28         $hostname = "$node{\"$cluster\"}{\"$n\"}.$domain";
  29         system("/usr/local/bin/ssh -f $user\@$hostname \"$cmd \"");
  30     }
  31 }
  32