summaryrefslogtreecommitdiff
path: root/CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl
diff options
context:
space:
mode:
Diffstat (limited to 'CIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl')
-rwxr-xr-xCIAO/tutorials/Quoter/Simple/descriptors/runNodeDaemons.pl42
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);