/*
  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 "LSNewCompanyCommand.h"
#include "common.h"

@interface LSNewCompanyCommand(ReadDefaults)
- (void)_fetchDefaultExtendedAttributes:(id)_context;
- (NSMutableDictionary *)_getDefaults:(NSString *)_status with:(id)_context;

@end

@implementation LSNewCompanyCommand

static NSArray  *defExcludeKeys = nil;
static EONull   *null   = nil;
static NSNumber *yesNum = nil;
static NSString *autoLoginPrefix  = @"OGo";
static NSString *autoNumberPrefix = @"OGo";

+ (void)initialize {
  NSUserDefaults *ud = [NSUserDefaults standardUserDefaults];
  static BOOL didInit = NO;
  if (didInit) return;
  didInit = YES;
  
  defExcludeKeys = [[ud arrayForKey:@"LSCompanyCommandExcludeKeys"] copy];
  null   = [[EONull null] retain];
  yesNum = [[NSNumber numberWithBool:YES] retain];
  
  autoLoginPrefix  = [[ud stringForKey:@"LSAutoCompanyLoginPrefix"] copy];
  autoNumberPrefix = [[ud stringForKey:@"LSAutoCompanyNumberPrefix"] copy];
}

- (id)initForOperation:(NSString *)_operation inDomain:(NSString *)_domain {
  if ((self = [super initForOperation:_operation inDomain:_domain])) {
    [self takeValue:@"00_created"      forKey:@"logAction"];
    [self takeValue:@"Company created" forKey:@"logText"];
  }
  return self;
}

- (void)dealloc {
  [self->comment           release];
  [self->telephones        release];
  [self->_newAddrCmds      release];
  [self->_newTelephoneCmds release];
  [self->pictureData       release];
  [self->pictureFilePath   release];
  [super dealloc];
}

/* defaults */

- (NSDictionary *)addressTypeMapInContext:(id)_ctx {
  /* eg: LSAddressType = { Enterprise = ( ship ); Person = ( private ) }; */
  return [[_ctx userDefaults] dictionaryForKey:@"LSAddressType"];
}
- (NSDictionary *)teleTypeMapInContext:(id)_ctx {
  return [[_ctx userDefaults] dictionaryForKey:@"LSTeleType"];
}

- (NSArray *)addressTypesInContext:(id)_ctx {
  /* eg: ( ship, bill ) */
  return [[self addressTypeMapInContext:_ctx] objectForKey:[self entityName]];
}
- (NSArray *)teleTypesInContext:(id)_ctx {
  /* eg: ( 01_tel, 02_tel, 10_fax ) */
  return [[self teleTypeMapInContext:_ctx] objectForKey:[self entityName]];
}

/* command methods */

- (void)_prepareNewAddrCmdsInContext:(id)_ctx {
  /* this sets up an array of configured 'address::new' invocations */
  NSArray      *types;
  NSEnumerator *objEnum;
  id obj;
  
  if ((types = [self addressTypesInContext:_ctx]) == nil)
    return;
  
  self->_newAddrCmds = [[NSMutableArray alloc] initWithCapacity:4];

  objEnum = [types objectEnumerator]; 
  while ((obj = [objEnum nextObject])) {
    id <NSObject,LSCommand> cmd;
    BOOL hasCommand;
    
    // TODO: what does that check?
    hasCommand = [self _hasCommandWithEntityName:@"address" andKey:@"type"
		       andValue:obj];
    if (hasCommand) continue;
    
    cmd = LSLookupCommand(@"address", @"new");
    [cmd takeValue:obj forKey:@"type"];
    [self->_newAddrCmds addObject:cmd];
  }
}

- (void)_prepareNewTelephoneCmdsInContext:(id)_ctx {
  // TODO: this is basically a duplicate of _prepareNewAddrCmdsInContext!!
  NSArray      *types;
  NSEnumerator *objEnum;
  id obj;
  
  if ((types = [self teleTypesInContext:_ctx]) == nil)
    return;

  self->_newTelephoneCmds = [[NSMutableArray alloc] initWithCapacity:8];
  
  objEnum = [types objectEnumerator]; 
  while ((obj = [objEnum nextObject])) {
    id <NSObject,LSCommand> cmd;
    BOOL hasCommand;
    
    // TODO: what does that check?
    hasCommand = [self _hasCommandWithEntityName:@"telephone" andKey:@"type"
		       andValue:obj];
    if (hasCommand) continue;

    cmd = LSLookupCommand(@"telephone", @"new");
    [cmd takeValue:obj forKey:@"type"];
    [self->_newTelephoneCmds addObject:cmd];
  }
}

