From 7f8faffa242bebb4e1f21fdcc98bb9c30bef18d9 Mon Sep 17 00:00:00 2001 From: "Daniel P. Wright" Date: Mon, 26 Aug 2013 13:51:29 +0900 Subject: [PATCH] Pass hostname to SMTP HELO command --- src/Network/HaskellNet/SMTP/SSL.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Network/HaskellNet/SMTP/SSL.hs b/src/Network/HaskellNet/SMTP/SSL.hs index f3197a6..54694a1 100644 --- a/src/Network/HaskellNet/SMTP/SSL.hs +++ b/src/Network/HaskellNet/SMTP/SSL.hs @@ -10,6 +10,7 @@ import Network.HaskellNet.SMTP import Network.HaskellNet.SSL import Network.HaskellNet.BSStream +import Network.BSD (getHostName) import qualified Data.ByteString.Char8 as B @@ -35,7 +36,8 @@ connectSTARTTLS hostname port = do greeting <- bsGetLine bs 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 bsPut bs $ B.pack "STARTTLS\r\n" getResponse bs >>= failIfNot bs 220