libs-gsweb/GSWeb.framework/GSWRecording.m
Dave Wetzel 0c43a77fd2 * GSWExtensionsGSW.framework/GSWFileUploadComponent.m
* GSWExtensionsGSW.framework/GSWLogin.m
	removed logs
	* GSWExtensionsGSW.framework/GNUmakefile
	added ADDITIONAL_OBJCFLAGS = -Werror-implicit-function-declaration
	* GSWExtensionsGSW.framework/GSWCacheElement.m
	removed logs, use object_getClassName
	* GSWExtensionsGSW.framework/GSWValidationFailureComponent.m
	* GSWExtensionsGSW.framework/GSWTabComponent.m
	* GSWExtensionsGSW.framework/GSWFileUploadFormComponent.m
	* GSWExtensionsGSW.framework/GSWSimpleFormComponent.m
	* GSWeb.framework/GSWApplication.m
	removed logs, _validateAPI
	ClassIsKindOfClass -> GSObjCIsKindOf
	* GSWeb.framework/GSWAction.m
	include <GNUstepBase/NSObject+GNUstepBase.h>
	removed logs and unused (commented) code
	* GSWeb.framework/GSWResourceManager.h
	removed _validateAPI
	* GSWeb.framework/GSWImageButton.m
	added #include <GNUstepBase/NSObject+GNUstepBase.h>
	removed logs and unused (commented) code
	* GSWeb.framework/NSString+HTML.h
	changed int to NSUInteger / NSInteger
	* GSWeb.framework/GSWResourceManager.m
	removed logs, _validateAPI
	* GSWeb.framework/GSWContext.m 
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWRequestHandler.m
	include <GNUstepBase/NSObject+GNUstepBase.h>
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/NSString+HTML.m
	include <GNUstepBase/NSString+GNUstepBase.h>
	changed int to NSUInteger
	use memmove in GSWMemMove macro
	disabled testStringByConvertingHTML
	removed logs
	fixed warnings
	* GSWeb.framework/GSWMultiKeyDictionary.m
	removed logs
	* GSWeb.framework/GSWVBScript.m
	removed logs
	* GSWeb.framework/NSNonBlockingFileHandle.m
	removed logs
	* GSWeb.framework/GSWStatisticsStore.h
	removed useless @interface / @end for the same class
	* GSWeb.framework/GSWLifebeatThread.m
	removed include <GNUstepBase/GSCategories.h>
	removed logs
	* GSWeb.framework/GSWStatisticsStore.m
	removed logs
	include <GNUstepBase/NSObject+GNUstepBase.h>
	include <GNUstepBase/NSString+GNUstepBase.h>
	implement _purgePathsStatistics, _updatePathsStatisticsWithPaths
	removed useless @implementation / @end for the same class
	* GSWeb.framework/GSWCookie.m
	removed logs
	* GSWeb.framework/GNUmakefile
	added ADDITIONAL_OBJCFLAGS = -Werror-implicit-function-declaration
	* GSWeb.framework/GSWRecording.m
	removed logs
	* GSWeb.framework/GSWToggle.m
	removed logs
	* GSWeb.framework/GSWMessage.m
	include <GNUstepBase/NSObject+GNUstepBase.h>
	globalDefaultEncoding = [NSString defaultCStringEncoding];
	(see http://wiki.gnustep.org/index.php/GSWebFAQ )
	use NSUInteger for index
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWDefaultAdaptor.m
	include <GNUstepBase/NSObject+GNUstepBase.h>
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWJavaScript.m
	* GSWeb.framework/GSWClientSideScript.m
	removed logs
	* GSWeb.framework/GSWNestedList.m
	removed logs
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWEmbeddedObject.m	
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWRequest.h
	removed _validateAPI
	* GSWeb.framework/GSWRequest.m
	add includes
	removed _validateAPI
	removed logs
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWUtils.h
	unsigned int -> NSUInteger
	* GSWeb.framework/Resources/languages.plist
	added languages
	* GSWeb.framework/GSWUtils.m
	add includes
	unsigned int -> NSUInteger
	removed logs
	* GSWeb.framework/GSWComponentReference.m	
	removed logs
	* GSWeb.framework/GSWGeometricRegion.m
	add includes
	removed logs
	* GSWeb.framework/GSWKeyValueAssociation.m
	add includes
	removed logs
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWHiddenField.m
	removed logs
	* GSWeb.framework/GSWParam.m
	add includes
	removed logs
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/NSString+Trimming.h
	* GSWeb.framework/NSString+Trimming.m
	removed longValue, ulongValue, longLongValue;
	removed logs
	* GSWeb.framework/GSWStaticResourceRequestHandler.m
	removed logs
	* GSWeb.framework/GSWURLValuedElementData.m
	removed logs
	* GSWeb.framework/GSWDirectAction.m
	takeValue -> setValue
	removed logs
	int -> NSUInteger
	* GSWeb.framework/GSWComponentDefinition.m
	add includes
	removed logs
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWAssociation.m
	add includes
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	removed logs
	* GSWeb.framework/GSWSession.h
	* GSWeb.framework/GSWSession.m
	unsigned int-> NSUInteger
	add includes
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	removed logs
	David Ayers: pls check sleepInContext!
	removed _validateAPI, __setContextCounterIncrementingEnabled, __counterIncrementingEnabledFlag
	* GSWeb.framework/GSWFileUpload.m
	removed logs
	* GSWeb.framework/GSWApplet.m
	add includes
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWGenericElement.m
	removed logs
	GSWeb.framework/GSWTemplateParser.m
	add includes
	* GSWeb.framework/GSWTemporaryElement.m		
	removed logs
	* GSWeb.framework/GSWResponse.m
	add include
	removed docStructure checks
	removed logs
	* GSWeb.framework/GSWProjectBundle.m
	add include
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	removed logs
	* GSWeb.framework/GSWWorkerThread.m
	added - drain
	removed NSLog
	* GSWeb.framework/GSWApplication+Defaults.m
	add include			
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	removed logs
	* GSWeb.framework/GSWActiveImage.m
	* GSWeb.framework/GSWDirectActionRequestHandler.m
	* GSWeb.framework/GSWConstantValueAssociation.m
	* GSWeb.framework/NSData+Compress.m
	removed logs
	* GSWeb.framework/GSWHTMLStaticElement.m	
	add includes
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	removed logs
	* GSWeb.framework/GSWServerSessionStore.m
	removed logs
	* GSWeb.framework/GSWAdaptor.m
	add includes
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWDeployedBundle.m
	removed logs
	add includes
	* GSWeb.framework/GSWSubmitButton.m
	removed logs
	* GSWeb.framework/GSWDeclarationParser.m
	add includes
	removed logs
	* GSWeb.framework/GSWBundle.m
	add includes
	removed logs
	clearCache
	* GSWeb.framework/GSWWOCompatibility.h
	fixed typo in WOMessage
	* GSWeb.framework/GSWSessionTimeOut.m
	removed logs
	* GSWeb.framework/GSWPopUpButton.m	
	add includes
	* GSWeb.framework/GSWComponent.m
	add includes
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWHTTPIO.m
	add include
	* GSWeb.framework/GSWBindingNameAssociation.m
	takeValue -> setValue
	* GSWeb.framework/GSWHTMLTemplateParser.m
	removed logs
	* GSWeb.framework/GSWResetButton.m
	removed logs
	* GSWeb.framework/GSWDebug.h/m
	disabled log funtions
	* GSWeb.framework/GSWActionRequestHandler.m
	add includes
	removed logs
	* GSWeb.framework/GSWSwitchComponent.m
	* GSWeb.framework/GSWSessionTimeOutManager.m
	removed logs
	* GSWeb.framework/GSWMailDelivery.m
	add includes
	removed logs
	* GSWeb.framework/GSWDynamicURLString.h
	* GSWeb.framework/GSWDynamicURLString.m
	unsigned int -> NSUInteger
	removed checkURL
	add includes
	* GSWeb.framework/GSWProcFS.m		
	removed logs
	* GSWeb.framework/GSWApplication.h
	removed _validateAPI
	* GSWeb.framework/GSWResourceRequestHandler.m
	add include
	removed logs
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	* GSWeb.framework/GSWSessionStore.h
	removed _validateAPI
	* GSWeb.framework/GSWSessionStore.m
	add include
	removed _validateAPI
	removed logs
	* GSWExtensions.framework/GSWLongResponsePage.m
	* GSWExtensions.framework/GSWExceptionPage.m
	* GSWExtensions.framework/GSWMetaRefresh.m
	* GSWExtensions.framework/GSWCollapsibleComponentContent.m
	removed logs
	* GSWExtensions.framework/GNUmakefile
	added ADDITIONAL_OBJCFLAGS = -Werror-implicit-function-declaration
	* GSWExtensions.framework/GSWStatsPage.m
	removed logs
	unsigned int -> NSUInteger
	* Examples/hello/HelloPage.wo/HelloPage.html
	* Examples/hello/Main.wo/Main.html
	* Examples/hello/Hello.m
	convert to UTF8
	
	The change of
	LOGObjectFnNotImplemented(); -> [self notImplemented: _cmd];
	will show where we need to implement functionality.
	Please send bug reports! -- dw



git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gsweb/trunk@30584 72102866-910b-0410-8b05-ffd578937521
2010-06-05 21:08:12 +00:00

318 lines
9.8 KiB
Objective-C

/** GSWRecording.m - <title>GSWeb: Class GSWRecording</title>
Copyright (C) 2004 Free Software Foundation, Inc.
Written by: Manuel Guesdon <mguesdon@orange-concept.com>
Date: Aug 2003
$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"
#include "GSWRecording.h"
//====================================================================
@implementation GSWRecording
//--------------------------------------------------------------------
-(void)_setRecordingPath:(NSString*)recordingPath
{
NSDebugMLog(@"recordingPath=%@",recordingPath);
if (recordingPath)
{
int i=0;
NSString* basePath=nil;
NSFileManager* fileManager=[NSFileManager defaultManager];
// path cound be application recording path (ending by .rec) or general path
if ([[recordingPath pathExtension]isEqualToString:@"rec"])
basePath=[recordingPath stringByDeletingPathExtension]; // application path
else
{
// Build application path
BOOL isDirectory=NO;
if ([fileManager fileExistsAtPath:recordingPath
isDirectory:&isDirectory]
&& isDirectory)
{
// /recordingPath/AppName/
basePath=[recordingPath stringByAppendingPathComponent:[[GSWApplication application] name]];
}
else
{
basePath=recordingPath;
};
};
NSDebugMLog(@"basePath=%@",basePath);
recordingPath=[basePath stringByAppendingPathExtension:@"rec"];
NSDebugMLog(@"recordingPath=%@",recordingPath);
i=0;
while([fileManager fileExistsAtPath:recordingPath])
recordingPath=[[NSString stringWithFormat:@"%@-%d",basePath,i++]stringByAppendingPathExtension:@"rec"];
ASSIGN(_recordingPath,recordingPath);
NSDebugMLog(@"_recordingPath=%@",_recordingPath);
if (![fileManager createDirectoryAtPath:_recordingPath
attributes:nil])
{
ExceptionRaise(@"GSWRecording: can't create directory '%@'",_recordingPath);
};
};
};
//--------------------------------------------------------------------
-(id)init
{
if ((self=[super init]))
{
NSString* recordingPath=nil;
NSNotificationCenter* defaultCenter=nil;
recordingPath=[[[GSWApplication application] class]recordingPath];
[self _setRecordingPath:recordingPath];
// Register observers
defaultCenter=[NSNotificationCenter defaultCenter];
[defaultCenter addObserver:self
selector:@selector(_applicationWillDispatchRequest:)
name:@"ApplicationWillDispatchRequestNotification"
object:nil];
[defaultCenter addObserver:self
selector:@selector(_applicationDidDispatchRequest:)
name:@"ApplicationDidDispatchRequestNotification"
object:nil];
//TODO wildcards = "/##*##/##*##/" with Application name() + ".gswa/##*##/"
};
return self;
};
//--------------------------------------------------------------------
-(void)dealloc
{
DESTROY(_request);
DESTROY(_recordingPath);
DESTROY(_wildcards);
[super dealloc];
};
//--------------------------------------------------------------------
-(NSString*)_headersStringForMessage:(GSWMessage*)message
{
NSMutableString* headersString=[NSMutableString string];
NSArray* headerKeys=nil;
int i=0;
int count=0;
headerKeys=[message headerKeys];
count=[headerKeys count];
for(i=0;i<count;i++)
{
NSString* headerKey=[headerKeys objectAtIndex:i];
if (![headerKey isEqualToString:@"x-gsweb-request-id"])
{
NSArray* headerValues=[message headersForKey:headerKey];
int headerValuesCount=[headerValues count];
int j=0;
for(j=0;j<headerValuesCount;j++)
{
id value = [headerValues objectAtIndex:j];
[headersString appendFormat:@"%@: %@\r\n",headerKey,value];
};
};
};
if ([message isKindOfClass:[GSWRequest class]])
[headersString appendString:@"x-gsweb-recording: on\r\n"];
[headersString appendString:@"\r\n"];
return headersString;
}
//--------------------------------------------------------------------
-(GSWResponse*)_wildcardedResponse:(GSWResponse*)response
{
NSString* sessionID = nil;
NSMutableData* contentData = nil;
int contentLength=0;
NSString* applicationURLPrefix=nil;
NSStringEncoding contentEncoding=NSUTF8StringEncoding;
response = (GSWResponse*)[[response copy]autorelease];
sessionID = [response headerForKey:GSWHTTPHeader_RecordingSessionID[GSWebNamingConv]];
NSDebugMLLog(@"GSWRecording",@"sessionID=%@",sessionID);
contentEncoding=[response contentEncoding];
contentData = [[[response content] mutableCopy]autorelease];
contentLength=[contentData length];
// Replace sessionID by ##GSWSESSIONID##
if (sessionID)
{
[contentData replaceOccurrencesOfData:[sessionID dataUsingEncoding:contentEncoding]
withData:[@"##GSWSESSIONID##" dataUsingEncoding:contentEncoding]
range:NSMakeRange(0,[contentData length])];
};
applicationURLPrefix=[_request _applicationURLPrefix];
NSDebugMLLog(@"GSWRecording",@"applicationURLPrefix=%@",
applicationURLPrefix);
NSAssert(applicationURLPrefix,@"No applicationURLPrefix");
[contentData replaceOccurrencesOfData:[applicationURLPrefix dataUsingEncoding:contentEncoding]
withData:[@"##GSWAPPURLPREFIX##" dataUsingEncoding:contentEncoding]
range:NSMakeRange(0,[contentData length])];
// Set new Content Length
[response setHeader:GSWIntToNSString([contentData length])
forKey:@"GSWHTTPHeader_ContentLength"];
[response setHeader:GSWIntToNSString(contentLength)
forKey:@"x-gsweb-unwildcarded-content-length"];
[response setContent:contentData];
return response;
}
//--------------------------------------------------------------------
-(void)saveRequest:(GSWRequest*)request
{
NSDebugMLog(@"_recordingStep=%d",_recordingStep);
ASSIGN(_request,request);
NSDebugMLog(@"request=%p",request);
if (request)
{
NSString* headerString=nil;
NSString* requestString=nil;
NSString* requestURI=[_request uri];
NSString* filePath= [_recordingPath stringByAppendingPathComponent:
[NSString stringWithFormat:@"%0.6d-request",_recordingStep]];
[GSWApplication logWithFormat:@"Saving Request into '%@'",filePath];
headerString = [NSString stringWithFormat:@"%@ %@ %@\r\n%@",
[_request method],
requestURI,
[_request httpVersion],
[self _headersStringForMessage:_request]];
NSDebugMLog(@" headerString=%@", headerString);
requestString = [headerString stringByAppendingString:[request contentString]];
[requestString writeToFile:filePath
atomically:NO];
};
}
//--------------------------------------------------------------------
-(void)saveResponse:(GSWResponse*)response
{
NSString* filePath=nil;
NSString* responseString=nil;
NSString* headerString=nil;
NSDebugMLog(@"_recordingStep=%d",_recordingStep);
NSDebugMLLog(@"GSWRecording",@"recordingSessionID=%@",
[response headerForKey:GSWHTTPHeader_RecordingSessionID[GSWebNamingConv]]);
response = [self _wildcardedResponse:response];
filePath= [_recordingPath stringByAppendingPathComponent:
[NSString stringWithFormat:@"%0.6d-response",_recordingStep]];
[GSWApplication logWithFormat:@"Saving Response into '%@'",filePath];
headerString=[NSString stringWithFormat:@"%@ %u %@\r\n%@",
[response httpVersion],
(unsigned int)[response status],
GSWHTTPHeader_Response_HeaderLineEnd[GSWebNamingConv],
[self _headersStringForMessage:response]];
NSDebugMLog(@"headerString=%@",headerString);
responseString = [headerString stringByAppendingString:[response contentString]];
[responseString writeToFile:filePath
atomically:NO];
_recordingStep++;
NSDebugMLog(@"_recordingStep=%d",_recordingStep);
}
//--------------------------------------------------------------------
-(void)_applicationWillDispatchRequest:(NSNotification*)notification
{
GSWRequest* request=nil;
// Get the request
request = (GSWRequest*)[notification object];
NSDebugMLog(@"request=%p",request);
// Save it
[self saveRequest:request];
}
//--------------------------------------------------------------------
-(void)_applicationDidDispatchRequest:(NSNotification*)notification
{
NSDebugMLog(@"_request=%p",_request);
if (_request)
{
// Get the response
GSWResponse* response = (GSWResponse*)[notification object];
// Save it
[self saveResponse:response];
}
};
@end