SCBrowserSimulator

• cookies
• history
• responseSemaphore:

• cookieString
• httpGetRequestStreamFor:
• httpPostRequestStreamForUrl:data:
• parseCookieString:
• privateIssueRequest:

• back
• establishSessionAtBase:
• followAnchor:
• issueRequestUntilNotMoved:
• lastResponse
• refresh
• submitForm:pressingButton:

InitialValue:

a Dictionary()

inferredType:

Dictionary

InitialValue:

an OrderedCollection()

inferredType:

OrderedCollection

inferredType:

UndefinedObject

	^ cookies ifNil: [cookies _ Dictionary new]

	^history ifNil: [history _ OrderedCollection new]

	responseSema _ s

	| out |
	self cookies isEmpty
		ifTrue: [^ ''].
	out _ WriteStream on: String new.
	out nextPutAll: 'Cookie:'.
	self cookies values
		do: [:cookie | out nextPutAll: ' ' , cookie key , '=' , cookie value]
		separatedBy: [out nextPut: $;].
	out nextPutAll: String crlf.
	^ out contents

 
	^ ('GET ' , url , ' HTTP/1.0' , String crlf , self cookieString , String crlf) readStream

 
	^ ('POST ' , url , ' HTTP/1.0 ' , String crlf , 'Content-Length: ' , postData size printString , String crlf , 'Content-type: application/x-www-form-urlencoded' , String crlf , self cookieString , String crlf , postData) readStream

 
	| parts keyAndValue result |
	parts _ s findTokens: ';'.
	keyAndValue _ parts first findTokens: '='.
	result _ WACookie key: keyAndValue first value: keyAndValue second.
	^result

 
	| response cookie |
	response := SeasidePlatformSupport
		issueRequest: anHttpRequest
		responseSemaphore: responseSema.
	response
		ifNil: [^ self error: 'What do I do here?'].
	response cookies
		ifNotNilDo: [:col | col
				do: [:cookieString | 
					cookie := self parseCookieString: cookieString.
					self cookies at: cookie key put: cookie]].
	^ response

	self history removeLast.
	^ self history last value

	| req |
	req _ HttpRequest
				readFromStream: (self httpGetRequestStreamFor: baseUrlString).
	^ self issueRequestUntilNotMoved: req

 
	| req |
	anAnchor ifNil: [self error: 'Anchor cannot be nil'].
	req _ HttpRequest
				readFromStream: (self httpGetRequestStreamFor: anAnchor asString).
	^ self issueRequestUntilNotMoved: req

 
	| response req newUrl doc |
	req _ anHttpRequest.
	[response _ self privateIssueRequest: req.
	response status = #tempMoved]
		whileTrue: [newUrl _ response fields at: 'Location'.
			req _ HttpRequest
						readFromStream: (self httpGetRequestStreamFor: newUrl)].
	doc _ SCSeasideResponse fromResponse: response.
	self history add: req -> doc.
	^ doc

	^self history last value

	^ self issueRequestUntilNotMoved: self history last key

 
	| req url |
	form isNil | button isNil ifTrue: [self error: 'Neither form nor button should be nil'].
	url _ form actionUrl.
	req _ HttpRequest
				readFromStream: (self
						httpPostRequestStreamForUrl: url
						data: (form httpDataWithButton: button)).
	^ self issueRequestUntilNotMoved: req