WARequest

• at:
• at:ifAbsent:
• cookies
• fields
• headerAt:
• headerAt:ifAbsent:
• headers
• method
• nativeRequest
• nativeRequest:
• password
• url
• user

• authorization
• decodeAuthorization:
• setMethod:url:headers:fields:cookies:

• isGet

• method:url:headers:fields:cookies:
• method:url:headers:fields:cookies:nativeRequest:

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

inferredType:

UndefinedObject

	^ fields at: key

	^ fields at: key ifAbsent: aBlock

	^ cookies

	^ fields

	^ self headerAt: aKey ifAbsent: []

	^ headers at: aKey ifAbsent: aBlock

	^ headers

	^ method

	^ nativeRequest

	nativeRequest _ aRequest

	^ self authorization ifNotNilDo: [:auth | auth copyAfter: $:]

	^ url

	^ self authorization ifNotNilDo: [:auth | auth copyUpTo: $:]

	^ (self headerAt: 'Authorization' ifAbsent: [self headerAt: 'authorization'])
		ifNotNilDo: [:auth | self decodeAuthorization: auth]

	^ SeasidePlatformSupport base64Decode: (aString findTokens: ' ') last

	method _ methodString.
	url _ urlString.
	headers _ headDict.
	fields _ fieldDict.
	cookies _ cookieDict

	^ self method asUppercase = 'GET'

	^ self new setMethod: methodString url: urlString headers: headDict fields: fieldDict cookies: cookieDict

	^ (self method: methodString url: urlString headers: headDict fields: fieldDict cookies: cookieDict)
		nativeRequest: anObject;
		yourself