1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
& eval 'exec perl -S $0 $argv:q'
if 0;
use Env (ACE_ROOT);
use lib "$ACE_ROOT/bin";
use PerlACE::Run_Test;
my $WAIT_TIMEOUT = 2;
my $DEBUG_LEVEL = 1;
my $OBJ_REF_STYLE = "-orbobjrefstyle url";
my $implrepo_server = "$ENV{TAO_ROOT}/orbsvcs/ImplRepo_Service/ImplRepo_Service";
my $imr_activator = "$ENV{TAO_ROOT}/orbsvcs/ImplRepo_Service/ImR_Activator";
my $tao_imr = "$ENV{ACE_ROOT}/bin/tao_imr";
my $implrepo_ior = "imr.ior";
my $activator_ior = "activator.ior";
my $messenger_ior = "messenger.ior";
my $imr_init_ref = "-ORBInitRef ImplRepoService=file://$implrepo_ior";
my $Svr = new PerlACE::Process('MessengerServer', "-orbuseimr 1 $OBJ_REF_STYLE $imr_init_ref");
my $Cli = new PerlACE::Process('MessengerClient');
sub CleanupOutput {
unlink $messenger_ior;
unlink $implrepo_ior;
unlink $activator_ior;
}
sub SpawnWait {
my $process = shift;
my $file = shift;
print ">>> " . $process->CommandLine() . "\n";
$process->Spawn();
my $ret = PerlACE::waitforfile_timed($file, $WAIT_TIMEOUT);
if ($ret == -1) {
print STDERR "ERROR: Cannot find file <$file>\n";
}
return $ret;
}
# Use url object reference style for readability, and startup timeout of 2 seconds.
# Unlike the chapter we'll forgo using -m, because we want to be able to run this
# as a test in our nightly builds, and multicast could interfere with other machines.
my $ImR = new PerlACE::Process ($implrepo_server, "-d $DEBUG_LEVEL $OBJ_REF_STYLE -t 2 -o $implrepo_ior");
my $Act = new PerlACE::Process ($imr_activator, "-d $DEBUG_LEVEL $OBJ_REF_STYLE -o $activator_ior $imr_init_ref");
my $imr_util = new PerlACE::Process ("$tao_imr",
"$imr_init_ref add MessengerService -c \"$Svr->Executable() $OBJ_REF_STYLE -ORBUseIMR 1 $imr_init_ref\"");
# We want the tao_imr executable to be found exactly in the path
# given, without being modified by the value of -ExeSubDir.
# So, we tell its Process object to ignore the setting of -ExeSubDir.
$imr_util->IgnoreExeSubDir(1);
sub RunImRUtil {
my $cmd = shift;
print ">>> " . $imr_util->CommandLine() . "\n";
$imr_util->Arguments("$imr_init_ref $cmd");
return $imr_util->SpawnWaitKill(5);
}
CleanupOutput();
#### Start the example
if (SpawnWait($ImR, $implrepo_ior) != 0) {
$ImR->Kill();
exit 1;
}
if (SpawnWait($Svr, $messenger_ior) != 0) {
$ImR->Kill();
exit 1;
}
if ($Cli->SpawnWaitKill($WAIT_TIMEOUT) != 0) {
print STDERR "Error : Client failed to run correctly.";
}
$Svr->Kill();
$ImR->Kill();
#### Clean up any output files
CleanupOutput();
exit 0;
|