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

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

Name: Installer-Core-kph.265
Author: kph
Time: 9 December 2008, 3:18:07 am
UUID: 5a9c77be-4edb-4cf5-b4a1-721e596d1d5b
Ancestors: Installer-Core-kph.264

getting there

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

Item was changed:
  ----- Method: InstallerInternetBased>>urlGet: (in category 'url') -----
  urlGet: aUrl
  
  	| page |
  	page := HTTPSocket httpGet: aUrl accept: 'application/octet-stream'.  
  	(page respondsTo: #reset)  ifFalse: [ ^ nil ].
+ 	(self isHtmlStream: page) ifTrue: [ page := self extractFromHtml: page option: nil ].
- 	(self isHtmlStream: page) ifTrue: [ self extractFromHtml: page option: nil ].
  	^ page reset
  	!

Item was changed:
  ----- Method: Installer>>install:from: (in category 'mantis') -----
  install: aFileName from: stream
  
  | ext installSelector mcThing |
  	 
  	self log: ' installing...'.
   
  	self withAnswersDo:	[
  		
  		mcThing := self classMCReader ifNotNil: [ self mcThing: aFileName from: stream ].
  		
  		mcThing 
  			ifNotNil: [ (mcThing respondsTo: #install) 
  						ifTrue: [ mcThing install ]
  				        	ifFalse: [ (mcThing respondsTo: #load) ifTrue: [ mcThing load ] ]
  			]
  			ifNil: [ 
  		
+ 				ext := (aFileName copyAfterLast: $/) copyAfterLast: $..
- 				ext := aFileName copyAfterLast: $..
  				installSelector := ('install', ext asUppercase, ':from:') asSymbol.
  	
  				(self respondsTo: installSelector)
  					ifTrue: [ self perform: installSelector with: aFileName with: stream ]
  					ifFalse: [ self installDefault: aFileName from: stream ].
  			]
  	]. 
  
  	self log: ' done.'
  !