/* 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;

  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];

  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