Patrick Rein uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-pre.441.mcz

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

Name: Installer-Core-pre.441
Author: pre
Time: 10 November 2021, 3:06:48.579616 pm
UUID: ff3a2aa9-efc5-9943-ba73-1eebfb6dc5c8
Ancestors: Installer-Core-mt.440

Recategorizes uncategorized or miscategorized messages in the Installer package.

=============== Diff against Installer-Core-mt.440 ===============

Item was changed:
+ ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'private') -----
- ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'as yet unclassified') -----
  extractFromHtml: html option: allOrLast
  
  	|  start stop test in |
  
  	start := self markersBegin.
  	stop :=  self markersEnd.
  	test := self markersTest.
  			 
  	in := WriteStream with: String new.
  		
  	[ html upToAll: start; atEnd ] 
  		whileFalse: [
  			| chunk |
  			(allOrLast == #last) ifTrue: [ in resetToStart ]. 
  			chunk := html upToAll: stop.
  			self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ].
  			in nextPutAll: chunk. 
  		 ].
  
  	^self removeHtmlMarkupFrom: in readStream
  	 
  !

Item was changed:
+ ----- Method: InstallerInternetBased>>markers (in category 'private - accessing') -----
- ----- Method: InstallerInternetBased>>markers (in category 'as yet unclassified') -----
  markers
  
  	^ markers ifNil: [ '<code st>..."test ...</code st>' ]!

Item was changed:
+ ----- Method: InstallerInternetBased>>markers: (in category 'private - accessing') -----
- ----- Method: InstallerInternetBased>>markers: (in category 'as yet unclassified') -----
  markers: anObject
  
  	markers := anObject!

Item was changed:
+ ----- Method: InstallerInternetBased>>markersBegin (in category 'private') -----
- ----- Method: InstallerInternetBased>>markersBegin (in category 'as yet unclassified') -----
  markersBegin
  		 	 
  	 ^ self markers copyUpTo: $.!

Item was changed:
+ ----- Method: InstallerInternetBased>>markersEnd (in category 'private') -----
- ----- Method: InstallerInternetBased>>markersEnd (in category 'as yet unclassified') -----
  markersEnd
  	"return the third marker or the second if there are only two"
  	
  	| str  a | 
  	str := self markers readStream.
  	a := str upToAll: '...'; upToAll: '...'.
  	str atEnd  ifTrue: [ ^a ] ifFalse: [ ^str upToEnd ]
  	!

Item was changed:
+ ----- Method: InstallerInternetBased>>markersTest (in category 'private') -----
- ----- Method: InstallerInternetBased>>markersTest (in category 'as yet unclassified') -----
  markersTest
  		 	 
  	^ self markers readStream upToAll: '...'; upToAll: '...'!

Item was changed:
+ ----- Method: InstallerInternetBased>>removeHtmlMarkupFrom: (in category 'private') -----
- ----- Method: InstallerInternetBased>>removeHtmlMarkupFrom: (in category 'as yet unclassified') -----
  removeHtmlMarkupFrom: in 
  
  	| out |
  	out := WriteStream on: (String new: 100).
  	[ in atEnd ] whileFalse: [ 
  		out nextPutAll: (in upTo: $<).
  		(((in upTo: $>) asLowercase beginsWith: 'br') and: [ (in peek = Character cr) ]) ifTrue: [ in next ].	
  	].
  	
  	^self replaceEntitiesIn: out readStream.
  !

Item was changed:
+ ----- Method: InstallerMantis class>>host: (in category 'instanciation') -----
- ----- Method: InstallerMantis class>>host: (in category 'instance creation') -----
  host: host
  
  	^self new	ma: host; 
  			markers: '"fix begin"..."fix test"..."fix end"'; 
  			yourself.
  !

