multi-host problems with ORBit

["Arnaud Sahuguet" <sahuguet lucent com>]

Hi,

I am trying to run ORBit using Perl bindings on a multi-host environment and it does not work.
I have checked various postings on the mailing list.
I have modified the /etc/orbitrc, ~/.orbitrc.

The problem is that the ior created by my server program never mentions any host information and when I cut/paste the
IOR to put it on a different machine, the remote client raises a communication failure error message.

Here is my ior
[sahuguet@suman]$ ior-decode /tmp/zip.ref
Tags known:
TAG_INTERNET_IOP: 0x0
TAG_MULTIPLE_COMPONENTS: 0x1
TAG_ORBIT_SPECIFIC: 0xbadfaeca

Suggestions are welcome.
I am also curious to see how an ior with some host information might look like when running ior-decode.

regards,

Arnaud

PS: details about my config

<config>
Linux 2.4.9-31
RH 7.2
ORBit-devel-0.5.16-1.ximian.1
ORBit-0.5.16-1.ximian.1
CORBA-ORBit-0.4.7
</config>

<server code>
#!/usr/bin/perl -w
BEGIN { unshift @ARGV, qw(-ORBIIOPIPv4 1); }

use CORBA::ORBit idl => [ qw (zip.idl) ];
use strict;

my @servers;
my ($poa, $current);

package ZipServer;
@ZipServer::ISA = qw(POA_zip::codes);
use Error qw(:try);
sub new {
  my ($class) = @_;
  my $self = bless {}, $class;
}
sub getzip {
  my ($self, $zipcode) = @_;
  ### Look up zip code
  open (LOG, ">>/tmp/zip.log");
  print LOG "got getzip request - $zipcode\n";
  close LOG;
  my $results = "ca marche";
  my $result = {
     zipcode => $zipcode,
     city => "Poughkeepsie",
     state => "OZ",
     latitude => int(rand()*36000) / 100.0 - 180,
     longitude => int(rand()*36000) / 100.0 - 180,
    };
  return $result;
}

package main;
use Error qw(:try);
my $orb = CORBA::ORB_init("orbit-local-orb");
$poa = $orb->resolve_initial_references("RootPOA");
my $servant = new ZipServer;
push @servers, $servant;

my $id = $poa->activate_object ($servant);
my $ref = $orb->object_to_string ($poa->id_to_reference($id));

open (OUT, ">/tmp/zip.ref");
print OUT $ref;
close OUT;

$poa->_get_the_POAManager->activate;
$orb->run ();

exit(0);
</server code>