diff options
Diffstat (limited to 'flat/CIAO/examples/Hello/descriptors_events/run_NodeDaemons_with_ip.pl')
-rw-r--r-- | flat/CIAO/examples/Hello/descriptors_events/run_NodeDaemons_with_ip.pl | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/flat/CIAO/examples/Hello/descriptors_events/run_NodeDaemons_with_ip.pl b/flat/CIAO/examples/Hello/descriptors_events/run_NodeDaemons_with_ip.pl deleted file mode 100644 index 24d630d66f6..00000000000 --- a/flat/CIAO/examples/Hello/descriptors_events/run_NodeDaemons_with_ip.pl +++ /dev/null @@ -1,40 +0,0 @@ -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# $Id$ -# -*- perl -*- - -use lib "$ENV{ACE_ROOT}/bin"; -use PerlACE::Run_Test; - -$status = 0; -$iorfile1 = PerlACE::LocalFile ("NodeApp1.ior"); -$iorfile2 = PerlACE::LocalFile ("NodeApp2.ior"); - -#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; -# } -#} - - -unlink $iorfile1; -unlink $iorfile2; - -$CIAO_ROOT=$ENV{'CIAO_ROOT'}; - -$SV1 = new PerlACE::Process ("$CIAO_ROOT/bin/NodeManager", - "-ORBEndpoint iiop://129.59.129.181:60001 -s $CIAO_ROOT/DAnCE/NodeApplication/NodeApplication -d 500"); - -$SV2 = new PerlACE::Process ("$CIAO_ROOT/bin/NodeManager", - "-ORBEndpoint iiop://129.59.129.181:60002 -s $CIAO_ROOT/DAnCE/NodeApplication/NodeApplication -d 500"); - -$SV1->Spawn (); -$SV2->Spawn (); - -sleep (99999999999); |