SyntaxBomb - Indie Coders

SuperStrict
Rem
	curl example
	https://curl.haxx.se/libcurl/c/smtp-tls.html
	LIBCURL - EMAIL TEST
End Rem
Framework BaH.libcurl
Import BRL.StandardIO
Import BRL.filesystem
Local _to$,_from$,_cc$,_URL$,_USER$,_password$
_URL="mail.your site.net:587"
_USER="valid email"
_password="password"
_to="email_to"
_from="email_from"
_Cc=""
Local mail_message$="Date: \r\n"+..
  "To: "+_To+"\r\n"+..
  "From: "+_FROM+" (Example User)\r\nCc: "+_CC+..
" (Another example User)\r\nMessage-ID: <dcd7cb36-11db-487a-9f3a-e652a9458efd@"+..
"rfcpedant.example.org>\r\nSubject: SMTP TLS example message\r\n\r\n"+..
"The body of the message starts here.\r\n\r\n"+..
"It could be a lot of lines, could be MIME encoded, whatever.\r\nCheck RFC5322.\r\n"

Local payload:Tpayload=Tpayload.Create(mail_message)

Local curl:TCurlEasy = TCurlEasy.Create()

curl.setOptInt(CURLOPT_VERBOSE, 1)
curl.setOptInt(CURLOPT_FOLLOWLOCATION, 1)
curl.setOptString(CURLOPT_USERNAME, _USER)
curl.setOptString(CURLOPT_PASSWORD, _PASSWORD)
'????curl.setl_easy_setopt(curl, CURLOPT_USE_SSL, (Long)CURLUSESSL_ALL)
curl.setOptString(CURLOPT_URL, _URL)'587 means TSL (Transport Security Layer activated...)

curl.setOptString(CURLOPT_MAIL_FROM,_from)
curl.setOptString(CURLOPT_MAIL_RCPT,_to)

'this should resolve the problem, taken from a working example 
'to upload a file - it should work in the same way
'see Tpayload class belove (a stupid trick to 'save' and reload it...)
'not working with 'attached' file I suppose...

'curl_easy_setopt(curl, CURLOPT_READFUNCTION, payload_source);
'curl_easy_setopt(curl, CURLOPT_READDATA, &upload_ctx);
curl.setReadCallback(payload.Read, payload) 'set the callback????
curl.setOptInt(CURLOPT_UPLOAD, True)
Local res:Int = curl.perform()
curl.cleanup()
End
'not a so elegant solution... but maybe it works!
Type Tpayload

	Field name:String
	Field size:Int
	Field currentPos:Int
	
	Field stream:TStream

	Function Create:Tpayload(file:String)
		Local this:Tpayload= New Tpayload
		
		Local f:TStream=WriteFile("message_email.txt")
		If f
			WriteLine f,file
			CloseStream f
		End If
		file="message_email.txt"
		this.name = file
		this.size = FileSize(file)
		Print "Message size: "+this.size

		Return this
	End Function
	
	Method DoRead:Int(BUFFER:Byte Ptr, size:Int)
		If Not stream Then
			stream = ReadStream(name)
			currentPos = 0
		End If
		
		Local count:Int = Stream.Read( BUFFER, size )
		currentPos :+ count
		
		Return count
	End Method

	Function Read:Int(BUFFER:Byte Ptr, size:Int, data:Object)
		Return Tpayload(data).DoRead(BUFFER, size)
	End Function

End Type