- (void)_checkAndPrepareAddedCommands {
  id<NSObject,LSCommand> cmd;
  NSEnumerator *cmds;
  NSNumber     *pkey;
  
  cmds = [[self commands] objectEnumerator];
  pkey = [[self object] valueForKey:[self primaryKeyName]];
  
  while ((cmd = [cmds nextObject])) 
    [cmd takeValue:pkey forKey:@"companyId"];
}

- (void)_runAddressCommandsInContext:(id)_context {
  id<NSObject,LSCommand> cmd;
  NSEnumerator *cmds;
  NSNumber     *pkey;

  pkey = [[self object] valueForKey:[self primaryKeyName]];
  
  [self _prepareNewAddrCmdsInContext:_context];
  cmds = [self->_newAddrCmds objectEnumerator];
  while ((cmd = [cmds nextObject])) {
    [cmd takeValue:pkey forKey:@"companyId"];
    [cmd runInContext:_context];                  
  }
}

- (void)_runTelephoneCommandsInContext:(id)_context {
  // TODO: a copy of the -_runAddressCommandsInContext!
  id<NSObject,LSCommand> cmd;
  NSEnumerator *cmds;
  NSNumber     *pkey;

  pkey = [[self object] valueForKey:[self primaryKeyName]];

  [self _prepareNewTelephoneCmdsInContext:_context];
  
  cmds = [self->_newTelephoneCmds objectEnumerator];
  while ((cmd = [cmds nextObject])) {
    [cmd takeValue:pkey forKey:@"companyId"];
    [cmd runInContext:_context];                  
  }
}  
  
- (void)_newCompanyInfoInContext:(id)_context {
  id           company;
  NSNumber     *pkey;
  EOEntity     *infoEntity;
  id           info;
  NSDictionary *pk;
  
  company    = [self object];
  pkey       = [company valueForKey:[self primaryKeyName]];
  infoEntity = [[self databaseModel] entityNamed:@"CompanyInfo"];

  pk   = [self newPrimaryKeyDictForContext:_context keyName:@"companyInfoId"];
  info = [self produceEmptyEOWithPrimaryKey:pk entity:infoEntity];
  
  [info takeValue:[pk valueForKey:@"companyInfoId"] forKey:@"companyInfoId"];
  [info takeValue:pkey        forKey:@"companyId"];
  [info takeValue:@"inserted" forKey:@"dbStatus"];  
  
  if (self->comment != nil) 
    [info takeValue:self->comment forKey:@"comment"];

  [self assert:[[self databaseChannel] insertObject:info]
        reason:[sybaseMessages description]];
}

- (id)_newCompanyValue:(NSString *)_key value:(id)_value
  companyId:(NSNumber *)_pkey accountId:(NSNumber *)_uid
  type:(int)_type label:(NSString *)_label
  inContext:(id)_context
{
  if (_type  == 0)   _type  = 1;
  if (_label == nil) _label = (id)null;
  
  return LSRunCommandV(_context,
		       @"companyvalue", @"new",
		       @"companyId", _pkey,
		       @"attribute", _key,
		       @"uid",       _uid,
		       @"label",     _label,
		       @"type",      [NSNumber numberWithInt:_type],
		       @"value",     _value, nil);
}

- (void)_newExtendedAttributesInContext:(id)_context {
  NSNumber       *accountId   = nil;
  id              obj;
  NSEnumerator   *keyEnum;
  NSMutableDictionary *map;
  NSMutableArray *compValues;
  NSMutableArray *excludeKeys = nil;
  id              key         = nil;
  
  obj         = [self object];
  keyEnum     = [[self->defaultAttrs allKeys] objectEnumerator];
  map         = [NSMutableDictionary dictionaryWithCapacity:16];
  compValues  = [NSMutableArray array];
  
  accountId = [[_context valueForKey:LSAccountKey] valueForKey:@"companyId"];
  excludeKeys = 
    [NSMutableArray arrayWithArray:[[obj entity] classPropertyNames]];
  
  [excludeKeys addObjectsFromArray:defExcludeKeys];
  
  while ((key = [keyEnum nextObject])) {
    NSDictionary *attr;
    int           type;
    NSString     *label;
    id            userId;
    id            compValue = nil;
    
    if ([excludeKeys containsObject:key])
      continue;
    if ([obj valueForKey:key] == nil)
      continue;
    
    attr   = [self->defaultAttrs objectForKey:key];
    type   = [[attr valueForKey:@"type"] intValue];
    label  = [attr valueForKey:@"label"];
    userId = null;
      
    if ([[attr objectForKey:@"isPrivate"] boolValue])
      userId = accountId;

    compValue = [self _newCompanyValue:key value:[obj valueForKey:key]
		      companyId:[obj valueForKey:@"companyId"] accountId:userId
		      type:type label:label inContext:_context];
    [map setObject:attr forKey:key];
    [compValues addObject:compValue];
  }
  [obj takeValue:map        forKey:@"attributeMap"];
  [obj takeValue:compValues forKey:@"companyValue"];
}

