/** GSWActionRequestHandler.m - <title>GSWeb: Class GSWActionRequestHandler</title>

   Copyright (C) 1999-2003 Free Software Foundation, Inc.
   
   Written by:	Manuel Guesdon <mguesdon@orange-concept.com>
   Date: 	Feb 1999
   
   $Revision$
   $Date$
   $Id$

   This file is part of the GNUstep Web Library.
   
   <license>
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
   
   This library 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
   Library General Public License for more details.
   
   You should have received a copy of the GNU Library General Public
   License along with this library; if not, write to the Free
   Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   </license>
**/

#include "config.h"

RCS_ID("$Id$")

#include "GSWeb.h"

//====================================================================
@implementation GSWActionRequestHandler

-(NSString*)defaultActionClassName
{
  [self subclassResponsibility: _cmd];
  return nil;
};

-(NSString*)defaultDefaultActionName
{
  return @"default";
};

-(BOOL)defaultShouldAddToStatistics
{
  return YES;
};

-(id)init
{
  if ((self=[super init]))
    {
      ASSIGN(_actionClassName,[self defaultActionClassName]);
      ASSIGN(_defaultActionName,[self defaultDefaultActionName]);
      _shouldAddToStatistics=[self defaultShouldAddToStatistics];
    };
  return self;
};

-(id)initWithDefaultActionClassName:(NSString*)defaultActionClassName
                  defaultActionName:(NSString*)defaultActionName
              shouldAddToStatistics:(BOOL)shouldAddToStatistics
{
  if ((self=[self init]))
    {
      ASSIGN(_actionClassName,defaultActionClassName);
      ASSIGN(_defaultActionName,defaultActionName);
      _shouldAddToStatistics=shouldAddToStatistics;
    };
  return self;
};

-(void)dealloc
{
  DESTROY(_actionClassName);
  DESTROY(_defaultActionName);
  [super dealloc];
};

//--------------------------------------------------------------------
-(BOOL)isSessionIDInRequest:(GSWRequest*)aRequest
{
  return [aRequest _isSessionIDInRequest];
}

//--------------------------------------------------------------------
-(void)registerWillHandleActionRequest
{
  [self subclassResponsibility: _cmd];
};

//--------------------------------------------------------------------
-(void)registerDidHandleActionRequestWithActionNamed:(NSString*)actionName
{
  [self subclassResponsibility: _cmd];
};

//--------------------------------------------------------------------
-(GSWResponse*)handleRequest:(GSWRequest*)aRequest
{
  //OK
  GSWResponse* response=nil;
  GSWApplication* application=nil;
  LOGObjectFnStart();
  application=[GSWApplication application];

  // Test if we should accept request
  if ([application isRefusingNewSessions]
      && ![self isSessionIDInRequest:aRequest]
      && [aRequest _isUsingWebServer])
    {
      // Reject it
      response=[self generateRequestRefusalResponseForRequest:aRequest];
    }
  else
    {
      // Accept it 
      [application lockRequestHandling];
      NS_DURING
        {
          response=[self _handleRequest:aRequest];
        }
      NS_HANDLER
        {
          LOGException(@"%@ (%@)",localException,[localException reason]);
          [application unlockRequestHandling];
          [localException raise];//TODO
        };
      NS_ENDHANDLER;
      [application unlockRequestHandling];
    };
  if (!response)
    {
      response=[self generateNullResponse];
      [response _finalizeInContext:nil];
    };
  LOGObjectFnStop();
  return response;
};

//--------------------------------------------------------------------
-(void)_setRecordingHeadersToResponse:(GSWResponse*)aResponse
                           forRequest:(GSWRequest*)request
                            inContext:(GSWContext*)context
{
  [[GSWApplication application] _setRecordingHeadersToResponse:aResponse
                                forRequest:request
                                inContext:context];
};

//--------------------------------------------------------------------
-(NSArray*)getRequestHandlerPathForRequest:(GSWRequest*)aRequest
{
  return [self subclassResponsibility: _cmd];
};

//--------------------------------------------------------------------
+(Class)_actionClassForName:(NSString*)name
{
  Class class=Nil;
  LOGObjectFnStart();
  class=NSClassFromString(name);
  NSDebugMLog(@"name=%@",name);
  NSDebugMLog(@"class=%@",class);
  NSDebugMLog(@"[GSWAction class]=%@",[GSWAction class]);
  if (class)
    {
      NSLog(@"Z6-  class=%@",class);//TODO: does this to force class init. Check this later
      if (!GSObjCIsKindOf(class,[GSWAction class]))
        class=Nil;
    };
  NSDebugMLog(@"class=%@",class);
  LOGObjectFnStop();
  return class;
}

