steffen: server/perl-kolab/Kolab-LDAP LDAP.pm.in,1.6,1.7

cvs at kolab.org cvs at kolab.org
Wed Mar 28 03:48:31 CEST 2007


Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv23010/Kolab-LDAP

Modified Files:
	LDAP.pm.in 
Log Message:
debug option for verbose logging to stderr

Index: LDAP.pm.in
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm.in,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- LDAP.pm.in	30 Jul 2006 21:20:43 -0000	1.6
+++ LDAP.pm.in	28 Mar 2007 01:48:28 -0000	1.7
@@ -263,12 +263,13 @@
     my $del = $object->get_value($Kolab::config{$p . '_field_deleted'}, asref => 1);
     if( ref($del) eq 'ARRAY' && @$del > 0 ) {
       Kolab::log('L', "Kolab::LDAP::createObject() skipping object ".lc($object->get_value($objuidfield))
-		 ." because it is deleted");
+		 ." because it is deleted", KOLAB_DEBUG);
       return;
     }
     if( $kolabhomeserver && $kolabhomeserver ne lc($Kolab::config{'fqdnhostname'}) ) {
       if( $p eq 'sf' ) {
 	# Dont create shared folders on other hosts than it's kolabhomeserver
+	Kolab::log('L', "Kolab::LDAP::createObject() skipping shared folder for other server $kolabhomeserver", KOLAB_DEBUG);
 	return;
       }
       Kolab::log('L', "Kolab::LDAP::createObject() for other server $kolabhomeserver. TODO: Create referral or something, for now we just create ", KOLAB_DEBUG);
@@ -303,7 +304,9 @@
         if ($olduid ne $uid) {
             # The mailbox changed; bitch
             Kolab::log('L', "Object `$uid' already exists as `$olduid'; refusing to create", KOLAB_WARN);
-        }
+        } else {
+            Kolab::log('L', "Object `$uid' already exists, skipping", KOLAB_DEBUG);
+	}
         # Nothing changed; nothing to do
         #Kolab::DirServ::genericRequest($object, "modify alias");
     } else {
@@ -376,6 +379,7 @@
 	  $quota_db{$guid} = $quota;
 	}
     }
+    Kolab::log('L', "createObject() done", KOLAB_DEBUG );
 }
 
 sub createMasterLDAP {
@@ -707,7 +711,7 @@
 
 =head1 AUTHOR
 
-Stuart Bing묠E<lt>s.binge at codefusion.co.zaE<gt>
+Stuart Bingë¬ E<lt>s.binge at codefusion.co.zaE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 





More information about the commits mailing list