Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1365.mcz
==================== Summary ====================
Name: System-mt.1365 Author: mt Time: 4 July 2022, 10:13:34.300024 am UUID: b6c5f9d9-0329-8c47-a4d6-2795ba189725 Ancestors: System-mt.1364
Fixes CI access for not-yet-accessible versions.
=============== Diff against System-mt.1364 ===============
Item was changed: ----- Method: SystemVersion>>ciStatusTimestamp (in category 'continuous integration') ----- ciStatusTimestamp "Slow. Fetch HTML page, extract first occurrence of ... <time-ago datetime='2021-08-04T14:24:20Z' ... "
| statusResponse statusPage begin end dateAndTime | statusResponse := WebClient httpGet: self ciStatusPageUrl. statusResponse isSuccess ifFalse: [^ nil]. statusPage := statusResponse content. begin := statusPage findString: 'datetime' startingAt: 100000. "Skip the first X bytes decoration." + begin = 0 ifTrue: [^ nil]. end := statusPage findString: 'Z' startingAt: begin. + end = 0 ifTrue: [^ nil]. dateAndTime := DateAndTime readFrom: (statusPage copyFrom: begin + 10 to: end) readStream. ^ String streamContents: [:s | dateAndTime asDate = Date today ifTrue: [s nextPutAll: 'Today' translated, ','] ifFalse: [dateAndTime asDate = Date yesterday ifTrue: [s nextPutAll: 'Yesterday' translated, ','] ifFalse: [dateAndTime printYMDOn: s]]. s space. dateAndTime printHMOn: s]!
squeak-dev@lists.squeakfoundation.org