//--------------------------------------------------------------------
-(void)getRequestActionClassNameInto:(NSString**)actionClassNamePtr
                           classInto:(Class*)actionClassPtr
                            nameInto:(NSString**)actionNamePtr
                            forPath:(NSArray*)path
{
  int pathCount=0;
  int i=0;

  LOGObjectFnStart();

  pathCount=[path count];
  NSDebugMLog(@"path=%@",path);
  NSDebugMLog(@"pathCount=%d",pathCount);

  // remove empty last parts
  for(i=pathCount-1;i>=0 && [[path objectAtIndex:i]length]==0;i--)
    pathCount--;
  if (pathCount<[path count])
    {
      path=[path subarrayWithRange:NSMakeRange(0,pathCount)];
    };
  NSDebugMLog(@"path=%@",path);
  NSDebugMLog(@"pathCount=%d",pathCount);
  switch(pathCount)
    {
    case 0:
      NSDebugMLog(@"_actionClassName=%@",_actionClassName);
      NSDebugMLog(@"_actionClassClass=%@",_actionClassClass);
      NSDebugMLog(@"_defaultActionName=%@",_defaultActionName);      
      *actionClassNamePtr = _actionClassName;
      *actionClassPtr = _actionClassClass;
      *actionNamePtr = _defaultActionName;
      break;
    case 1:
      {
        NSString* testActionName=[path objectAtIndex:0];
        NSDebugMLog(@"testActionName=%@",testActionName);

        if ([GSWAction _isActionNamed:testActionName
                       actionOfClass:*actionClassPtr])
          {
            NSDebugMLog(@"_actionClassName=%@",_actionClassName);
            if(!_actionClassClass) {
               _actionClassClass = NSClassFromString(_actionClassName);
            }
            NSDebugMLog(@"_actionClassClass=%@",_actionClassClass); //nil here?? dave
            NSDebugMLog(@"testActionName=%@",testActionName);      
            *actionClassNamePtr = _actionClassName;
            *actionClassPtr = _actionClassClass;
            *actionNamePtr = testActionName;
          } 
        else
          {
            *actionClassPtr = [[self class]_actionClassForName:testActionName]; // is it a class ?
            NSDebugMLog(@"*actionClassPtr=%@",*actionClassPtr);
            if (*actionClassPtr)
              {
                *actionClassNamePtr = NSStringFromClass(*actionClassPtr);
                *actionNamePtr = _defaultActionName;
                NSDebugMLog(@"*actionClassNamePtr=%@",*actionClassNamePtr);
                NSDebugMLog(@"*actionNamePtr=%@",*actionNamePtr);      
              } 
            else
              {
                *actionClassNamePtr = _actionClassName;
                *actionClassPtr = _actionClassClass;
                *actionNamePtr = testActionName;
                NSDebugMLog(@"_actionClassName=%@",_actionClassName);
                NSDebugMLog(@"_actionClassClass=%@",_actionClassClass);
                NSDebugMLog(@"testActionName=%@",testActionName);      
              }
          }
        /*
        NSString* tmpActionName=[NSString stringWithFormat:@"%@Action",];
        SEL tmpActionSel=NSSelectorFromString(tmpActionName);
        Class aClass = NSClassFromString(@"DirectAction");
        NSDebugMLLog(@"requests",@"tmpActionName=%@",
                     tmpActionName);
        if (tmpActionSel && aClass)
          {
                if ([aClass instancesRespondToSelector:tmpActionSel])
                  {
                    actionName=[requestHandlerPathArray objectAtIndex:0];
                    className=@"DirectAction";
                  };
              };
            if (!actionName)
              {
                className=[requestHandlerPathArray objectAtIndex:0];
                actionName=@"default";
              };
          };
*/
      };
      break;
    case 2:
    default:
      {
        *actionClassNamePtr=[path objectAtIndex:0];
        *actionNamePtr=[NSString stringWithFormat:@"%@",
                                 [path objectAtIndex:1]];
        NSDebugMLog(@"*actionClassNamePtr=%@",*actionClassNamePtr);
        NSDebugMLog(@"*actionNamePtr=%@",*actionNamePtr);
        if ([*actionNamePtr isEqual:*actionClassNamePtr])
          {
            *actionClassNamePtr = _actionClassName;
            *actionClassPtr = _actionClassClass;
            NSDebugMLog(@"*actionClassNamePtr=%@",*actionClassNamePtr);
            NSDebugMLog(@"*actionClassPtr=%@",*actionClassPtr);
          }
        else
          {
            *actionClassPtr = [[self class]_actionClassForName:*actionClassNamePtr];
            NSDebugMLog(@"*actionClassNamePtr=%@",*actionClassNamePtr);
            NSDebugMLog(@"*actionClassPtr=%@",*actionClassPtr);
          };
        };
      break;
    };
  LOGObjectFnStop();
};

-(GSWAction*)getActionInstanceOfClass:(Class)actionClass
                          withRequest:(GSWRequest*)aRequest
{
  GSWAction* action=(GSWAction*)[[actionClass alloc]initWithRequest:aRequest];
  return action;
}


