[Pkg] Installer: Installer-Core-kph.231.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-kph.231.mcz

==================== Summary ====================

Name: Installer-Core-kph.231
Author: kph
Time: 2 October 2008, 3:13:31 am
UUID: c05966fb-5bd9-42fa-b0a3-b411686da891
Ancestors: Installer-Core-stephane.ducasse.230

an ever increasing delay when pbwiki complains

=============== Diff against Installer-Core-stephane.ducasse.230 ===============

Item was changed:
  ----- Method: Installer>>webFindUrlToDownload (in category 'web install') -----
  webFindUrlToDownload
  
+ 	| delay |
+ 	delay := 0.
  	self class webSearchPath 
  		do: [ :pathSpec | 
  				| potentialUrl readPathSpec  |
  				readPathSpec := pathSpec value readStream.
  				potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]).
  				[ pageDataStream := self urlGet: potentialUrl ] 
  						doWhileTrue: [ 	
  								(pageDataStream notNil and: [ pageDataStream size > 0 ]) 
  									ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') 
  													ifFalse: [ pageDataStream reset. 
  																^ potentialUrl ] ].
+ 								(Delay forSeconds: (delay := delay + 5)) wait.
- 								(Delay forSeconds: 2) wait.
  								true]].
  	^nil
  !