ChangeLogTag: Tue Jul 29 16:27:52 2003 Jeff Parsons <j.parsons@vanderbilt.edu>

4 files changed, 26 insertions, 6 deletions

diff --git a/TAO/ChangeLog b/TAO/ChangeLog
index 7a837e361ea..4884604b5a1 100644
--- a/TAO/ChangeLog
+++ b/TAO/ChangeLog
@@ -1,3 +1,23 @@
+Tue Jul 29 16:27:52 2003  Jeff Parsons <j.parsons@vanderbilt.edu>
+
+        * orbsvcs/IFR_Service/be_produce.cpp (BE_produce):
+
+          Fixed a bug in launching the removing visitor.
+
+        * orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl:
+
+          Added '-ORBInitRef InterfaceRepository=file://xxxxx' to
+          the command line passed to the server and tao_ifr processes.
+          On some platforms at least, the default multicast no longer
+          works at all. The server process also needs this info, since
+          the client may call _get_interface() on it.
+
+        * orbsvcs/tests/InterfaceRepo/IFR_Test/run_test.pl:
+
+          Removed '-ORBDottedDecimalAddresses 1' from the argument list
+          passed to the IFR process. This is needed only if the host
+          has no static IP address.
+
 Tue Jul 29 14:15:11 2003  Jeff Parsons <j.parsons@vanderbilt.edu>
 
         * TAO_IDL/be/be_visitor_operation/ami_cs.cpp:
diff --git a/TAO/orbsvcs/IFR_Service/be_produce.cpp b/TAO/orbsvcs/IFR_Service/be_produce.cpp
index 888c4684886..ef93f1b3c32 100644
--- a/TAO/orbsvcs/IFR_Service/be_produce.cpp
+++ b/TAO/orbsvcs/IFR_Service/be_produce.cpp
@@ -253,7 +253,7 @@ BE_produce (void)
 
           TAO_IFR_VISITOR_WRITE_GUARD;
 
-          if (root->ast_accept (&visitor) == -1)
+          if (visitor.visit_scope (root) == -1)
             {
               ACE_ERROR ((
                   LM_ERROR,
diff --git a/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl b/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl
index ae55db13823..211c18bcdc4 100755
--- a/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl
+++ b/TAO/orbsvcs/tests/InterfaceRepo/Application_Test/run_test.pl
@@ -13,7 +13,7 @@ $status = 0;
 $ifr_iorfile= "if_repo.ior";
 $svr_iorfile = "iorfile";
 $test_idl = PerlACE::LocalFile ("test.idl");
-
+ 
 if ($^O eq "MSWin32") {
     $tao_ifr = "../../../../../bin/tao_ifr";
 }
@@ -35,7 +35,7 @@ for ($i = 0; $i <= $#ARGV; $i++) {
 
 $TAO_IFR = new PerlACE::Process ($tao_ifr);
 $IFR     = new PerlACE::Process ("../../../IFR_Service/IFR_Service");
-$SV      = new PerlACE::Process ("server");
+$SV      = new PerlACE::Process ("server", "-ORBInitRef InterfaceRepository=file://$ifr_iorfile");
 $CL      = new PerlACE::Process ("client", "-ORBInitRef InterfaceRepository=file://$ifr_iorfile"
                                  . " $lookup_by_name");
 $CL2     = new PerlACE::Process ("client", "-ORBInitRef InterfaceRepository=file://$ifr_iorfile -n");
@@ -60,7 +60,7 @@ if (PerlACE::waitforfile_timed ($svr_iorfile, 15) == -1) {
     exit 1;
 }
 
-$TAO_IFR->Arguments ($test_idl);
+$TAO_IFR->Arguments ("-ORBInitRef InterfaceRepository=file://$ifr_iorfile $test_idl");
 
 $tresult = $TAO_IFR->SpawnWaitKill (30);
 
@@ -76,7 +76,7 @@ if ($client != 0) {
     $status = 1;
 }
 
-$TAO_IFR->Arguments ("-r $test_idl");
+$TAO_IFR->Arguments ("-ORBInitRef InterfaceRepository=file://$ifr_iorfile -r $test_idl");
 
 $tresult = $TAO_IFR->SpawnWaitKill (30);
 
diff --git a/TAO/orbsvcs/tests/InterfaceRepo/IFR_Test/run_test.pl b/TAO/orbsvcs/tests/InterfaceRepo/IFR_Test/run_test.pl
index 68c665cd201..039694e468d 100755
--- a/TAO/orbsvcs/tests/InterfaceRepo/IFR_Test/run_test.pl
+++ b/TAO/orbsvcs/tests/InterfaceRepo/IFR_Test/run_test.pl
@@ -14,7 +14,7 @@ $iorfile = "if_repo.ior";
 
 $status = 0;
 
-$nice = "-ORBDottedDecimalAddresses 1";
+$nice = "";
 $debug = "";
 $test = "";
 $iterations = "";