- (void)_newTelephoneCommandsInContext:(id)_context {
  NSNumber *pkey;
  int i, cnt;
  
  pkey = [[self object] valueForKey:[self primaryKeyName]];
  cnt  = [self->telephones count];
  for (i = 0; i < cnt; i++) {
    id<NSObject,LSCommand> cmd;
    id tel;
    
    tel = [self->telephones objectAtIndex:i];
    cmd = LSLookupCommand(@"telephone", @"new");
    
    [cmd takeValuesFromDictionary:tel];
    [cmd takeValue:pkey forKey:@"companyId"];
    [cmd runInContext:_context];
  }
}

- (void)_prepareForExecutionInContext:(id)_context {
  NSString *nr = nil;
  NSString *n, *l;
  id obj;
  
  [super _prepareForExecutionInContext:_context];
  
  [self _fetchDefaultExtendedAttributes:_context];
  
  /* if 'login' or 'number' are undefined, set them up */
  
  obj = [self object];
  n   = [self->recordDict valueForKey:@"number"];
  l   = [self->recordDict valueForKey:@"login"];
  
  if ([n isKindOfClass:[NSString class]]) {
    if ([n length] == 0)
      n = nil;
  }
  
  if (![n isNotNull]) {
    nr = [[obj valueForKey:[self primaryKeyName]] stringValue];
    nr = [autoNumberPrefix stringByAppendingString:nr];
    [obj takeValue:nr forKey:@"number"];
  }
  if (![l isNotNull]) { 
    nr = [[obj valueForKey:[self primaryKeyName]] stringValue];
    nr = [autoLoginPrefix stringByAppendingString:nr];
    [obj takeValue:nr forKey:@"login"];
  }
  
  /* setup some default values */
  
  [obj takeValue:[NSNumber numberWithInt:1] forKey:@"objectVersion"];
  
  /* set initial owner if not provider by command callsite */
  
  if (![[obj valueForKey:@"ownerId"] isNotNull]) {
    [obj takeValue:
           [[_context valueForKey:LSAccountKey] valueForKey:@"companyId"]
	 forKey:@"ownerId"];
  }
}

- (void)_saveAttachmentInContext:(id)_context {
    NSFileManager  *manager;
    NSUserDefaults *defaults;
    id             obj;
    NSString       *fileName = nil;
    NSString       *fName    = nil;
    BOOL           isOk      = NO;

    manager  = [NSFileManager defaultManager];
    defaults = [_context userDefaults];
    obj      = [self object];
    
    fileName = [defaults stringForKey:@"LSAttachmentPath"];
    fileName = [NSString stringWithFormat:@"%@/%@.picture",
                         fileName, [obj valueForKey:@"companyId"]];

    if ((self->pictureData != nil && self->pictureFilePath != nil
         && [self->pictureData length] > 0)
        || self->deleteImage) {
      fName = [fileName stringByAppendingPathExtension:@"jpg"];

      if ([manager fileExistsAtPath:fName]) {
        [manager removeFileAtPath:fName handler:nil];        
      }
      fName = [fileName stringByAppendingPathExtension:@"gif"];

      if ([manager fileExistsAtPath:fName]) {
        [manager removeFileAtPath:fName handler:nil];        
      }
    }

    if (self->pictureData !=nil && self->pictureFilePath != nil &&
        [self->pictureData length] > 0) {
      fName = [fileName stringByAppendingPathExtension:
                        [self->pictureFilePath pathExtension]];
      isOk  = [self->pictureData writeToFile:fName atomically:YES];

      [self assert:isOk
            reason:@"Error during save of person/enterprise picture!"];
    }
}

- (void)_addCreationLogInContext:(id)_context {
  LSRunCommandV(_context, @"object", @"add-log",
                @"logText"    , [self valueForKey:@"logText"],
                @"action"     , [self valueForKey:@"logAction"],
                @"objectToLog", [self object],
                nil);
}

