sendRequestSignUpMail: aNewUser license: aConf languages: langSTR
| aMessage smtpClient stream bos aByteArray cryptedMail httpClient request response messContents aLinkAccept aName byMailChimp |
stream := WriteStream on: ByteArray new.
bos := BinaryObjectStorage onNew: stream.
bos nextPut: aNewUser email.
bos nextPut: aNewUser passwd.
bos nextPut: Date today.
bos close.
aByteArray := stream contents.
cryptedMail := Crypter new cryptEmail: aByteArray.
DeploymentOptionsSystem isRuntime
ifTrue:
ifFalse:
httpClient := Net.HttpClient new.
httpClient timeout: 2000.
request := Net.HttpRequest
response := [httpClient executeRequest: request] on: Error
do: [:exc | Transcript show: 'You missed it !'].
response
ifNotNil:
[messContents := response value byteSource contents asByteString.
messContents := messContents copyReplaceAll: 'text/html; charset=utf-8'
with: 'utf-8'.
aNewUser firstName
ifNil:
[aNewUser lastName
ifNil: [aName := 'Interpreter,']
ifNotNil: [aName := 'Mr/MS ' , aNewUser lastName]]
ifNotNil: [aName := aNewUser firstName].
messContents := messContents copyReplaceAll: 'XXXXXX' with: aName.
with: aLinkAccept.
messContents := messContents copyReplaceAll: 'YYYYYYYYYYYY'
with: aNewUser email.
aMessage := Net.MailMessage newTextHTML.
aMessage contents: messContents.
aMessage to: aNewUser email.
aMessage
subject: 'HeadVox Sign-Up Confirmation'.