thomas: server/perl-kolab/lib/Kolab LDAP.pm,1.8,1.9

[cvs at kolab.org]

Author: thomas

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

Modified Files:
	LDAP.pm 
Log Message:
Add user attribute kolabHomeServerOnly to create user mailbox on the kolabHomeServer only.


Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- LDAP.pm	17 Jan 2009 17:05:50 -0000	1.8
+++ LDAP.pm	9 Feb 2009 15:32:37 -0000	1.9
@@ -468,6 +468,11 @@
             Kolab::log('L', "Kolab::LDAP::createObject() skipping shared folder for other server $kolabhomeserver", KOLAB_DEBUG);
             return;
         }
+        if( $object->get_value('kolabhomeserveronly') eq 'true' ) {
+            # Don't create the user's mailbox if it should be created on the kolabHomeServer only
+            Kolab::log('L', "Kolab::LDAP::createObject() skipping user mailbox creation for other server $kolabhomeserver", KOLAB_DEBUG);
+            return;
+        }
         Kolab::log('L', "Kolab::LDAP::createObject() for other server than $kolabhomeserver. TODO: Create referral or something, for now we just create an empty INBOX", KOLAB_DEBUG);
         # We create INBOX on other servers also, to allow access to shared/published
         # folders on those servers because some IMAP clients abort the connection