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 !
packages@lists.squeakfoundation.org