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