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

Pass hostname to SMTP HELO command

Browse Source
This commit is contained in:
Daniel P. Wright 2013-08-26 13:51:29 +09:00
parent 24e8f1c7f9
commit 7f8faffa24
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Network/HaskellNet/SMTP/SSL.hs
View File

@ -10,6 +10,7 @@ import Network.HaskellNet.SMTP
import Network.HaskellNet.SSL import Network.HaskellNet.SSL
import Network.HaskellNet.BSStream import Network.HaskellNet.BSStream
import Network.BSD (getHostName)
import qualified Data.ByteString.Char8 as B import qualified Data.ByteString.Char8 as B
@ -35,7 +36,8 @@ connectSTARTTLS hostname port = do
greeting <- bsGetLine bs greeting <- bsGetLine bs
failIfNot bs 220 $ parseResponse greeting failIfNot bs 220 $ parseResponse greeting
bsPut bs $ B.pack "HELO\r\n" hn <- getHostName
bsPut bs $ B.pack ("HELO " ++ hn ++ "\r\n")
getResponse bs >>= failIfNot bs 250 getResponse bs >>= failIfNot bs 250
bsPut bs $ B.pack "STARTTLS\r\n" bsPut bs $ B.pack "STARTTLS\r\n"
getResponse bs >>= failIfNot bs 220 getResponse bs >>= failIfNot bs 220