[Pkg] Installer: Installer-Core-kph.283.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Wed Jan 14 00:12:07 UTC 2009
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 at 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' ]!
More information about the Packages
mailing list