thomas: server/perl-kolab/Kolab Kolab.pm.in,1.6,1.6.2.1

[cvs at kolab.org]

Author: thomas

Update of /kolabrepository/server/perl-kolab/Kolab
In directory doto:/tmp/cvs-serv6825/perl-kolab/Kolab

Modified Files:
      Tag: kolab_2_1_branch
	Kolab.pm.in 
Log Message:
Determine connect_addr and use it for connecting to Kolab services.


Index: Kolab.pm.in
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab/Attic/Kolab.pm.in,v
retrieving revision 1.6
retrieving revision 1.6.2.1
diff -u -d -r1.6 -r1.6.2.1
--- Kolab.pm.in	28 Mar 2007 01:48:28 -0000	1.6
+++ Kolab.pm.in	19 Sep 2007 17:06:42 -0000	1.6.2.1
@@ -228,6 +228,14 @@
 
     $config{'fqdn'} = trim(`hostname`);
 
+    # connect to services at local address if binding to any interface,
+    # otherwise use the address specified for the public interface.
+    if ($config{'bind_any'} =~ /true/i) {
+        $config{'connect_addr'} = $config{'local_addr'};
+    } else {
+        $config{'connect_addr'} = $config{'bind_addr'};
+    }
+
     # Cyrus admin account
     $tempval = $config{'cyrus-admins'} || 'manager';
     (my $cmanager, my $dummy) = split(/ /, $tempval, 2);