Re: orbit-perl talking to JDK 1.4 server

[Huw Rogers <count0 metavector com>]

I strongly recommend using at least 0.4.4, and preferably 0.4.5 together
with ORBit >= 0.5.13 for interoperability.

Why does 0.4.5 need RedHat 7.x? Just install ORBit 0.5.15 on your RedHat
6.2 boxes.

	-Huw

> 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

-- 
Huw Rogers <count0 metavector com>