/*
  Copyright (C) 2000-2005 SKYRIX Software AG

  This file is part of OpenGroupware.org.

  OGo is free software; you can redistribute it and/or modify it under
  the terms of the GNU Lesser General Public License as published by the
  Free Software Foundation; either version 2, or (at your option) any
  later version.

  OGo 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 Lesser General Public
  License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with OGo; see the file COPYING.  If not, write to the
  Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  02111-1307, USA.
*/

#include "DirectAction.h"
#include "common.h"
#include "EOControl+XmlRpcDirectAction.h"

@implementation DirectAction(Generic)

/* access */


/*
  \brief Returns true or false if the object with url _access 
         has access (_op (rw..)) to the objects referred as urls 
         in _objs
  \param op string containing the char flags, eg: 'rw' for read/write
  \param objs array of OGo URLs, eg: ( 10000, 10001 )
  \access access OGo URL to the principal to test (default: login account)
  \addtogroup XmlRpcGeneric
*/
- (id)access_operationAllowedOnObjectsForAccessAction:(id)_op
  :(id)_objs:(id)_access
{
  LSCommandContext *cmdctx;
  SkyAccessManager *accessManager;
  id      docManager, accessId;
  NSArray *objIds;
  BOOL    ok;

  /* handle parameters */
  
  if (_objs == nil || _op == nil)
    return nil;
  
  if (![_objs isKindOfClass:[NSArray class]] &&
      ![_objs isKindOfClass:[NSSet class]]) {
    if ([_objs isKindOfClass:[NSString class]])
      _objs = [_objs componentsSeparatedByString:@","];
  }
  
  /* process */
  
  cmdctx     = [self commandContext];
  docManager = [cmdctx documentManager];
  objIds     = [docManager globalIDsForURLs:_objs];
  if (![_access isNotNull]) {
    accessId = [[cmdctx valueForKey:LSAccountKey] globalID];
  }
  else {
    NSArray *accessArray;
    
    accessArray = [NSArray arrayWithObject:_access];
    accessId    = [[docManager globalIDsForURLs:accessArray] lastObject];
  }

  accessManager = [cmdctx accessManager];
  ok = [accessManager operation:_op
		      allowedOnObjectIDs:objIds
		      forAccessGlobalID:accessId];
  
  return [NSNumber numberWithBool:ok];
}

/*
  \brief Set the access given access right (_op) to the object referred as 
   url in _obj to the object _access (also referred as url. Returns true or 
   false on success or failed.
  \param op string containing the char flags, eg: 'rw' for read/write
  \param obj OGo URL of the object (eg: "10000")
  \param access: OGo URL to the principal to test for (default: login account)
  \addtogroup XmlRpcGeneric
*/
- (id)access_setOperationOnObjectForAccessAction:(id)_op:(id)_obj:(id)_access {
  LSCommandContext *cmdctx;
  SkyAccessManager *accessManager;
  id   docManager, objId, accessId;
  BOOL ok;
  
  if (_op == nil || _obj == nil)
    return nil;
  
  cmdctx     = [self commandContext];
  docManager = [cmdctx documentManager];
  objId      = [[docManager globalIDsForURLs:[NSArray arrayWithObject:_obj]]
                            lastObject];
  if (![_access isNotNull])
    accessId = [[cmdctx valueForKey:LSAccountKey] globalID];
  else {
    accessId   = [[docManager globalIDsForURLs:
                              [NSArray arrayWithObject:_access]] lastObject];
  }
  
  accessManager = [cmdctx accessManager];
  ok = [accessManager setOperation:_op
		      onObjectID:objId
		      forAccessGlobalID:accessId];
  return [NSNumber numberWithBool:ok];
}

/*
  \brief Retrieve document type by id
  \param _arg String or number of document
  \note Returns "Unknown" if the document id is not valid
  \addtogroup XmlRpcGeneric
*/
- (id)generic_getTypeByIdAction:(id)_arg {
  EOGlobalID *gid;

  /* If _args is a number convert it to a string */
  if ([_arg isKindOfClass:[NSNumber class]])
    _arg = [_arg stringValue];
  
  /* If _args is a String then attempt the lookup */
  if (![_arg isKindOfClass:[NSString class]]) {
    return [self faultWithFaultCode:XMLRPC_FAULT_INVALID_PARAMETER
		 reason:@"Unable to process parameter type."];
  }

  gid = [[[self commandContext] documentManager] globalIDForURL:_arg];
  if (gid == nil)
    return @"Unknown"; // TODO: would be better to return an empty string?
  
  return [gid entityName];
}

