[Pkg] Installer: Installer-Core-mtf.237.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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
  	!