Item was changed:
+ ----- Method: InstallerMantis class>>initialize (in category 'instanciation') -----
- ----- Method: InstallerMantis class>>initialize (in category 'instance creation') -----
  initialize
  
  	Status := Dictionary new
  		at: '10' put: 'new';
  		at: '20' put: 'feedback';
  		at: '30' put: 'acknowledged';
  		at: '40' put: 'confirmed';
  		at: '50' put: 'assigned';
  		at: '60' put: 'pending';
  		at: '70' put: 'testing';
  		at: '80' put: 'resolved';
  		at: '90' put: 'closed';
  		yourself !

Item was changed:
+ ----- Method: InstallerMantis>>bugsClosed (in category 'searching') -----
- ----- Method: InstallerMantis>>bugsClosed (in category 'search') -----
  bugsClosed
  
  	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!

Item was changed:
+ ----- Method: InstallerMantis>>bugsRelease: (in category 'searching') -----
- ----- Method: InstallerMantis>>bugsRelease: (in category 'search') -----
  bugsRelease: version
  
  	^self bugsAll select: [ :ea | (ea status = 'resolved') and: [ ea fixedIn = version ]]!

Item was changed:
+ ----- Method: InstallerMantis>>bugsSqueak (in category 'searching') -----
- ----- Method: InstallerMantis>>bugsSqueak (in category 'search') -----
  bugsSqueak
  
  	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?project=Squeak' ]
  	
  "
  Installer mantis bugsSqueak.
  Installer mantis bugsAll.
  Installer mantis bugsClosed.
  
  "!

Item was changed:
+ ----- Method: InstallerMantis>>bugsTesting: (in category 'searching') -----
- ----- Method: InstallerMantis>>bugsTesting: (in category 'search') -----
  bugsTesting: version
  
  	^self bugsAll select: [ :ea | ea status = 'testing' and: [ ea fixedIn = version ]]!

Item was changed:
+ ----- Method: InstallerMantis>>category (in category 'searching') -----
- ----- Method: InstallerMantis>>category (in category 'search') -----
  category
  
  	^ self dataAtName: 'Category'
  	
   "
  s bugs collect: [ :ea | ea category ]
  "!

Item was changed:
+ ----- Method: InstallerMantis>>dataAtName: (in category 'searching') -----
- ----- Method: InstallerMantis>>dataAtName: (in category 'search') -----
  dataAtName: key
  	
  	^ array at: (self dataNames indexOf: key)!

Item was changed:
+ ----- Method: InstallerMantis>>dataAtName:put: (in category 'searching') -----
- ----- Method: InstallerMantis>>dataAtName:put: (in category 'search') -----
  dataAtName: key put: v
  	
  	^ array at: (self dataNames indexOf: key) put: v!

Item was changed:
+ ----- Method: InstallerMantis>>dataClosed (in category 'searching') -----
- ----- Method: InstallerMantis>>dataClosed (in category 'search') -----
  dataClosed
  
  	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!

Item was changed:
+ ----- Method: InstallerMantis>>fixedIn (in category 'searching') -----
- ----- Method: InstallerMantis>>fixedIn (in category 'search') -----
  fixedIn
  
  	^ self dataAtName: 'FixedIn'
  !

Item was changed:
+ ----- Method: InstallerMantis>>project (in category 'searching') -----
- ----- Method: InstallerMantis>>project (in category 'search') -----
  project
  
  	^ self dataAtName: 'Project'
  !

Item was changed:
+ ----- Method: InstallerMantis>>summary (in category 'searching') -----
- ----- Method: InstallerMantis>>summary (in category 'search') -----
  summary
  
  	^ self dataAtName: 'Summary'!

Item was changed:
+ ----- Method: InstallerUrl>>addPackage: (in category 'public interface') -----
- ----- Method: InstallerUrl>>addPackage: (in category 'as yet unclassified') -----
  addPackage: aPackageName
  	super addPackage: aPackageName.
  	(self url endsWith: '/') ifFalse: [self url: self url, '/'].!