- (void)_executeInContext:(id)_context {
  [super _executeInContext:_context];

  [self _newCompanyInfoInContext:_context];
  [self _checkAndPrepareAddedCommands];
  [self _newExtendedAttributesInContext:_context];
  [self _runAddressCommandsInContext:_context];
  
  if (self->telephones == nil)
    [self _runTelephoneCommandsInContext:_context];
  else
    [self _newTelephoneCommandsInContext:_context];
  
  [self _saveAttachmentInContext:_context];
  [self _addCreationLogInContext:_context];
}

/* initialize records */

- (NSString *)entityName {
  return @"Company";
}

/* accessors */

- (void)setTelephones:(NSArray *)_telephones {
  ASSIGN(self->telephones, _telephones);
}
- (NSArray *)telephones {
  return self->telephones;
}

/* company info accessors */

- (void)setComment:(NSString *)_comment {
  ASSIGN(self->comment, _comment);
}
- (NSString *)comment {
  return self->comment;
}

- (void)setPictureData:(NSData *)_pictureData {
  ASSIGN(self->pictureData, _pictureData);
}
- (NSData *)pictureData {
  return self->pictureData;
}

- (void)setPictureFilePath:(NSString *)_pictureFilePath {
  ASSIGN(self->pictureFilePath, _pictureFilePath);
}
- (NSString *)pictureFilePath {
  return self->pictureFilePath;
}

- (void)setDeleteImage:(BOOL)_flag {
  self->deleteImage = _flag;
}
- (BOOL)deleteImage {
  return self->deleteImage;
}

/* key/value coding */

- (void)takeValue:(id)_value forKey:(NSString *)_key {
  if ([_key isEqualToString:@"telephones"]) {
    [self setTelephones:_value];
    return;
  }
  if ([_key isEqualToString:@"comment"]) {
    [self setComment:_value];
    return;
  }
  if ([_key isEqualToString:@"pictureData"]) {
    [self setPictureData:_value];
    return;
  }
  if ([_key isEqualToString:@"pictureFilePath"]) {
    [self setPictureFilePath:_value];
    return;
  }
  if ([_key isEqualToString:@"deleteImage"]) {
    [self setDeleteImage:[_value boolValue]];
    return;
  }

  [super takeValue:_value forKey:_key];
}

- (id)valueForKey:(NSString *)_key {
  if ([_key isEqualToString:@"comment"])
    return [self comment];
  if ([_key isEqualToString:@"telephones"])
    return [self telephones];
  if ([_key isEqualToString:@"pictureData"])
    return [self pictureData];
  if ([_key isEqualToString:@"pictureFilePath"])
    return [self pictureFilePath];
  if ([_key isEqualToString:@"deleteImage"])
    return [NSNumber numberWithBool:[self deleteImage]];
  
  return [super valueForKey:_key];
}

/* defaults */

- (void)_fetchDefaultExtendedAttributes:(id)_context {
  NSMutableDictionary *attrs;
  
  attrs = [self _getDefaults:@"Public" with:_context];
  [attrs addEntriesFromDictionary:
	   [self _getDefaults:@"Private" with:_context]];
  ASSIGN(self->defaultAttrs, attrs);
}

// _status should be "Private" or "Public"
- (NSMutableDictionary *)_getDefaults:(NSString *)_status with:(id)_context {
  BOOL           isPrivate;
  id             account;
  NSString       *key;
  NSUserDefaults *defs;
  
  isPrivate = [_status isEqualToString:@"Private"];
  account   = [_context valueForKey:LSAccountKey];
  key       = [NSString stringWithFormat:@"Sky%@Extended", _status];
  defs      = nil;
  
  if (account == nil) {
    defs = [NSUserDefaults standardUserDefaults];
  }
  else {
    defs = LSRunCommandV(_context, @"userdefaults", @"get",
                         @"user", account, nil);
  }
  
  key = [key stringByAppendingString:[self entityName]];
  key = [key stringByAppendingString:@"Attributes"];

  //e.g. key = "SkyPublicExtendedPersonAttributes"
  {
    NSMutableDictionary *result;
    NSEnumerator        *attrEnum;
    NSMutableDictionary *attr;
    
    result = [NSMutableDictionary dictionaryWithCapacity:8];
    attrEnum = [[defs arrayForKey:key] objectEnumerator];
    while ((attr = [attrEnum nextObject])) {
      NSString *key;
      
      key = [attr objectForKey:@"key"];
      [self assert:(key != nil)
	    reason:@"Extended attribute: missing attribute 'key'"];
      
      if (isPrivate) [attr setObject:yesNum forKey:@"isPrivate"];
      [result setObject:attr forKey:[attr objectForKey:@"key"]];
    }
    return result;
  }
}

@end /* LSNewCompanyCommand */