ACE/bin/ACEutils.pm

   1
   2 require Process;
   3 $EXEPREFIX = ".".$DIR_SEPARATOR;
   4 $TARGETHOSTNAME = "localhost";
   5
   6 package ACE;
   7
   8 sub CheckForExeDir
   9 {
  10   for($i = 0; $i <= $#ARGV; $i++) {
  11     if ($ARGV[$i] eq '-ExeSubDir') {
  12       if (defined $ARGV[$i + 1]) {
  13         $::EXEPREFIX = $ARGV[$i + 1].$::DIR_SEPARATOR;
  14       }
  15       else {
  16         print STDERR "You must pass a directory with ExeSubDir\n";
  17         exit(1);
  18       }
  19       splice(@ARGV, $i, 2);
  20     }
  21   }
  22 }
  23
  24
  25 ### Check and remove, but don't actually use
  26 sub CheckForConfig
  27 {
  28   for($i = 0; $i <= $#ARGV;) {
  29     if ($ARGV[$i] eq '-Config') {
  30       if (!defined $ARGV[$i + 1]) {
  31         print STDERR "You must pass a configuration with Config\n";
  32         exit(1);
  33       }
  34       splice(@ARGV, $i, 2);
  35     } else {
  36       $i++;
  37     }
  38   }
  39 }
  40
  41 sub checkForTarget
  42 {
  43   my($cwd) = shift;
  44
  45   for($i = 0; $i <= $#ARGV; $i++) {
  46     if ($ARGV[$i] eq '-chorus') {
  47       if (defined $ARGV[$i + 1]) {
  48         $::TARGETHOSTNAME = $ARGV[$i + 1];
  49         $::EXEPREFIX = "rsh $::TARGETHOSTNAME arun $cwd$::DIR_SEPARATOR";
  50       }
  51       else {
  52         print STDERR "The -chorus option requires " .
  53                      "the hostname of the target\n";
  54         exit(1);
  55       }
  56       splice(@ARGV, $i, 2);
  57       # Don't break from the loop just in case there
  58       # is an accidental duplication of the -chorus option
  59     }
  60   }
  61 }
  62
  63
  64 # Returns a unique id, uid for unix, last digit of IP for NT
  65 sub uniqueid
  66 {
  67   if ($^O eq "MSWin32")
  68   {
  69     my $uid = 1;
  70
  71     open (IPNUM, "ipconfig|") || die "Can't run ipconfig: $!\n";
  72
  73     while (<IPNUM>)
  74     {
  75       if (/Address/)
  76       {
  77         $uid = (split (/: (\d+)\.(\d+)\.(\d+)\.(\d+)/))[4];
  78       }
  79     }
  80
  81     close IPNUM;
  82
  83     return $uid;
  84   }
  85   else
  86   {
  87     return getpwnam (getlogin ());
  88   }
  89 }
  90
  91 # Waits until a file exists
  92 sub waitforfile
  93 {
  94   local($file) = @_;
  95   sleep 1 while (!(-e $file && -s $file));
  96 }
  97
  98 sub waitforfile_timed
  99 {
 100   my $file = shift;
 101   my $maxtime = shift;
 102   while ($maxtime-- != 0) {
 103     if (-e $file && -s $file) {
 104       return 0;
 105     }
 106     sleep 1;
 107   }
 108   return -1;
 109 }
 110
 111 $sleeptime = 5;
 112
 113 CheckForExeDir ();
 114 CheckForConfig ();
 115
 116 1;