[Pkg] Installer: Installer-Core-mtf.238.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Wed Oct 15 14:56:55 UTC 2008
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-mtf.238.mcz
==================== Summary ====================
Name: Installer-Core-mtf.238
Author: mtf
Time: 15 October 2008, 7:56:50 am
UUID: c312a02b-a7bd-449c-ab43-41ce729a4101
Ancestors: Installer-Core-mtf.237
oops. bad syntax in the retry logging. fixed
=============== Diff against Installer-Core-mtf.237 ===============
Item was changed:
----- Method: InstallerWeb>>urlToDownload (in category 'web install') -----
urlToDownload
"while we look for a url which returns what we are looking for, we get the data anyway"
| delay retry |
delay := 0.
self class webSearchPath
do: [ :pathSpec |
| potentialUrl readPathSpec |
readPathSpec := pathSpec value readStream.
potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]).
[ retry := false. pageDataStream := self urlGet: potentialUrl ]
doWhileTrue: [
self wasPbwikiSpeedWarning
ifTrue: [ retry := true ]
ifFalse: [ self hasPage ifTrue: [ pageDataStream reset.
^ potentialUrl ] ].
+ self logCR: 'PBWiki warning. Retrying in ', (delay + 5) printString, ' seconds'.
- self logCR: 'PBWiki warning. Retrying in ', (delay + 5), ' seconds'.
(Delay forSeconds: (delay := delay + 5)) wait.
retry ]].
^nil
!
Item was changed:
----- Method: InstallerUrl>>urlThing (in category 'url') -----
urlThing
| retry delay |
self logCR: 'retrieving ', self urlToDownload , ' ...'.
delay := 0.
[ retry := false. pageDataStream := self urlGet: self urlToDownload ]
doWhileTrue: [
self wasPbwikiSpeedWarning ifTrue: [
+ self logCR: 'PBWiki warning. Retrying in ', (delay + 5) printString, ' seconds'.
- self logCR: 'PBWiki warning. Retrying in ', (delay + 5), ' seconds'.
retry := true. (Delay forSeconds: (delay := delay + 5)) wait ].
retry ].
pageDataStream ifNil: [ self error: 'unable to contact host' ].
^ pageDataStream
!
More information about the Packages
mailing list