VW Glorp Commits comments

session := Store.Glorp.StoreLoginFactory currentStoreSession.
query := Glorp.Query read: Store.Glorp.StoreBundle where: [:each | (each name = 'Glorp')].
query orderBy: [:each | each timestamp].
packages := (session execute: query) select: [:each | each timestamp >= (Locale current readDateFrom: '2011-01-01' readStream) asTimestamp ].

blessings := (packages collect: [:each | each blessings ]) inject: OrderedCollection new into: [:all :collection | all addAll: collection; yourself ].
blessings := blessings reject: [:each | each comment = '' or: [each comment beginsWith: 'Replicated' ]].

stream := WriteStream on: String new.
blessings do: [:blessing |
    stream
        nextPutAll: blessing timeStampString;
        nextPutAll: ': ';
        nextPutAll: blessing comment;
        cr.
].
stream contents