The Trunk: WebClient-Core-dtl.127.mcz

David T. Lewis uploaded a new version of WebClient-Core to project The Trunk:
http://source.squeak.org/trunk/WebClient-Core-dtl.127.mcz

==================== Summary ====================

Name: WebClient-Core-dtl.127
Author: dtl
Time: 2 December 2020, 9:21:11.256021 pm
UUID: b29c5835-46cf-4f51-b822-b3494063f3f7
Ancestors: WebClient-Core-mt.126

Eliminate the only known use of DateAndTime class>>totalSeconds, use the proper method in class Time instead.

=============== Diff against WebClient-Core-mt.126 ===============

Item was changed:
  ----- Method: WebUtils class>>logEntryFor:response: (in category 'misc') -----
  logEntryFor: request response: response
  "Create a log entry in common log format from the given request / response"
 
  | entry logdate logsize |
 
  "CLF prints date as [day/month/year:hour:min:sec zone]"
  logdate := String streamContents:[:s| | date |
+ date := DateAndTime fromSeconds: Time totalSeconds.
- date := DateAndTime fromSeconds: DateAndTime totalSeconds.
  s nextPut: $[.
  date asDate printOn: s format: #( 1 2 3 $/ 2 1 2).
  s nextPut: $:.
  date asTime print24: true on: s.
  s nextPutAll:(' ',
  (date offset hours >= 0 ifTrue:['+'] ifFalse:['-']),
  (date offset hours abs asString padded: #left to: 2 with: $0),
  (date offset minutes abs asString padded: #left to: 2 with: $0)
  ).
  s nextPut: $].
  ].
 
  "CLF prints zero length as - "
  logsize := response contentLength ifNil:[0].
  logsize = 0 ifTrue:[logsize := '-'].
 
  entry := String streamContents:[:s|
  s
  nextPutAll: (request remoteHost ifNil:[
  "Substitute with the host header"
  (request headerAt: 'host') copyUpTo: $:
  ]);
  nextPutAll: ' -'; "RFC 1413 identity of client"
  nextPutAll: ' -'; "TODO: userid of authenticated user"
  nextPutAll: ' ', logdate;
  nextPutAll: ' "', request requestLine, '"';
  nextPutAll: ' ', response code;
  nextPutAll: ' ', logsize.
  ].
  ^entry
  !