haskell/haskellnet-ssl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Change SMTP example to use AUTH LOGIN

Browse Source 
Also, output the response on authentication failure rather than just
carrying on regardless.
This commit is contained in:
Daniel P. Wright 2014-02-04 08:34:45 +09:00
parent 31526e9b79
commit a69ad12ec4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/gmail.hs
View File

@ -8,7 +8,7 @@ import Network.HaskellNet.SMTP.SSL
import Network.HaskellNet.SSL
import Network.HaskellNet.Auth (AuthType(PLAIN))
import Network.HaskellNet.Auth (AuthType(LOGIN))
import qualified Data.ByteString.Char8 as B
@ -30,8 +30,10 @@ imapTest = do
where cfg = defaultSettingsIMAPSSL { sslMaxLineLength = 100000 }
smtpTest = doSMTPSTARTTLS "smtp.gmail.com" $ \c -> do
sendCommand c $ AUTH PLAIN username password
sendMail username [recipient] mailContent c
r@(rsp, _) <- sendCommand c $ AUTH LOGIN username password
if rsp /= 235
then print r
else sendMail username [recipient] mailContent c
where mailContent = subject `B.append` body
subject = "Subject: Test message\r\n\r\n"
body = "This is a test message"