A new version of Network was added to project The Inbox:
http://source.squeak.org/inbox/Network-ct.251.mcz

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

Name: Network-ct.251
Author: ct
Time: 18 October 2021, 10:56:20.31129 pm
UUID: 105c7f13-31ee-a746-a3b7-cfaff1dbad75
Ancestors: Network-eem.249

Slightly revises the changes from Network-eem.249 so that the https://files.squeak.org/trunk/ example works in a fresh trunk image.

=============== Diff against Network-eem.249 ===============

Item was changed:
  ----- Method: HTTPServerDirectory>>parseFTPEntriesFromXML: (in category 'misc') -----
  parseFTPEntriesFromXML: anXMLDocument
  	| entries |
  	entries := OrderedCollection new.
  	anXMLDocument
  		tagsNamed: #tr
  		ifReceiverDoAndRecurse:
  			[:node| | ec |
  			((ec := node elementsAndContents) size = 4
  			and: [((ec := ec asArray) allSatisfy: [:n| n isTag])
+ 			and: [((ec collect: [:n| n attributeAt: 'class']) hasEqualElements: #('n' 'm' 's' 't'))]]) ifTrue:
- 			and: [((ec collect: [:n| n attributeAt: 'class']) sameElements: #('n' 'm' 's' 't'))]]) ifTrue:
  				[[:n :m :s :t| | modificationString nameString |
  				  (n isTag
+ 				   and: [(modificationString := m isText ifTrue: [m string] ifFalse: [m]) size > 12 "YYYYMMDDHHSS"
- 				   and: [(modificationString := m string) size > 12 "YYYYMMDDHHSS"
  				   and: [modificationString first isDigit]]) ifTrue:
  					[nameString := n attributeAt: 'href'.
  					 entries addLast:
  						(t string = 'Directory' "is-a-directory flag"
  							ifTrue:
  								[DirectoryEntryDirectory
  									directory: self
  									name: nameString "file name"
  									creationTime: nil
  									modificationTime: modificationString asDateAndTime "modification time"
  									fileSize: nil]
  							ifFalse:
  								[DirectoryEntryFile
  									directory: self
  									name: nameString "file name"
  									creationTime: nil
  									modificationTime: modificationString asDateAndTime "modification time"
+ 									fileSize: (self fileSizeFromString: s string)])]] valueWithArguments: (ec collect: [:element| element elementsAndContents ifNotEmpty: #first])]].
- 									fileSize: (self fileSizeFromString: s string)])]] valueWithArguments: (ec collect: [:element| element elementsAndContents first])]].
  	^entries!