Fri Apr 7 11:12:07 2000 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 17 insertions, 2 deletions

diff --git a/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl b/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl
index 6b861e791de..552c87b61da 100755
--- a/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl
+++ b/TAO/orbsvcs/tests/CosEvent/Basic/run_test.pl
@@ -11,8 +11,23 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 unshift @INC, '../../../../../bin';
 require Process;
 require Uniqueid;
+use Cwd;
 
-$prefix = "." . $DIR_SEPARATOR;
+$cwd = getcwd();
+for($i = 0; $i <= $#ARGV; $i++) {
+  if ($ARGV[$i] eq '-chorus') {
+    $i++;
+    if (defined $ARGV[$i]) {
+      $EXEPREFIX = "rsh $ARGV[$i] arun $cwd$DIR_SEPARATOR";
+    }
+    else {
+      print STDERR "The -chorus option requires the hostname of the target\n";
+      exit(1);
+    }
+  }
+}
+
+$prefix = $EXEPREFIX . "." . $DIR_SEPARATOR;
 $status = 0;
 
 print STDERR "\n\nShutdown EC with clients still attached\n";
@@ -49,7 +64,7 @@ if ($T->TimedWait (60) == -1) {
 
 print STDERR "\n\nPull-Push Events\n";
 $T = Process::Create ($prefix . "Pull_Push_Event".$EXE_EXT,
-                      " -ORBSvcConf svc.pull.conf");
+                      " -ORBSvcConf $cwd$DIR_SEPARATOR" . "svc.pull.conf");
 if ($T->TimedWait (60) == -1) {
   print STDERR "ERROR: Test timedout\n";
   $status = 1;