WAKom

• convertRequest:
• convertResponse:
• entryPoint:
• handleRequest:
• log:
• process:
• processMultipartFields:

• processHttp
• processHttpRequest:
• validateForStack:

• default
• entryComponent:path:
• entryPoint:

• createService
• initialize
• pause
• setDebugMode
• setDeploymentMode
• setVerboseMode
• shutdown
• startOn:
• startUp
• stop

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	| request |
	self processMultipartFields: aKomRequest.

	request _ WARequest
		method: aKomRequest method
		url: aKomRequest url unescapePercents 
		headers: aKomRequest header
		fields: (aKomRequest method = 'POST'
					ifTrue: [aKomRequest postFields]
					ifFalse: [aKomRequest getFields])
		cookies: aKomRequest cookies
		nativeRequest: aKomRequest.

	aKomRequest method = 'PUT'
		ifTrue: [request fields
					at: 'PUTData'
					put: (aKomRequest stream next: aKomRequest contentLength)].
	^ request

	| komResponse |
	aResponse ifNil: [^ HttpResponse fromString: 'Request handling aborted; reload to retry'].

	komResponse _  HttpResponse new.

	aResponse cookies do:
		[:assoc | komResponse setCookieName: assoc key value: assoc valueWithExpiry path: assoc path].
		
	aResponse headers associationsDo: [:assoc | komResponse fieldAt: assoc key put: assoc value].
	(HttpResponse classPool at: #StatusCodes) associationsDo:
		[:assoc |
		assoc value key = aResponse status ifTrue: [komResponse status: assoc key]].
	komResponse contents: aResponse contents.
	komResponse contentType: aResponse contentType.

	^ komResponse

	entryPoint _ anEntryPoint

	^ (entryPoint handlerForRequest: aRequest) handleRequest: aRequest

	Transcript cr; show: aRequest url

	|request response komResponse |
	self log: komRequest.
	request _ self convertRequest: komRequest.

	response _ self handleRequest: request.
	komResponse _ self convertResponse: response.

	response release.
	^ komResponse

	aRequest multipartFormFieldsDo:
		[:chunk |
		chunk fileName isEmptyOrNil ifFalse:
			[|stream file|
			stream _ WriteStream on: String new.
			chunk saveToStream: stream.
			file _ WAFile new fileName: chunk fileName; contents: stream contents; contentType: chunk contentType.
			aRequest postFields at: chunk fieldName put: file]].

	HttpResponse current: (self process: HttpRequest current).
	^ true

	^ self process: aRequest

	^ self entryPoint: WADispatcher default

	^ self dispatcher: (aClass applicationWithPath: aString)

	^ self new entryPoint: anEntryPoint

	Smalltalk at: #HttpService ifPresent:
		[:hs |
		^ (hs on: port named: 'seaside') plug: self default].
	Smalltalk at: #ComancheNetService ifPresent:
		[:cns |
		^ (cns named: 'seaside' onPort: port) module: self default]

		Smalltalk addToStartUpList: self after: AutoStart.
		Smalltalk addToShutDownList: self

	service ifNotNil:
		[service unregister.
		service _ nil]

	service setDebugMode.

	service setDeploymentMode.

	service setVerboseMode.

	self pause

	self stop.
	port _ aPort.
	service _ self createService.
	service start.

	port ifNotNil: [self startOn: port]

	self pause.
	port _ nil.