//--------------------------------------------------------------------
// Application lockRequestHandling is set
-(GSWResponse*)_handleRequest:(GSWRequest*)aRequest
{
  GSWResponse* response=nil;
  GSWStatisticsStore* statisticsStore=nil;
  GSWApplication* application=nil;
  NSArray* requestHandlerPathArray=nil;
  Class actionClass=Nil;
  NSString* actionName=nil;
  NSString* actionClassName=nil;
  GSWContext* context=nil;
  LOGObjectFnStart();
  application=[GSWApplication application];

  NS_DURING
    {
      statisticsStore=[application statisticsStore];
      if (_shouldAddToStatistics)
        [self registerWillHandleActionRequest];

      requestHandlerPathArray=[self getRequestHandlerPathForRequest:aRequest];
      NSDebugMLLog(@"requests",@"requestHandlerPathArray=%@",
                   requestHandlerPathArray);

      [self getRequestActionClassNameInto:&actionClassName
            classInto:&actionClass
            nameInto:&actionName
            forPath:requestHandlerPathArray];
      NSDebugMLLog(@"requests",@"className=%@",actionClassName);
      NSDebugMLLog(@"requests",@"actionClass=%@",actionClass);
      NSDebugMLLog(@"requests",@"actionName=%@",actionName);

      if (actionClass)
        {
          GSWResourceManager* resourceManager=nil;
          GSWDeployedBundle* appBundle=nil;
          id<GSWActionResults> actionResult=nil;

          resourceManager=[application resourceManager];
          appBundle=[resourceManager _appProjectBundle];
          [resourceManager _allFrameworkProjectBundles];//So what ?
          [application awake];
          
          GSWAction* action=[self getActionInstanceOfClass:actionClass
                                  withRequest:aRequest];

          NSAssert1(action,@"Direct action of class named %@ can't be created",
                    actionClassName);
          
          actionResult=[action performActionNamed:actionName];
 
          response=[actionResult generateResponse];
          
          context=[action _context];
          

          [[NSNotificationCenter defaultCenter]postNotificationName:@"DidHandleRequestNotification"
                                               object:context];
          [self _setRecordingHeadersToResponse:response
                forRequest:aRequest
                inContext:context];
        }
      else
        {
          NSException* exception=nil;

          if ([actionClassName length]>0)
            {

              exception=[NSException exceptionWithName:NSInvalidArgumentException//TODO better name
                                     reason:[NSString stringWithFormat:@"Can't find action class named '%@'",actionClassName]
                                     userInfo:nil];

            }
          else {
            exception=[NSException exceptionWithName:NSInvalidArgumentException//TODO better name
                                   reason:[NSString stringWithFormat:@"Can't execute action with path: '%@'",requestHandlerPathArray]
                                   userInfo:nil];
          }

          [exception raise];
        };
      if ([application isCachingEnabled])
        {
          //TODO
        };
      {
        
        //Finir ?
      };
    }
  NS_HANDLER
    {

      LOGException(@"%@ (%@)",localException,[localException reason]);
      if (!context)
        context=[GSWApp _context];
      response=[application handleException:localException
                            inContext:context];
      //TODO
    };
  NS_ENDHANDLER;
  NSDebugMLLog(@"requests",@"response=%@",response);
  RETAIN(response);
  if (!context)
    context=[GSWApp _context];
  if (context)
    {
      [context _putAwakeComponentsToSleep];
      [application saveSessionForContext:context];
    };

  NSDebugMLLog(@"requests",@"response=%@",response);
  AUTORELEASE(response);
	  
  [application sleep];

  [self registerDidHandleActionRequestWithActionNamed:actionName];

  //TODO do not fnalize if already done (in handleException for exemple)
  if (response)
    [response _finalizeInContext:context];
  [application _setContext:nil];

  LOGObjectFnStop();
  return response;
};

//--------------------------------------------------------------------
-(GSWResponse*)generateNullResponse
{
  return [self subclassResponsibility: _cmd];
};

//--------------------------------------------------------------------
-(GSWResponse*)generateRequestRefusalResponseForRequest:(GSWRequest*)aRequest
{
  return [self subclassResponsibility: _cmd];
};

//--------------------------------------------------------------------
-(GSWResponse*)generateErrorResponseWithException:(NSException*)error
                                        inContext:(GSWContext*)aContext
{
  return [self subclassResponsibility: _cmd];
};

@end

//====================================================================
@implementation GSWActionRequestHandler (GSWRequestHandlerClassA)

//--------------------------------------------------------------------
+(id)handler
{
  return [[GSWActionRequestHandler new] autorelease];
};

+(GSWActionRequestHandler*)handlerWithDefaultActionClassName:(NSString*)defaultActionClassName
                                           defaultActionName:(NSString*)defaultActionName
                                       shouldAddToStatistics:(BOOL)shouldAddToStatistics
{
  return [[[self alloc]initWithDefaultActionClassName:defaultActionClassName
                       defaultActionName:defaultActionName
                       shouldAddToStatistics:shouldAddToStatistics]autorelease];
};
@end