Monotone-Revision: 6b345f8997ac1b3e9d84b874889b5fac1528077b Monotone-Author: wsourdeau@inverse.ca Monotone-Date: 2006-12-15T22:20:02 Monotone-Branch: ca.inverse.sogo
234 lines
6.1 KiB
Objective-C
234 lines
6.1 KiB
Objective-C
/* SOGoAclsFolder.m - this file is part of SOGo
|
|
*
|
|
* Copyright (C) 2006 Inverse groupe conseil
|
|
*
|
|
* Author: Wolfgang Sourdeau <wsourdeau@inverse.ca>
|
|
*
|
|
* This file is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This file is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; see the file COPYING. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
* Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
#import <Foundation/NSArray.h>
|
|
#import <Foundation/NSKeyValueCoding.h>
|
|
#import <Foundation/NSString.h>
|
|
|
|
#import <NGExtensions/NSNull+misc.h>
|
|
#import <NGObjWeb/SoObject.h>
|
|
#import <EOControl/EOQualifier.h>
|
|
#import <GDLAccess/EOAdaptorChannel.h>
|
|
#import <GDLContentStore/GCSFolder.h>
|
|
#import <GDLContentStore/GCSFolderManager.h>
|
|
|
|
#import "SOGoFolder.h"
|
|
#import "SOGoAclsFolder.h"
|
|
|
|
@implementation SOGoAclsFolder
|
|
|
|
+ (id) aclsFolder
|
|
{
|
|
id aclsFolder;
|
|
|
|
aclsFolder = [self new];
|
|
[aclsFolder autorelease];
|
|
|
|
return aclsFolder;
|
|
}
|
|
|
|
- (id) init
|
|
{
|
|
if ((self = [super init]))
|
|
{
|
|
ocsPath = nil;
|
|
ocsFolder = nil;
|
|
}
|
|
|
|
return self;
|
|
}
|
|
|
|
- (void) dealloc
|
|
{
|
|
if (ocsPath)
|
|
[ocsPath release];
|
|
if (ocsFolder)
|
|
[ocsFolder release];
|
|
[super dealloc];
|
|
}
|
|
|
|
- (void) setOCSPath: (NSString *) newOCSPath
|
|
{
|
|
if (ocsPath)
|
|
[ocsPath release];
|
|
ocsPath = newOCSPath;
|
|
if (ocsPath)
|
|
[ocsPath retain];
|
|
}
|
|
|
|
- (GCSFolderManager *)folderManager {
|
|
return [GCSFolderManager defaultFolderManager];
|
|
}
|
|
|
|
- (GCSFolder *)ocsFolderForPath:(NSString *)_path {
|
|
return [[self folderManager] folderAtPath:_path];
|
|
}
|
|
|
|
- (GCSFolder *) ocsFolder {
|
|
GCSFolder *folder;
|
|
|
|
if (!ocsFolder)
|
|
ocsFolder = [[self ocsFolderForPath: ocsPath] retain];
|
|
|
|
if ([ocsFolder isNotNull])
|
|
folder = ocsFolder;
|
|
else
|
|
folder = nil;
|
|
|
|
return folder;
|
|
}
|
|
|
|
- (NSString *) _ocsPathForObject: (SOGoObject *) object
|
|
{
|
|
NSString *pathForObject;
|
|
id currentObject;
|
|
BOOL done;
|
|
|
|
NSLog (@"lookup ocs path for '%@' (%s)", [object nameInContainer], [object class]->name);
|
|
pathForObject = nil;
|
|
currentObject = object;
|
|
done = NO;
|
|
while (currentObject && !done)
|
|
if ([currentObject isKindOfClass: [SOGoFolder class]])
|
|
{
|
|
pathForObject = [(SOGoFolder *) currentObject ocsPath];
|
|
done = YES;
|
|
// if (!pathForObject)
|
|
// currentObject = [currentObject container];
|
|
}
|
|
else
|
|
currentObject = [currentObject container];
|
|
|
|
NSLog (@"path found = '%@'", pathForObject);
|
|
|
|
return pathForObject;
|
|
}
|
|
|
|
- (NSArray *) aclsForObject: (SOGoObject *) object
|
|
{
|
|
EOQualifier *qualifier;
|
|
NSString *objectPath;
|
|
|
|
[self setOCSPath: [self _ocsPathForObject: object]];
|
|
|
|
objectPath
|
|
= [NSString stringWithFormat: @"/%@",
|
|
[[object pathArrayToSoObject] componentsJoinedByString: @"/"]];
|
|
qualifier
|
|
= [EOQualifier qualifierWithQualifierFormat: @"c_object = %@", objectPath];
|
|
|
|
return [[self ocsFolder] fetchAclMatchingQualifier: qualifier];
|
|
}
|
|
|
|
- (NSArray *) aclsForObject: (SOGoObject *) object
|
|
forUser: (NSString *) uid
|
|
{
|
|
EOQualifier *qualifier;
|
|
NSString *objectPath;
|
|
NSArray *records;
|
|
|
|
[self setOCSPath: [self _ocsPathForObject: object]];
|
|
|
|
objectPath
|
|
= [NSString stringWithFormat: @"/%@",
|
|
[[object pathArrayToSoObject] componentsJoinedByString: @"/"]];
|
|
qualifier = [EOQualifier
|
|
qualifierWithQualifierFormat: @"(c_object = %@) AND (c_uid = %@)",
|
|
objectPath, uid];
|
|
|
|
records = [[self ocsFolder] fetchAclMatchingQualifier: qualifier];
|
|
|
|
return [records valueForKey: @"c_role"];
|
|
}
|
|
|
|
- (void) removeUsersWithRole: (NSString *) role
|
|
forObjectAtPath: (NSString *) objectPath
|
|
inFolder: (GCSFolder *) folder
|
|
{
|
|
NSString *deleteSQL;
|
|
EOAdaptorChannel *channel;
|
|
|
|
channel = [folder acquireAclChannel];
|
|
|
|
deleteSQL = [NSString stringWithFormat: @"DELETE FROM %@"
|
|
@" WHERE c_object = '%@'"
|
|
@" AND c_role = '%@'",
|
|
[folder aclTableName], objectPath, role];
|
|
[channel evaluateExpressionX: deleteSQL];
|
|
}
|
|
|
|
- (void) setRoleForObjectAtPath: (NSString *) objectPath
|
|
forUser: (NSString *) uid
|
|
to: (NSString *) role
|
|
inFolder: (GCSFolder *) folder
|
|
{
|
|
NSString *SQL;
|
|
EOAdaptorChannel *channel;
|
|
|
|
channel = [folder acquireAclChannel];
|
|
|
|
SQL = [NSString stringWithFormat: @"DELETE FROM %@"
|
|
@" WHERE c_object = '%@'"
|
|
@" AND c_uid = '%@'",
|
|
[folder aclTableName], objectPath, uid];
|
|
[channel evaluateExpressionX: SQL];
|
|
SQL = [NSString stringWithFormat: @"INSERT INTO %@"
|
|
@" (c_object, c_uid, c_role)"
|
|
@" VALUES ('%@', '%@', '%@')", [folder aclTableName],
|
|
objectPath, uid, role];
|
|
[channel evaluateExpressionX: SQL];
|
|
}
|
|
|
|
/* FIXME: part of this code should be moved to sope-gdl/GCSFolder.m */
|
|
- (void) setRoleForObject: (SOGoObject *) object
|
|
forUsers: (NSArray *) uids
|
|
to: (NSString *) role
|
|
{
|
|
GCSFolder *aclsFolder;
|
|
NSString *objectPath, *currentUID;
|
|
NSEnumerator *userUIDs;
|
|
|
|
[self setOCSPath: [self _ocsPathForObject: object]];
|
|
aclsFolder = [self ocsFolder];
|
|
|
|
objectPath
|
|
= [NSString stringWithFormat: @"/%@",
|
|
[[object pathArrayToSoObject] componentsJoinedByString: @"/"]];
|
|
[self removeUsersWithRole: role
|
|
forObjectAtPath: objectPath
|
|
inFolder: aclsFolder];
|
|
|
|
userUIDs = [uids objectEnumerator];
|
|
currentUID = [userUIDs nextObject];
|
|
while (currentUID)
|
|
{
|
|
if ([currentUID length] > 0)
|
|
[self setRoleForObjectAtPath: objectPath
|
|
forUser: currentUID
|
|
to: role
|
|
inFolder: aclsFolder];
|
|
currentUID = [userUIDs nextObject];
|
|
}
|
|
}
|
|
|
|
@end
|