diff options
Diffstat (limited to 'CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl')
-rwxr-xr-x | CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl b/CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl deleted file mode 100755 index b634e253101..00000000000 --- a/CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl +++ /dev/null @@ -1,42 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# -*- perl -*- - -use lib "$ENV{ACE_ROOT}/bin"; -use PerlACE::TestTarget; - -$tg_daemons = PerlACE::TestTarget::create_target (1) || die "Create target for ns failed\n"; - -$ior_base1 = "NodeApp1.ior"; -$ior_file1 = $tg_daemons->LocalFile ($ior_base1); -$ior_base2 = "NodeApp2.ior"; -$ior_file2 = $tg_daemons->LocalFile ($ior_base2); - -#for ($iter = 0; $iter <= $#ARGV; $iter++) { -# if ($ARGV[$iter] eq "-h" || $ARGV[$iter] eq "-?") { -# print "Run_Test Perl script for NodeApplicationTest \n\n"; -# print "run_test \n"; -# print "\n"; -# print "-h -- prints this information\n"; -# exit 0; -# } -#} - -$ior_file1 = $tg_daemons->DeleteFile ($ior_base1); -$ior_file2 = $tg_daemons->DeleteFile ($ior_base2); - -$CIAO_ROOT=$ENV{'CIAO_ROOT'}; -$DANCE_ROOT=$ENV{'DANCE_ROOT'}; - -$SV1 = $tg_daemons->CreateProcess ("$DANCE_ROOT/bin/dance_node_manager", - "-ORBEndpoint iiop://localhost:30000 -s $DANCE_ROOT/bin/dance_locality_manager -d 30"); - -$SV2 = $tg_daemons->CreateProcess ("$DANCE_ROOT/bin/dance_node_manager", - "-ORBEndpoint iiop://localhost:40000 -s $DANCE_ROOT/bin/dance_locality_manager -d 30"); - -$SV1->Spawn (); -$SV2->Spawn (); - -sleep (99999999999); |