steffen: server/perl-kolab/Kolab-LDAP-Backend-slurpd slurpd.pm, 1.1, 1.2

cvs at intevation.de cvs at intevation.de
Tue May 25 05:22:55 CEST 2004


Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend-slurpd
In directory doto:/tmp/cvs-serv9160/perl-kolab/Kolab-LDAP-Backend-slurpd

Modified Files:
	slurpd.pm 
Log Message:
fixed

Index: slurpd.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend-slurpd/slurpd.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- slurpd.pm	31 Mar 2004 15:36:49 -0000	1.1
+++ slurpd.pm	25 May 2004 03:22:53 -0000	1.2
@@ -234,6 +234,7 @@
     my $changes = 0;
 
     my $port = $Kolab::config{'slurpd_port'};
+  TRYCONNECT:
     Kolab::log('SD', "Opening listen server on port $port");
     $server = IO::Socket::INET->new(
         LocalPort   => $port,
@@ -245,7 +246,8 @@
     );
     if (!$server) {
         Kolab::log('SD', "Unable to open TCP listen server on port $port, Error = $@", KOLAB_ERROR);
-        &abort;
+	sleep 1;
+	goto TRYCONNECT;
     }
 
     Kolab::log('SD', 'Listen server opened, waiting for incoming connections');





More information about the commits mailing list