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