diff options
author | msmit <msmit@remedy.nl> | 2009-12-10 19:29:49 +0000 |
---|---|---|
committer | msmit <msmit@remedy.nl> | 2009-12-10 19:29:49 +0000 |
commit | 4f5207a7d4a5638ee27f1b6deb789bfa6a1a0d01 (patch) | |
tree | 3b337d6cd609b02e0a999c434731721081c2a566 /CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl | |
parent | 396131c64aad2f90d3bbb2faeb10e2d0a6388787 (diff) | |
download | ATCD-4f5207a7d4a5638ee27f1b6deb789bfa6a1a0d01.tar.gz |
Thu Dec 10 19:31:15 UTC 2009 Marcel Smit <msmit@remedy.nl>
* connectors/dds4ccm/examples/Hello/descriptors/run_1_to_5.pl:
* connectors/dds4ccm/examples/Hello/descriptors/run_5_to_1.pl:
* connectors/dds4ccm/examples/Hello/descriptors/run_5_to_5.pl:
* connectors/dds4ccm/examples/Hello/descriptors/run_receiver.pl:
* connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl:
* connectors/dds4ccm/examples/Hello/descriptors/run_test.pl:
* connectors/dds4ccm/examples/Hello/descriptors/run_test_dds.pl:
* docs/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl:
Resolved fuzz errors/warnings.
Diffstat (limited to 'CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl')
-rwxr-xr-x | CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl b/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl index 95a60f9d061..ea9412714cb 100755 --- a/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl +++ b/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_test.pl @@ -105,33 +105,33 @@ sub kill_open_processes { } sub run_node_daemons { - for ($i = 0; $i < $nr_daemon; ++$i) { - $iorbase = $iorbases[$i]; - $iorfile = $iorfiles[$i]; - $port = $ports[$i]; - $nodename = $nodenames[$i]; - $iiop = "iiop://localhost:$port"; - $node_app = "$CIAO_ROOT/bin/ciao_componentserver"; - - $d_cmd = "$DANCE_ROOT/bin/dance_node_manager"; - $d_param = "-ORBEndpoint $iiop -s $node_app -n $nodename=$iorfile -t 30 --domain-nc corbaloc:rir:/NameService"; - - print "Run dance_node_manager with $d_param\n"; - - $DEAMONS[$i] = $tg_daemons[$i]->CreateProcess ($d_cmd, $d_param); - $DEAMONS[$i]->Spawn (); - - if ($tg_daemons[$i]->WaitForFileTimed($iorbase, - $tg_daemons[$i]->ProcessStartWaitInterval ()) == -1) { - print STDERR - "ERROR: The ior $iorfile file of node daemon $i could not be found\n"; - for (; $i >= 0; --$i) { - $DEAMONS[$i]->Kill (); $DEAMONS[$i]->TimedWait (1); - } - return -1; - } - } - return 0; + for ($i = 0; $i < $nr_daemon; ++$i) { + $iorbase = $iorbases[$i]; + $iorfile = $iorfiles[$i]; + $port = $ports[$i]; + $nodename = $nodenames[$i]; + $iiop = "iiop://localhost:$port"; + $node_app = "$CIAO_ROOT/bin/ciao_componentserver"; + + $d_cmd = "$DANCE_ROOT/bin/dance_node_manager"; + $d_param = "-ORBEndpoint $iiop -s $node_app -n $nodename=$iorfile -t 30 --domain-nc corbaloc:rir:/NameService"; + + print "Run dance_node_manager with $d_param\n"; + + $DEAMONS[$i] = $tg_daemons[$i]->CreateProcess ($d_cmd, $d_param); + $DEAMONS[$i]->Spawn (); + + if ($tg_daemons[$i]->WaitForFileTimed($iorbase, + $tg_daemons[$i]->ProcessStartWaitInterval ()) == -1) { + print STDERR + "ERROR: The ior $iorfile file of node daemon $i could not be found\n"; + for (; $i >= 0; --$i) { + $DEAMONS[$i]->Kill (); $DEAMONS[$i]->TimedWait (1); + } + return -1; + } + } + return 0; } create_targets (); |