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