A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.283.mcz
==================== Summary ====================
Name: Installer-Core-kph.283 Author: test Time: 14 January 2009, 12:12:01 am UUID: 0557b65d-2deb-4e23-8f4e-7678666125f8 Ancestors: Installer-Core-kph.282
New mantis querying feature using ken's custom exporter that does include custom status
=============== Diff against Installer-Core-kph.282 ===============
Item was changed: InstallerWebBased subclass: #InstallerMantis + instanceVariableNames: 'ma bug desc date array data status' - instanceVariableNames: 'ma bug desc date array status' classVariableNames: 'Fixes Status' poolDictionaries: '' category: 'Installer-Core'!
+ !InstallerMantis commentStamp: 'test 1/14/2009 00:11' prior: 0! + Search feature is based upon a custom mantis query ceveloped and maintained by Ken Causey ken@kencausey.com - !InstallerMantis commentStamp: 'kph 12/10/2008 00:20' prior: 0! - Search feature - - A := Installer mantis. - - A searchCategory: 'Collections'
+ Installer mantis bugsAll select: [ :ea | ea status = 'testing' ].! - self assert: (A searchStatusConfirmed size > 0). - self assert: (A searchStatusAcknowledged size > 0). - self assert: (A searchStatusConfirmed size > 0). - self assert: (A searchStatusResolved size > 0). - self assert: (A searchStatusAssigned size > 0).!
Item was added: + ----- Method: InstallerMantis>>array (in category 'accessing') ----- + array + + ^ array!
Item was added: + ----- Method: InstallerMantis>>hash (in category 'accessing') ----- + hash + + ^ array hash!
Item was added: + ----- Method: InstallerMantis>>bugsAll (in category 'action report') ----- + bugsAll + + ^ array ifNil: [ + + array := ( self bugsSqueak , (self dataGetFrom: '/installer_export.php') ) asSet asSortedCollection: [ :a :b | a date > b date ] + + ]. + + " + + Installer mantis bugsAll + + " + + !
Item was added: + ----- Method: InstallerMantis>>statusInit (in category 'accessing') ----- + statusInit + + status ifNil: [ status := Status at: (self dataAtName: 'Status'). + self dataAtName:'Status' put: status. + ]. + + !
Item was added: + ----- Method: InstallerMantis>>dataClosed (in category 'search-private') ----- + dataClosed + + ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!
Item was added: + ----- Method: InstallerMantis>>= (in category 'accessing') ----- + = other + + ^ array = other array!
Item was changed: ----- Method: InstallerMantis>>bug (in category 'accessing') ----- bug ^ bug ifNil: [ date := ((self dataAtName: 'Updated') replaceAll: $ with: $T) asDateAndTime. desc := (self dataAtName: 'Summary'). bug := (self dataAtName: 'Id'). + self statusInit. - status := Status at: (self dataAtName: 'Status'). ]!
Item was added: + ----- Method: InstallerMantis>>dataAtName:put: (in category 'search-private') ----- + dataAtName: key put: v + + ^ array at: (self dataNames indexOf: key) put: v!
Item was changed: ----- Method: InstallerMantis>>dataGetFrom: (in category 'public interface') ----- dataGetFrom: aPath
+ | rs line first col row out | - | rs line first col row | rs := HTTPSocket httpGet: ma, aPath. first := true. + out := OrderedCollection new. + + [ rs atEnd ] whileFalse: [ - ^ array := Array streamContents: [ :out | - - [ rs atEnd ] whileFalse: [ + line := rs nextLine readStream. + col := 1. + row := Array new: 9. + [ (line atEnd or: [ col > 9 ]) ] whileFalse: [ row at: col put: (line upTo: $|). col := col + 1 ]. - line := rs nextLine readStream. - col := 1. - row := Array new: 9. - [ (line atEnd or: [ col > 9 ]) ] whileFalse: [ row at: col put: (line upTo: $|). col := col + 1 ].
+ rs next. + out add: (self class new in: self row: row) ]. - rs next. - out nextPut: (self class new in: self row: row) ]. + ^ out - ]. " self reset. self getBugsList "!
Item was added: + ----- Method: InstallerMantis>>bugsClosed (in category 'search-private') ----- + bugsClosed + + ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!
Item was added: + ----- Method: InstallerMantis>>bugsSqueak (in category 'search-private') ----- + bugsSqueak + + ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?project=Squeak' ] + + " + Installer mantis bugsSqueak. + Installer mantis bugsAll. + Installer mantis bugsClosed. + + "!
Item was removed: - ----- Method: InstallerMantis>>select: (in category 'public interface') ----- - select: aBlock - - ^ self dataAll select: aBlock!
Item was removed: - ----- Method: InstallerMantis>>selectAll (in category 'public interface') ----- - selectAll - - ^ self dataAll!
Item was removed: - ----- Method: InstallerMantis>>dataAll (in category 'search-private') ----- - dataAll - - ^ array ifNil: [ array := self dataGetFrom: '/installer_export.php' ]!