c***@source.squeak.org
0000-10-30 05:59:25 UTC
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: requ
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: requ