A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.237.mcz
==================== Summary ====================
Name: Installer-Core-mtf.237 Author: mtf Time: 15 October 2008, 7:46:18 am UUID: 6b376525-420e-468c-b351-bf9435801811 Ancestors: Installer-Core-mtf.236
log retries due to the pbwiki robots message
=============== Diff against Installer-Core-mtf.236 ===============
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), ' 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), ' seconds'. + retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. - self wasPbwikiSpeedWarning ifTrue: [ retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. + retry ]. - retry ]. pageDataStream ifNil: [ self error: 'unable to contact host' ]. ^ pageDataStream !
packages@lists.squeakfoundation.org