[squeak-dev] The Inbox: WebClient-Core-cbc.118.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Oct 29 00:08:49 UTC 2018


A new version of WebClient-Core was added to project The Inbox:
http://source.squeak.org/inbox/WebClient-Core-cbc.118.mcz

==================== Summary ====================

Name: WebClient-Core-cbc.118
Author: cbc
Time: 28 October 2018, 5:08:23.571079 pm
UUID: 683fbe3b-418f-a443-9a20-3f2a7af4b7e1
Ancestors: WebClient-Core-pre.117

A hack to work around connectionTimedOut annoyances when opening packages from Trunk (sometimes).

=============== Diff against WebClient-Core-pre.117 ===============

Item was changed:
  ----- Method: WebClient>>httpGet:do: (in category 'methods') -----
  httpGet: urlString do: aBlock
  	"GET the response from the given url"
  	"(WebClient httpGet: 'http://www.squeak.org') content"
  
+ 	| request errCount |
- 	| request |
  	self initializeFromUrl: urlString.
  	request := self requestWithUrl: urlString.
  	request method: 'GET'.
  	userAgent ifNotNil:[:ua | request headerAt: 'User-Agent' put: ua].
  	self contentDecoders ifNotNil: [:decoders | request headerAt: 'Accept-Encoding' put: decoders].
+ 
+ 	errCount := 0. "Let's try resending to get around 'connection issues' trunk connections"
+ 	[
+ 		aBlock value: request.
+ 		^self sendRequest: request
+ 	] on: Error, NetworkError do: [:e| debugLog ifNotNil: [debugLog cr; nextPutAll: 'httpGet error: ', e; flush]. (errCount := errCount + 1) > 3 ifTrue: [e outer]. e retry].!
- 	aBlock value: request.
- 	^self sendRequest: request
- !



More information about the Squeak-dev mailing list