CORBA::ORBit problem...

[Bruno Boettcher <bboett p15168795 pureserver info>]

Hello!

disturbed the original author before finding this list, sorry about that...

i am trying to get the CORBA::ORBit stuff working for me and i run into
problems...

the following thing hangs at the _is_a call...
the nameserver, and the CORBA-server are under java on another machine...
the interface i export is very simple...

i made the following snippet:

#!/usr/bin/perl -w
use Data::Dumper;
unshift  @ARGV, "--ORBNamingAddr" => "corbaloc://10.0.0.151:9000/NameService";
unshift  @ARGV, "-ORBNamingAddr" =>  "corbaloc://10.0.0.151:9000/NameService";
#both don't work... seems there's no naming service support for perl :(

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

use Error qw(:try);
use strict;

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

my $obj_ior = `GET http://10.0.0.199/~angelos/ior.txt`;
chomp $obj_ior;

my $corbaObj = $orb->string_to_object($obj_ior);
die ("isn't a repository!!!")
if (!$repository->_is_a("IDL:com/visualsphere/model/RepositoryI:1.0"));
print("ehm? got past here??\n");


my $repository = $corbaObj->_narrow("IDL:com/visualsphere/model/RepositoryI:1.0");
my $list = $repository->list();
print(Dumper($list)." was the list...\n");
__END__

and i never get the "got past here" message, and the thing hangs at the
line before...
commenting it, gives me a corba object, but using it gives me the
message couldn't find interface...

so i am quite stuck...
BTW is there a way to get the NameService querying working?
CORBA::ORBit::VERSion = 0.4.7

ciao
Bruno