gunnar: server/perl-kolab/lib/Kolab LDAP.pm,1.11.2.1,1.11.2.2

[cvs at kolab.org]

Author: gunnar

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

Modified Files:
      Tag: kolab_2_2_branch
	LDAP.pm 
Log Message:
 kolab/issue3472 (web client user prefs not deleted when user gets deleted)

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/lib/Kolab/LDAP.pm,v
retrieving revision 1.11.2.1
retrieving revision 1.11.2.2
diff -u -d -r1.11.2.1 -r1.11.2.2
--- LDAP.pm	16 Mar 2009 17:56:54 -0000	1.11.2.1
+++ LDAP.pm	20 Mar 2009 10:22:10 -0000	1.11.2.2
@@ -710,6 +710,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;