gunnar: server/perl-kolab/lib/Kolab LDAP.pm,1.13,1.14

[cvs at kolab.org]

Author: gunnar

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

Modified Files:
	LDAP.pm 
Log Message:
MFB: kolab/issue3472 (web client user prefs not deleted when user gets deleted)
cvs diff -u -d -r1.11.2.1 -r1.11.2.2 perl-kolab/lib/Kolab/LDAP.pm
cvs diff -u -d -r1.398.2.10 -r1.398.2.11 release-notes.txt

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- LDAP.pm	16 Mar 2009 17:57:15 -0000	1.13
+++ LDAP.pm	16 Apr 2009 08:55:18 -0000	1.14
@@ -721,6 +721,18 @@
 	}
     }
 
+    # FIXME
+    # This is a horrible fix for kolab/issue3472. kolabd is a simple
+    # deamon that should react to changes within LDAP. It should NOT
+    # however have any application knowledge. It would be better if
+    # each application that requires cleanup operations after user
+    # removal could add a script in a directory collecting such
+    # operations.
+    if (-e $Kolab::config{'webserver_document_root'} . '/client/storage/' . $uid . '.prefs' ) {
+	unlink($Kolab::config{'webserver_document_root'} . '/client/storage/' . $uid . '.prefs');
+        Kolab::log('L', "Deleted web client user preferences for user $uid.", KOLAB_DEBUG);
+    }
+
     if (!$uid) {
         Kolab::log('L', 'Deleted object not found in mboxcache, returning', KOLAB_DEBUG);
         return;