- (id)access_getACLByIdAction:(id)_arg {
  SkyAccessManager       *accessManager;
  NSDictionary           *result;
  NSMutableDictionary    *objectList;
  NSArray                *eoIDs;
  NSMutableArray         *pkeys;
  unsigned               i;
  
  /* If _arg is a number make it an array of one
     ELSE if _arg is a string make it an array by splitting on ","
     ELSE if _arg is an array take it into a mutable array
     ELSE bail */
  if ([_arg isKindOfClass:[NSNumber class]]) {
    pkeys = [NSMutableArray arrayWithObject:_arg];
  }
  else if ([_arg isKindOfClass:[NSString class]]) {
    pkeys =
      [[[_arg componentsSeparatedByString:@","] mutableCopy] autorelease];
  }
  else if ([_arg isKindOfClass:[NSArray class]]) {
    pkeys = [[_arg mutableCopy] autorelease];
  }
  else {
    return [self faultWithFaultCode:XMLRPC_FAULT_INVALID_PARAMETER
		 reason: @"invalid argument type"];
  }
  
  /* Loop through array making everything into an NSNumber */
  
  for (i = 0; i < [pkeys count]; i++) {
    if ([[pkeys objectAtIndex:i] isKindOfClass:[NSNumber class]]) {
      /* We don't need to do anything, already a number */
    }
    else if ([[pkeys objectAtIndex:i] isKindOfClass:[NSString class]]) {
      /* Convert any NSString values into NSNumbers */
      [pkeys replaceObjectAtIndex:i 
	     withObject:[NSNumber numberWithInt:
				    [[pkeys objectAtIndex:i] intValue]]];
    } 
    else {
      return [self faultWithFaultCode:XMLRPC_FAULT_INVALID_PARAMETER
		   reason: @"invalid argument type in array"];
    }
  } /* End of for */

  
  /* Construct nice array of EOGlobalIDs */
  
  eoIDs = [[[self commandContext] typeManager] globalIDsForPrimaryKeys:pkeys];
  if ([eoIDs containsObject:[NSNull null]]) {
    return [self faultWithFaultCode:XMLRPC_FAULT_INVALID_PARAMETER
		 reason: @"Invalid object primary key identifier specified"];
  }
  
  
  /* Marshal accessManager and retrieve ACL info */
  accessManager = [[self commandContext] accessManager];
  result        = [accessManager allowedOperationsForObjectIds:eoIDs];
  
  _arg       = [result allKeys];
  objectList = [NSMutableDictionary dictionaryWithCapacity:16];
  
  /* Build response */
  for (i = 0; i < [_arg count]; i++) {
    NSMutableArray *aclList;
    NSDictionary   *payload, *acl;
    EOKeyGlobalID  *keyEOID;
    unsigned       j;
    NSArray        *aclKeys;
    
    keyEOID = [_arg objectAtIndex: i];
    payload = [result objectForKey: keyEOID];
    aclList = [NSMutableArray arrayWithCapacity:16];
    aclKeys = [payload allKeys];
    for (j = 0; j < [aclKeys count]; j++) {
      EOKeyGlobalID *aclKeyEOID;
      
      aclKeyEOID = [aclKeys objectAtIndex: j];
      acl = [NSDictionary dictionaryWithObjectsAndKeys:
			    [aclKeyEOID entityName], @"entityName",
			    [[aclKeyEOID keyValuesArray] objectAtIndex: 0], 
			    @"objectId",
			    [payload objectForKey: aclKeyEOID], @"operations",
			  nil];
	[aclList addObject: acl];
    }
    [objectList setObject: aclList 
		forKey:
		  [[[keyEOID keyValuesArray] objectAtIndex: 0] stringValue]];
  }
  
  return objectList;
}

@end /* DirectAction(Generic) */