2022-06-09 20:12:36 +00:00
|
|
|
accessing
|
|
|
|
|
messages
|
|
|
|
|
|
2022-06-09 23:07:22 +00:00
|
|
|
messages ifNil: [ messages := TweetsCollection new ].
|
2022-06-09 20:12:36 +00:00
|
|
|
messages ifEmpty: [ self getRemoteMessagesFromHtml ].
|
2022-06-09 23:07:22 +00:00
|
|
|
[ config at: 'reportingPeriod' ]
|
|
|
|
|
onErrorDo: [ self config
|
|
|
|
|
at: 'reportingPeriod'
|
|
|
|
|
put: (Timespan
|
|
|
|
|
starting: (messages oldest created asDateAndTime)
|
|
|
|
|
ending: (messages newest created asDateAndTime + 1 minute)) ].
|
2022-06-09 20:12:36 +00:00
|
|
|
^ messages select: [ :message | message created between: self reportingPeriod start and: self reportingPeriod end ]
|
