libs-gsweb/GSWeb.framework/GSWDirectAction.m
Manuel Guesdon cf6ed0b5cb 2003-03-21 Manuel Guesdon <mguesdon@orange-concept.com>
* GSWeb.framework/GSWGNUmakefile:
		o removed NSObject+IVarAccess+PerformSel.*
	* GSWeb.framework/GSWConstants.m:
		o fix GSWHTTPHeader_Response_HeaderLineEnd: remove space at the begining
		o use RCS_ID
	* GSWeb.framework/Adaptors/common/GSWHTTPResponse.c:
		o fix status in GSWHTTPResponse_New()
	* GSWAdaptors/Apache/mod_gsweb.c:
		o fixes bad returned status
		o traces
	* GSWeb.framework/GSWTemplateParserANTLR.m:
		o removed logs
		o fixes for warnings
		o use RCS_ID
	* GSWeb.framework/GSWApplication.m:
		o use RCS_ID
		o added logs
		o new method to begin rewrite exception handling
	* GSWeb.framework/GSWRequest.m:
		o logs
		o fix in -_getFormValuesFromMultipartFormData to handle more than one value per name
		o use RCS_ID
		o -fix bad types in uriElementForKey:
	* GSWeb.framework/GSWConditional.m:
		o added asserts
		o use RCS_ID
	* GSWeb.framework/GSWHTMLStaticElement.m:
		o added asserts
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWComponentReference.m:
		o added asserts
		o use RCS_ID
	* GSWeb.framework/GSWActiveImage.m:
		o added asserts
	* GSWeb.framework/GSWComponentContent.m:
		o added asserts
		o use RCS_ID
	* GSWeb.framework/GSWForm.m:
		o added asserts
		o use RCS_ID
	* GSWeb.framework/GSWHTMLDynamicElement.m:
		o added asserts
		o use RCS_ID
	* GSWeb.framework/GSWHTMLURLValuedElement.m:
		o use RCS_ID
		o added asserts
	* GSWeb.framework/GSWRepetition.m:
		o added asserts
		o use RCS_ID
	* GSWeb.framework/GSWExtensions.framework/GNUmakefile:
		o added GSWPageRestorationErrorPage.gswc
	* GSWeb.framework/GSWFileUploadComponent.m:
		o use RCS_ID
	* GSWeb.framework/GSWImage.m:
		o Don't output nil height/width
		o fix: get component before using !
		o use RCS_ID
	* GSWeb.framework/GSWElementIDString.m:
		o in -initWithCoder: retain _string
		o use RCS_ID
	* GSWeb.framework/GSWElementIDString.h:
		o cleaned
	* config.h.in:
		o define RCS_ID like in GDL2
	* GSWeb.framework/GSWDirectActionRequestHandler.[hm]:
		o added +additionalRequestPathArrayFromRequest:
		o enable directAction with additional path components
		o use RCS_ID
	* GSWeb.framework/GSWDirectAction.[hm]:
		o added -additionalRequestPathArray
		o use RCS_ID
	* GSWeb.framework/GSWeb.h:
		o include GSCategories.h
	* GSWeb.framework/GSWDebug.m:
		o use RCS_ID
	* GSWeb.framework/GSWPageDefParserExt.m:
		o use RCS_ID
	* GSWeb.framework/GSWPageDefElement.m:
		o use RCS_ID
	* GSWeb.framework/GSWDeployedBundle.m:
		o use RCS_ID
	* GSWeb.framework/GSWProjectBundle.m:
		o use RCS_ID
	* GSWeb.framework/GSWStats.m:
		o use RCS_ID
	* GSWeb.framework/GSWBundle.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWTemplateParser.m::
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWTemplateParserXML.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWComponent.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWDisplayGroup.m:
		o clean warnings
		o fix -validateValue:forKey: call
		o use RCS_ID
	* GSWeb.framework/GSWHTMLParserExt.m:
		o use RCS_ID
	* GSWeb.framework/GSWAssociation.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWResourceManager.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWSession.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWMultiKeyDictionary.m:
		o use RCS_ID
	* GSWeb.framework/GSWResponse.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWStatisticsStore.m:
		o clean warnings
	* GSWeb.framework/GSWAdaptor.m:
		o use RCS_ID
	* GSWeb.framework/GSWGeometricRegion.[hm]:
		o types change
		o use RCS_ID
	* GSWeb.framework/GSWActiveImage.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWBody.m:
		o use RCS_ID
	* GSWeb.framework/GSWTextField.m:
		o use RCS_ID
	* GSWeb.framework/GSWSubmitButton.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWHTMLBareString.m:
		o use RCS_ID
	* GSWeb.framework/GSWHTMLComment.m:
		o use RCS_ID
	* GSWeb.framework/GSWApplet.m:
		o use RCS_ID
	* GSWeb.framework/GSWBrowser.m:
		o use RCS_ID
	* GSWeb.framework/GSWCheckBoxList.m:
		o use RCS_ID
	* GSWeb.framework/GSWEmbeddedObject.m:
		o use RCS_ID
	* GSWeb.framework/GSWFrame.m:
		o use RCS_ID
	* GSWeb.framework/GSWGenericContainer.m:
		o use RCS_ID
	* GSWeb.framework/GSWGenericElement.m:
		o use RCS_ID
	* GSWeb.framework/GSWHyperlink.m:
		o use RCS_ID
		o clean warnings
	* GSWeb.framework/GSWImageButton.m:
		o use RCS_ID
		o clean warnings
	* GSWeb.framework/GSWJavaScript.m:
		o use RCS_ID
	* GSWeb.framework/GSWNestedList.m:
		o use RCS_ID
	* GSWeb.framework/GSWParam.m:
		o use RCS_ID
	* GSWeb.framework/GSWPasswordField.m:
		o use RCS_ID
	* GSWeb.framework/GSWPopUpButton.m:
		o use RCS_ID
	* GSWeb.framework/GSWRadioButtonList.m:
		o use RCS_ID
	* GSWeb.framework/GSWResetButton.m:
		o use RCS_ID
	* GSWeb.framework/GSWSwitchComponent.m:
		o use RCS_ID
	* GSWeb.framework/GSWVBScript.m:
		o use RCS_ID
	* GSWeb.framework/GSWString.m:
		o use RCS_ID
	* GSWeb.framework/GSWText.m:
		o use RCS_ID
	* GSWeb.framework/GSWCookie.m:
		o use RCS_ID
	* GSWeb.framework/GSWRequestHandler.m:
		o use RCS_ID
	* GSWeb.framework/GSWMailDelivery.m:
		o use RCS_ID
	* GSWeb.framework/GSWComponentRequestHandler.m:
		o use RCS_ID
		o clean warnings
	* GSWeb.framework/GSWKeyValueAssociation.m:
		o use RCS_ID
	* GSWeb.framework/GSWHTMLStaticGroup.m:
		o use RCS_ID
	* GSWeb.framework/GSWConstantValueAssociation.m:
		o use RCS_ID
	* GSWeb.framework/GSWDynamicURLString.m:
		o use RCS_ID
	* GSWeb.framework/GSWBindingNameAssociation.m:
		o use RCS_ID
	* GSWeb.framework/GSWBindingNameAssociation.[hm]
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWURLValuedElementData.m:
		o clean warnings
		o use RCS_ID
	* GSWeb.framework/GSWToggle.m:
		o use RCS_ID
	* GSWeb.framework/GSWFileUpload.m:
		o use RCS_ID
	* GSWeb.framework/GSWResourceURL.m:
		o use RCS_ID
	* GSWeb.framework/GSWProcFS.m:
		o use RCS_ID
	* GSWeb.framework/GSWActionURL.m:
		o use RCS_ID
	* GSWeb.framework/GSWContext.m:
		o use RCS_ID
	* GSWeb.framework/GSWDefaultAdaptorThread.m:
		o use RCS_ID
	* GSWeb.framework/GSWDynamicElement.m:
		o use RCS_ID
	* GSWeb.framework/GSWeb.m:
		o use RCS_ID
	* GSWeb.framework/GSWElement.m:
		o use RCS_ID
	* GSWeb.framework/GSWResourceRequestHandler.m:
		o use RCS_ID
	* GSWeb.framework/GSWServerSessionStore.m:
		o use RCS_ID
	* GSWeb.framework/GSWSessionStore.m:
		o use RCS_ID
	* GSWeb.framework/GSWSessionTimeOut.m:
		o use RCS_ID
	* GSWeb.framework/GSWSessionTimeOutManager.m:
		o use RCS_ID
	* GSWeb.framework/GSWTransactionRecord.m:
		o use RCS_ID
	* GSWeb.framework/GSWUtils.m:
		o use RCS_ID
	* GSWeb.framework/GSWWOCompatibility.m:
		o use RCS_ID
	* GSWeb.framework/NSString+HTML.m:
		o use RCS_ID
	* GSWeb.framework/NSString+Trimming.m:
		o use RCS_ID


