thomas: server/perl-kolab/lib/Kolab LDAP.pm,1.10,1.11

cvs at kolab.org cvs at kolab.org
Thu Feb 19 15:37:16 CET 2009


Author: thomas

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

Modified Files:
	LDAP.pm 
Log Message:
* lib/Kolab/LDAP.pm: Prevent "Use of uninitialized value in string eq"
if attribute kolabhomeserveronly is not set.


Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- LDAP.pm	9 Feb 2009 15:39:37 -0000	1.10
+++ LDAP.pm	19 Feb 2009 14:37:14 -0000	1.11
@@ -468,7 +468,8 @@
             Kolab::log('L', "Kolab::LDAP::createObject() skipping shared folder for other server $kolabhomeserver", KOLAB_DEBUG);
             return;
         }
-        if( $object->get_value('kolabhomeserveronly') eq 'true' ) {
+        my $kolabhomeserveronly = $object->get_value('kolabhomeserveronly');
+        if( defined($kolabhomeserveronly) && $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;





More information about the commits mailing list