Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.218.mcz
==================== Summary ====================
Name: Network-ul.218 Author: ul Time: 5 February 2018, 9:19:11.648759 pm UUID: 926b8c34-1b27-4979-bef7-4b9533613743 Ancestors: Network-tpr.217
- after upgrading to TLS, the session has to be reinitiated in SMTPClient - use #base64Encoded in Authorizer>>encode:password:
=============== Diff against Network-tpr.217 ===============
Item was changed: ----- Method: Authorizer>>encode:password: (in category 'authentication') ----- encode: nameString password: pwdString "Encode per RFC1421 of the username:password combination."
+ ^(nameString, ':', pwdString) base64Encoded! - | clear code clearSize idx map | - clear := (nameString, ':', pwdString) asByteArray. - clearSize := clear size. - [ clear size \ 3 ~= 0 ] whileTrue: [ clear := clear, #(0) ]. - idx := 1. - map := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'. - code := WriteStream on: ''. - [ idx < clear size ] whileTrue: [ code - nextPut: (map at: (clear at: idx) // 4 + 1); - nextPut: (map at: (clear at: idx) \ 4 * 16 + ((clear at: idx + 1) // 16) + 1); - nextPut: (map at: (clear at: idx + 1) \ 16 * 4 + ((clear at: idx + 2) // 64) + 1); - nextPut: (map at: (clear at: idx + 2) \ 64 + 1). - idx := idx + 3 ]. - code := code contents. - idx := code size. - clear size - clearSize timesRepeat: [ code at: idx put: $=. idx := idx - 1]. - ^code!
Item was changed: ----- Method: SMTPClient>>initiateSession (in category 'private protocol') ----- initiateSession "EHLO <SP> <domain> <CRLF>"
self sendCommand: (self useHelo ifTrue:['HELO '] ifFalse: ['EHLO ']) , self localHostName. self checkResponse. self parseCapabilities: (self lastResponse lines allButFirst collect: [:l | self valueOfResponseLine: l]).
(self tlsIsActive not and: [self serverSupportsStarttls] and: [self wantsStarttls]) + ifTrue: [ + self starttls. + self responseIsSuccess ifTrue: [ + self initiateSession ] ]! - ifTrue: [self starttls]!
packages@lists.squeakfoundation.org