TAO/examples/Advanced/ch_18/run_test.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 # -*- perl -*-
   6
   7 use lib "$ENV{ACE_ROOT}/bin";
   8
   9 require ACEutils;
  10 require Process;
  11
  12 $status = 0;
  13
  14 # amount of delay between starting servers and client
  15 $sleeptime = 15;
  16
  17
  18
  19 sub name_server
  20 {
  21   my $prog = "..$DIR_SEPARATOR".
  22              "..$DIR_SEPARATOR".
  23              "..$DIR_SEPARATOR".
  24              "orbsvcs$DIR_SEPARATOR".
  25              "Naming_Service$DIR_SEPARATOR".
  26              "tao_cosnaming$EXE_EXT";
  27   $NS = Process::Create ($prog,"");
  28 }
  29
  30
  31
  32 # create naming service, server, client
  33 name_server ();
  34 sleep $sleeptime;
  35
  36 $server = Process::Create ($EXEPREFIX."server".$EXE_EXT, "");
  37 sleep $sleeptime;
  38
  39 $client = Process::Create($EXEPREFIX."client".$EXE_EXT, "");
  40
  41
  42
  43 # wait for client to finish
  44 if ($client->TimedWait (60) == -1) {
  45   print STDERR "ERROR: client timedout\n";
  46   $status = 1;
  47   $client->Kill (); $client->TimedWait (1);
  48 }
  49
  50
  51 # gracefully kill the server
  52 $server->Terminate ();
  53 if ($server->TimedWait (5) == -1) {
  54   print STDERR "ERROR: cannot terminate the server\n";
  55   $server->Kill (); $server->TimedWait (1);
  56   $status = 1;
  57 }
  58
  59 # gracefully kill the Naming Service
  60 $NS->Terminate ();
  61 if ($NS->TimedWait (5) == -1) {
  62   print STDERR "ERROR: cannot terminate the server\n";
  63   $NS->Kill (); $server->TimedWait (1);
  64   $status = 1;
  65 }
  66
  67 exit $status;
  68
  69
  70
  71