git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gsweb/trunk@16216 72102866-910b-0410-8b05-ffd578937521
2003-03-21 14:32:57 +00:00

386 lines
11 KiB
Objective-C

/** GSWDirectAction.m - <title>GSWeb: Class GSWDirectAction</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 GSWDirectAction
//--------------------------------------------------------------------
-(id)initWithRequest:(GSWRequest*)aRequest
{
LOGObjectFnStart();
if ((self=[super init]))
{
_context=[GSWContext contextWithRequest:aRequest];
[GSWApp _setContext:_context]; //NDFN
[self _initializeRequestSessionIDInContext:_context];
};
LOGObjectFnStop();
return self;
};
//--------------------------------------------------------------------
-(void)dealloc
{
DESTROY(_context);
[super dealloc];
};
//--------------------------------------------------------------------
-(GSWRequest*)request
{
return [_context request];
};
//--------------------------------------------------------------------
-(GSWSession*)existingSession
{
//OK
GSWSession* session=nil;
BOOL hasSession=NO;
LOGObjectFnStart();
hasSession=[_context hasSession];
if (hasSession)
session=[_context existingSession];
if (!session)
{
NSString* sessionID=nil;
sessionID=[[self request] sessionID];
if (sessionID)
{
NS_DURING
{
NSDebugMLLog(@"requests",@"sessionID=%@",sessionID);
session=[GSWApp restoreSessionWithID:sessionID
inContext:_context];
//No Exception if session can't be restored !
}
NS_HANDLER
{
localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"in session create/restore");
LOGException(@"exception=%@",localException);
//No Exception if session can't be restored !
session=nil;
}
NS_ENDHANDLER;
};
};
LOGObjectFnStop();
return session;
};
//--------------------------------------------------------------------
-(GSWSession*)existingSessionWithSessionID:(NSString*)aSessionID
{
//OK
GSWSession* session=nil;
BOOL hasSession=NO;
LOGObjectFnStart();
hasSession=[_context hasSession];
if (hasSession)
session=[_context existingSession];
if (!session)
{
if (aSessionID)
{
NS_DURING
{
NSDebugMLLog(@"requests",@"aSessionID=%@",aSessionID);
session=[GSWApp restoreSessionWithID:aSessionID
inContext:_context];
//No Exception if session can't be restored !
}
NS_HANDLER
{
localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"in session create/restore");
LOGException(@"exception=%@",localException);
//No Exception if session can't be restored !
session=nil;
}
NS_ENDHANDLER;
};
};
LOGObjectFnStop();
return session;
};
//--------------------------------------------------------------------
-(GSWSession*)session
{
BOOL hasSession=NO;
GSWSession* session=nil;
LOGObjectFnStart();
hasSession=[_context hasSession];
if (hasSession)
session=[_context existingSession];
if (!session)
{
NSString* sessionID=nil;
sessionID=[[self request] sessionID];
if (sessionID)
{
NS_DURING
{
session=[GSWApp restoreSessionWithID:sessionID
inContext:_context];
}
NS_HANDLER
{
localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"in session create/restore");
LOGException(@"exception=%@",localException);
[localException raise];
};
NS_ENDHANDLER;
if (!session)
{
ExceptionRaise(@"GSWDirectAction",
@"Unable to restore sessionID %@.",
sessionID);
};
}
else
{
// No Session ID: Create a new Session
session=[_context session];
};
};
LOGObjectFnStop();
return session;
};
//--------------------------------------------------------------------
// application
-(GSWApplication*)application
{
return [GSWApplication application];
};
//--------------------------------------------------------------------
-(GSWComponent*)pageWithName:(NSString*)pageName
{
//OK
GSWComponent* component=nil;
LOGObjectFnStart();
NS_DURING
{
component=[[GSWApplication application]pageWithName:pageName
inContext:_context];
}
NS_HANDLER
{
LOGException(@"%@ (%@)",
localException,
[localException reason]);
localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"In pageWithName:inContext:");
[localException raise];
};
NS_ENDHANDLER;
LOGObjectFnStop();
return component;
};
//--------------------------------------------------------------------
-(id <GSWActionResults>)performActionNamed:(NSString*)actionName
{
//OK
id<GSWActionResults> actionResult=nil;
NSString* actionSelName=nil;
SEL actionSel=NULL;
LOGObjectFnStart();
actionSelName=[NSString stringWithFormat:@"%@Action",actionName];
NSDebugMLLog(@"requests",@"actionSelName=%@",actionSelName);
actionSel=NSSelectorFromString(actionSelName);
NSDebugMLLog(@"requests",@"actionSel=%p",(void*)actionSel);
if (actionSel)
{
NS_DURING
{
actionResult=[self performSelector:actionSel];
NSDebugMLLog(@"requests",
@"_actionResult=%@ class=%@",
actionResult,
[(id)actionResult class]);
}
NS_HANDLER
{
LOGException(@"%@ (%@)",
localException,
[localException reason]);
localException=ExceptionByAddingUserInfoObjectFrameInfo0(localException,@"In performSelector:");
[localException raise];
};
NS_ENDHANDLER;
}
else
{
LOGError(@"No selector for: %@",actionSelName);//TODO
actionResult=[self defaultAction];//No ??
};
LOGObjectFnStop();
return actionResult;
};
//--------------------------------------------------------------------
-(id)defaultAction
{
LOGObjectFnStart();
LOGObjectFnStop();
return nil;//??
};
//--------------------------------------------------------------------
-(NSString*)sessionIDForRequest:(GSWRequest*)aRequest
{
NSString* sessionID = nil;
NSDebugMLog(@"aRequest=%@",aRequest);
if(aRequest)
sessionID = [aRequest sessionIDFromValuesOrCookieByLookingForCookieFirst:NO];
NSDebugMLog(@"sessionID=%@",sessionID);
return sessionID;
}
//--------------------------------------------------------------------
-(void)_initializeRequestSessionIDInContext:(GSWContext*)aContext
{
GSWRequest* request=nil;
NSString* sessionID=nil;
LOGObjectFnStart();
request=[aContext request];
NSDebugMLog(@"request=%@",request);
sessionID=[request formValueForKey:GSWKey_SessionID[GSWebNamingConv]];
NSDebugMLog(@"sessionID=%@",sessionID);
if (!sessionID)
{
sessionID=[request cookieValueForKey:GSWKey_SessionID[GSWebNamingConv]];
NSDebugMLog(@"sessionID=%@",sessionID);
};
if (sessionID)
{
[aContext _setRequestSessionID:sessionID];
};
LOGObjectFnStop();
};
@end
//====================================================================
@implementation GSWDirectAction (GSWDirectActionA)
-(GSWContext*)_context
{
//OK
return _context;
};
//--------------------------------------------------------------------
-(GSWSession*)_session
{
LOGObjectFnNotImplemented(); //TODOFN
return nil;
};
@end
//====================================================================
@implementation GSWDirectAction (GSWTakeValuesConvenience)
//NDFN: return additional path elements
-(NSArray*)additionalRequestPathArray
{
return [GSWDirectActionRequestHandler
additionalRequestPathArrayFromRequest:[self request]];
};
//--------------------------------------------------------------------
-(void)takeFormValueArraysForKeyArray:(NSArray*)keyArray
{
LOGObjectFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
-(void)takeFormValuesForKeyArray:(NSArray*)keyArray
{
LOGObjectFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
-(void)takeFormValueArraysForKeys:(NSString*)firstKey,...
{
LOGObjectFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
-(void)takeFormValuesForKeys:(NSString*)firstKey,...
{
LOGObjectFnNotImplemented(); //TODOFN
};
@end
//====================================================================
@implementation GSWDirectAction (GSWDebugging)
//--------------------------------------------------------------------
-(void)logWithString:(NSString*)string
{
LOGObjectFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
-(void)logWithFormat:(NSString*)format,...
{
LOGObjectFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
+(void)logWithFormat:(NSString*)format,...
{
LOGClassFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
-(void)_debugWithString:(NSString*)string
{
LOGObjectFnNotImplemented(); //TODOFN
};
//--------------------------------------------------------------------
-(void)debugWithFormat:(NSString*)format,...
{
LOGObjectFnNotImplemented(); //TODOFN
};
@end