steffen: server/perl-kolab/Kolab-LDAP-Backend-dirservd dirservd.pm, 1.1, 1.2
cvs at intevation.de
cvs at intevation.de
Mon May 24 03:32:16 CEST 2004
Author: steffen
Update of /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend-dirservd
In directory doto:/tmp/cvs-serv14376/Kolab-LDAP-Backend-dirservd
Modified Files:
dirservd.pm
Log Message:
disable dirserv if no server is configured for it
Index: dirservd.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP-Backend-dirservd/dirservd.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- dirservd.pm 31 Mar 2004 15:36:48 -0000 1.1
+++ dirservd.pm 24 May 2004 01:32:13 -0000 1.2
@@ -77,25 +77,20 @@
my $mesg;
Kolab::log('DSd', 'Listener starting up, refresh is: '.$Kolab::config{'dirserv_poll_period'}." seconds");
+ while ($Kolab::config{'dirserv_mailbox_server'} ne '') {
+ while (1) {
- #while ($Kolab::config{'dirserv_mailbox_server'} ne '') {
- while (1) {
-
- if ($Kolab::config{'dirserv_mailbox_user'} ne "") {
- Kolab::log('DSd', 'Polling for DirServ updates', KOLAB_DEBUG);
- Kolab::DirServ::handleNotifications(
- $Kolab::config{'dirserv_mailbox_server'},
- $Kolab::config{'dirserv_mailbox_user'},
- $Kolab::config{'dirserv_mailbox_password'},
- );
- }
-
- sleep($Kolab::config{'dirserv_poll_period'});
-
-
- };
-
-
+ if ($Kolab::config{'dirserv_mailbox_user'} ne "") {
+ Kolab::log('DSd', 'Polling for DirServ updates', KOLAB_DEBUG);
+ Kolab::DirServ::handleNotifications(
+ $Kolab::config{'dirserv_mailbox_server'},
+ $Kolab::config{'dirserv_mailbox_user'},
+ $Kolab::config{'dirserv_mailbox_password'},
+ );
+ }
+ sleep($Kolab::config{'dirserv_poll_period'});
+ };
+ }
1;
}
More information about the commits
mailing list