Patrick Rein uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-pre.192.mcz

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

Name: Network-pre.192
Author: pre
Time: 4 May 2017, 6:00:28.490322 pm
UUID: b6465341-6977-454c-b78f-dcef0d8e9bf5
Ancestors: Network-pre.191

Adds basic starttls capabilities to the SMTP client. Required an extension of ProtocolClient to also store the hostName.

=============== Diff against Network-pre.191 ===============

Item was changed:
  ----- Method: ProtocolClient class>>openOnHostNamed:port: (in category 'instance creation') -----
  openOnHostNamed: hostName port: portNumber
  	| serverIP |
  	serverIP := NetNameResolver addressForName: hostName timeout: 20.
+ 	^ (self openOnHost: serverIP port: portNumber)
+ 		hostName: hostName;
+ 		yourself
- 	^self openOnHost: serverIP port: portNumber
  !

Item was added:
+ ----- Method: ProtocolClient>>hostName (in category 'private') -----
+ hostName
+ 
+ 	^ self connectionInfo at: #hostName ifAbsent: [NetNameResolver nameForAddress: self host]!

Item was added:
+ ----- Method: ProtocolClient>>hostName: (in category 'private') -----
+ hostName: aString
+ 
+ 	^ self connectionInfo at: #hostName put: aString!

Item was changed:
  ----- Method: SMTPClient>>data: (in category 'private protocol') -----
  data: messageData
  	"send the data of a message"
  	"DATA <CRLF>"
  
- 	
- 
  	"inform the server we are sending the message data"
  	self sendCommand: 'DATA'.
  	self checkResponse.
  
  	"process the data one line at a time"
  	messageData linesDo:  [ :messageLine | | cookedLine |
  		cookedLine := messageLine.
  		(cookedLine beginsWith: '.') ifTrue: [ 
  			"lines beginning with a dot must have the dot doubled"
  			cookedLine := '.', cookedLine ].
  		self sendCommand: cookedLine ].
  
  	"inform the server the entire message text has arrived"
  	self sendCommand: '.'.
  	self checkResponse.!

Item was added:
+ ----- Method: SMTPClient>>starttls (in category 'private protocol') -----
+ starttls
+ 	"Send HELO first"
+ 	Smalltalk at: #SqueakSSL ifAbsent:[self error: 'SqueakSSL is missing'].
+ 	
+ 	self initiateSession.
+ 	self sendCommand: 'STARTTLS'.
+ 	self checkResponse.
+ 	self determineResponseCode = 220 ifTrue: [
+ 		stream := SqueakSSL secureSocketStream on: stream socket.
+ 		stream sslConnectTo: self hostName].!