Monotone-Parent: 0b2ba2d3c49b01c45b4abeb2e5a83fa8ea053a84

Monotone-Revision: f6270207331bcfe8521e449bfa34781eddb03eaa

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-05-11T21:45:33
Monotone-Branch: ca.inverse.sogo

UI/Common/UIxObjectActions.m

@@ -36,7 +36,7 @@
 {
   WOResponse *response;
   WORequest *request;
-  NSString *uid, *email;
+  NSString *uid;
   unsigned int code;
   LDAPUserManager *um;
   SOGoObject *clientObject;
@@ -47,8 +47,7 @@
   if ([uid length] > 0)
     {
       um = [LDAPUserManager sharedUserManager];
-      email = [um getEmailForUID: uid];
-      if ([email length] > 0)
+      if ([um contactInfosForUserWithUIDorEmail: uid])
         {
           clientObject = [self clientObject];
           [clientObject setRoles: [clientObject defaultAclRoles]
@@ -63,4 +62,31 @@
   return response;
 }
 
+- (WOResponse *) removeUserFromAclsAction
+{
+  WOResponse *response;
+  WORequest *request;
+  NSString *uid;
+  unsigned int code;
+  LDAPUserManager *um;
+
+  code = 403;
+  request = [context request];
+  uid = [request formValueForKey: @"uid"];
+  if ([uid length] > 0)
+    {
+      um = [LDAPUserManager sharedUserManager];
+      if ([um contactInfosForUserWithUIDorEmail: uid])
+	{
+	  [[self clientObject] removeAclsForUsers: [NSArray arrayWithObject: uid]];
+          code = 204;
+        }
+    }
+
+  response = [context response];
+  [response setStatus: code];
+
+  return response;
+}
+
 @end