Tim Felgentreff uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-tfel.181.mcz
==================== Summary ====================
Name: Network-tfel.181 Author: tfel Time: 2 August 2016, 10:02:39.481368 am UUID: d07e59cc-708a-e444-abea-7ae935cc7cff Ancestors: Network-ul.180, Network-bf.3
merge from Squeakland Etoys image
=============== Diff against Network-ul.180 ===============
Item was changed: ----- Method: FTPClient>>openPassiveDataConnection (in category 'private protocol') ----- openPassiveDataConnection | portInfo list dataPort remoteHostAddress | self sendCommand: 'PASV'. self lookForCode: 227 ifDifferent: [:response | (TelnetProtocolError protocolInstance: self) signal: 'Could not enter passive mode: ' , response]. - portInfo := (self lastResponse findTokens: '()') at: 2. list := portInfo findTokens: ','. + remoteHostAddress := NetNameResolver addressForName: (list at: 1) + , '.' + , (list at: 2) , '.' + , (list at: 3) , '.' + , (list at: 4) timeout: 30. - remoteHostAddress := ByteArray - with: (list at: 1) asNumber - with: (list at: 2) asNumber - with: (list at: 3) asNumber - with: (list at: 4) asNumber. dataPort := (list at: 5) asNumber * 256 + (list at: 6) asNumber. + self openDataSocket: remoteHostAddress port: dataPort! - self openDataSocket: remoteHostAddress port: dataPort - !
Item was changed: ----- Method: HTTPServerDirectory>>entries (in category 'file directory') ----- + entries + ^ [HTTPClient + getDirectoryListing: (self dirListUrl + ifNil: [^ #()])] + on: NameLookupFailure + do: [^ #()]! - entries - ^HTTPClient getDirectoryListing: self dirListUrl!
Item was changed: ----- Method: ProtocolClient>>port (in category 'private') ----- port + ^self connectionInfo at: #port ifAbsent: [nil]! - ^self connectionInfo at: #port!
Item was changed: ----- Method: ServerDirectory>>isRoot (in category 'testing') ----- isRoot + ^ directory = '/'! - ^directory = (String with: self pathNameDelimiter)!
Item was changed: ----- Method: Socket>>waitForAcceptFor:ifTimedOut: (in category 'waiting') ----- waitForAcceptFor: timeout ifTimedOut: timeoutBlock "Wait and accept an incoming connection" self waitForConnectionFor: timeout ifTimedOut: [^timeoutBlock value]. + ^self isConnected + ifTrue:[self accept] + ! - ^self accept!