Re: Perl-ORBit client just hangs when accessing an object from a Java server

[Anders Selander <selander pdc kth se>]

On Wed, Mar 27, 2002 at 03:44:46PM +0000, Bill Haneman wrote:
> > Hello,
> > I cannot find any input on this matter with help of google, so know I
> > turn to you all.
> > I have one of these "one-out-of-four" Corba problems:
> > 
> > CORBA::ORBit 0.4.3 Perl-server & CORBA::ORBit 0.4.3 Perl-client  works
> > CORBA::ORBit 0.4.3 Perl-server & Java j2sdk1.3-client            works
> > Java j2sdk1.3-server           & Java j2sdk1.3-client            works
> > 
> > Java j2sdk1.3-server           & CORBA::ORBit 0.4.3 Perl-client  does not
> 
> I suggest you try jdk 1.4 (post beta-4).  We experienced significant 
> problems with interop between ORBit2 and the Java ORB for earlier Java
> SDKs,
> and many CORBA interop bugs are reportedly fixed in 1.4 FCS.

Java j2sdk1.4.0-server  & CORBA::ORBit 0.4.3 Perl-client  does not work

Well, j2sdk1.4.0 did not solve the problem. The Perl-client just waits 
forever after the debug-printout (code below) when using a Java server
but the ORBit-nameservice. A nameservice-browser confirms that the 
binding-entry in the service seems OK.

I use plain ORBit, might I need to use ORBit2? Hmmm, can CORBA::ORBit 0.4.3 
even be retargeted for ORBit2?

Anyway, what I really would appreciate right now is a minimal code example
of a Java server and a Perl-ORBit client known to work, so that I can
verify that I have not forgot something completly crucial.

Regards /Selander

Hello.idl and Java-source included in original posting in this thread
(http://mail.gnome.org/archives/orbit-list/2002-March/msg00098.html).

client.pl
--
#!/usr/bin/perl -w

#
# ./client.pl -ORBNamingIOR=`cat ns.ref`
#

use strict;
use CORBA::ORBit idl => [ qw(/usr/share/idl/orbit-1.0/CosNaming.idl
                             Hello.idl) ];

my $orb = CORBA::ORB_init(@ARGV, "orbit-local-orb");

my $namingContext = $orb->resolve_initial_references("NameService");
my $name = [{ id => "Hello", kind => "" }];
my $object = $namingContext->resolve($name);

print "Debug: $$object\n";

print "Message is ", $object->sayHello, ".\n";