[Pkg] Installer: Installer-Core-kph.227.mcz

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

Keith Hodges uploaded a new version of Installer-Core to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.227.mcz

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

Name: Installer-Core-kph.227
Author: kph
Time: 30 September 2008, 12:56:37 pm
UUID: 23c9fd18-91eb-4433-9800-9c486378a846
Ancestors: Installer-Core-kph.226

again attempt to work around pbwiki speed restrictions

=============== Diff against Installer-Core-kph.226 ===============

Item was changed:
  ----- Method: Installer>>webFindUrlToDownload (in category 'web install') -----
  webFindUrlToDownload
  
  	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 ] ].
- 				((pageDataStream notNil and: [ pageDataStream size > 0 ]) 
- 					ifTrue: [ pageDataStream contents includesSubString: 'Please slow down a bit' ]) ifFalse: [ pageDataStream reset. ^ potentialUrl ].
  				(Delay forSeconds: 2) wait.
  		].
  				
  	].
  	^nil
  !