orbit-perl talking to JDK 1.4 server

[D Whitney <dwhitnee yahoo com>]

Hi,

I've been struggling trying to get a simple perl
client to connect to a JDK 1.4 server.
It simply hangs when trying to retrieve an object from
the name service.

I'm running Redhat 6.2 with CORBA-ORBit-0.4.3 (I tried
to get 0.4.5 but it requires Redhat 7.x)  I don't
expect we will be upgrading to Redhat 7x for some
time.

I have added my IP address to /etc/hosts. 
I have this in my ~/.orbitrc
ORBIIOPIPv4=1
ORBIIOPUSock=1

My client looks like this (where $ior is the name
service IOR):
#----------------------
use CORBA::ORBit idl => [ qw( CosNaming.idl Test.idl)
];
my $orb = CORBA::ORB_init("orbit-local-orb");
my $nameService = $orb->string_to_object( $ior );
my $name = [{ id => "IDL:amazon/Test/Factory:1.3",
kind => "" }];
my $factory = $nameService->resolve( $name );         
# hangs here
#----------------------

When I run strace on it, I see it connecting, but then
it hangs on a select.


socket(PF_INET, SOCK_STREAM, IPPROTO_TCP) = 6
connect(6, {sin_family=AF_INET, sin_port=htons(4444), 
            
            sin_addr=inet_addr("15.241.132.223")}},
16) = 0

fcntl(6, F_SETFD, FD_CLOEXEC)           = 0
fcntl(6, F_GETFL)                       = 0x2 (flags
O_RDWR)
fcntl(6, F_SETFL, O_RDWR|O_NONBLOCK)    = 0

brk(0x8316000)                          = 0x8316000

writev(6, [{"GIOP\1\0\1", 7}, {"\0\225\0\0\0", 5},
{"\0\0\0\0", 4}, {"p\362\377\177\1", 5}, {"\0\0\0",
3},
{"0\0\0\0\257\253\313\0\0\0\0\"\0\0\3\350\0\0\0\1\0\0\0\0"...,
52}, {"\10\0\0\0resolve\0", 12}, {"\0\0\0\0", 4},
{"\1\0\0\0006\0\0\0IDL:amazon/Test/"..., 62}, {"\0\0",
2}, {"\1\0\0\0\0", 5}], 11) = 161

select(7, [4 5 6], NULL, [4 5 6], NULL) = 1 (in [6])

read(6, "GIOP\1\0\0\1\0\0\1t", 12)      = 12
read(6,
"\0\0\0\2\0\0\0\6\0\0\0\240\0\0\0\0\0\0\0(IDL:omg.org/"...,
372) = 372
select(7, [4 5 6], NULL, [4 5 6], NULL) = ? 

[hangs on the select]



Anyone have any ideas?

Thanks,
Dave





__________________________________________________
Do You Yahoo!?
Yahoo! - Official partner of 2002 FIFA World Cup
http://fifaworldcup.yahoo.com