<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<META NAME="Generator" CONTENT="MS Exchange Server version 6.5.7650.28">
<TITLE>Trouble Talking Between 2 Servers</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/plain format -->

<P><FONT SIZE=2>Hi,<BR>
<BR>
I was wondering if someone can run their eye over my config's, as I can't seem to get 2 spread servers talking to each other.<BR>
<BR>
The machine host names are spread1 (10.1.1.213) and spread2 (10.1.1.214)<BR>
They are freebsd 6.1 running spread 3.17.3 as a freebsd port installation.<BR>
I have the port 4803 open on both boxes, and have tested that using separate perl scripts that communicate over sockets.<BR>
<BR>
I am using 2 perl scripts to test communications, and they seem to work ok when run on a single server, but not across 2 servers.<BR>
<BR>
These are the config files:<BR>
-----------------------&gt;<BR>
### Spread 1 Config File<BR>
Spread_Segment&nbsp; 10.1.1.255:4803 {<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; spread2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10.1.1.214<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; spread1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10.1.1.213<BR>
}<BR>
DebugFlags = { ALL !DATA_LINK }<BR>
EventLogFile = /var/log/spread.log<BR>
EventTimeStamp = &quot;[%a %d %b %Y %H:%M:%S]&quot;<BR>
SocketPortReuse = ON<BR>
AllowedAuthMethods = &quot;NULL&quot;<BR>
-----------------------&gt;<BR>
### Spread 2 Config File<BR>
Spread_Segment&nbsp; 10.1.1.255:4803 {<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; spread2&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10.1.1.214<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; spread1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 10.1.1.213<BR>
}<BR>
DebugFlags = { ALL !DATA_LINK }<BR>
EventLogFile = /var/log/spread.log<BR>
EventTimeStamp = &quot;[%a %d %b %Y %H:%M:%S]&quot;<BR>
SocketPortReuse = ON<BR>
AllowedAuthMethods = &quot;NULL&quot;<BR>
-----------------------&gt;<BR>
<BR>
Here is the script that waits for a message to come in:<BR>
-----------------------&gt;<BR>
#!/usr/bin/perl<BR>
use strict;<BR>
use Spread;<BR>
use Data::Dumper;<BR>
# Connect<BR>
my($mbox, $private_group) = Spread::connect( {<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; spread_name =&gt; '4803@10.1.1.214',<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; private_name =&gt; 'cam' . $$,<BR>
} );<BR>
<BR>
my $sperrno;<BR>
my $sperrorno;<BR>
<BR>
&nbsp;# Join groups<BR>
my(@group_to_join) = ( 'Group1');<BR>
my(@joined_groups) = grep( Spread::join($mbox, $_), @group_to_join );<BR>
<BR>
my($messsize) = Spread::poll($mbox);<BR>
if(defined($messsize)) { print &quot;Next message: $messsize bytes\n&quot;; }<BR>
else { print &quot;Spread::poll $sperrno\n&quot;; }<BR>
<BR>
while (1) {<BR>
&nbsp; # Receive messages (see spread's man pages for more description)<BR>
&nbsp; my($service_type, $sender, $groups, $mess_type, $endian, $message) =<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Spread::receive($mbox);<BR>
&nbsp; next if ($message =~ m/^\@/);<BR>
&nbsp; #next if ($message =~ m/^?/);<BR>
&nbsp; print &quot;Got Message: [&quot; . $message . &quot;] From: [&quot; . $sender . &quot;]\n&quot;;<BR>
}<BR>
<BR>
# Disconnect<BR>
if(Spread::disconnect($mbox)) { print &quot;Successful disconnect\n&quot;; }<BR>
&nbsp; else { print &quot;Spread::disconnect -- $sperrorno\n&quot;; }<BR>
<BR>
exit;<BR>
-----------------------&gt;<BR>
<BR>
And here is the script that sends a message:<BR>
-----------------------&gt;<BR>
#!/usr/bin/perl<BR>
use strict;<BR>
use Spread;<BR>
use Data::Dumper;<BR>
# Connect<BR>
my($mbox, $private_group) = Spread::connect( {<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; spread_name =&gt; '4803',<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; private_name =&gt; 'cam' . $$,<BR>
} );<BR>
<BR>
&nbsp;# Join groups<BR>
my(@group_to_join) = ( 'Group1');<BR>
my(@joined_groups) = grep( Spread::join($mbox, $_), @group_to_join );<BR>
&nbsp;<BR>
# Multicast to group(s)<BR>
Spread::multicast($mbox, FIFO_MESS, 'Group1', 0, &quot;Message sent by cam&quot;);<BR>
<BR>
print &quot;Message sent\n&quot;;<BR>
<BR>
exit;<BR>
-----------------------&gt;<BR>
<BR>
Can anybody help?<BR>
Cheers,<BR>
Cam</FONT>
</P>

</BODY>
</HTML>