[squeak-dev] The Trunk: System-mt.1365.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 4 08:13:38 UTC 2022


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]!



More information about the Squeak-dev mailing list