Discussion :

[sarfraz]

Bonjour,

J'ai déjà effectué des recherches sur le net, mais ce n'est pas un sujet trés populaire.
Comme indiqué dans le titre, je voudrais envoyer un mail via gmail.
Cependant le service mail de google n'accepte que des connection via ssl.

Ok donc première tentative je me connecte, je balance un STARTTLS et je je me mets en ssl. Deuxieme tentative, je me connecte directement en ssl.
Pour l'instant j'en suis nul part...

Mes codes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
import Network
import Network.TLS
import Network.TLS.Extra
import System.IO
import Text.Printf
import Crypto.Random
import qualified Data.ByteString as B
import Control.Monad (forever)
 
serv :: String
serv="smtp.gmail.com"
 
port :: String
port="465"
 
main=test2
 
params=TLSParams {pConnectVersion=SSL3
                 , pCiphers=ciphersuite_all
                 }
 
test2=do g <- newGenIO :: IO SystemRandom
         handle <- connectionClient serv port params g
         forever $ (recvData handle) >>= B.putStrLn

Grosso modo j'essaie de me co directement en ssl.
Mais ça ne marce pas. Quelqu'un aurait une solution, une piste, quoi que ce soit!!!!?

[sarfraz]

Jour,

Bon, j'ai un peu avancé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
import Network
import Network.TLS
import Network.TLS.Extra
import System.IO
import Text.Printf
import Control.Monad (forever)
import Control.Concurrent (threadDelay)
import qualified Data.ByteString.Char8 as B
import Crypto.Random
 
serv :: String
serv = "smtp.gmail.com"
port :: Int
port   = 25 --that has to chage, I think
 
main :: IO ()
main = test1
 
write :: Handle -> String -> IO ()
write h s  = do
    hPrintf h "%s\r\n" s
    printf    "> %s\n" s
 
listen :: Handle -> IO ()
listen h = forever $ hGetLine h >>= putStrLn
 
printSock :: Handle -> String -> IO ()
printSock h s = do write h s
                   hGetLine h >>= putStrLn
                   threadDelay 25
 
params :: TLSParams
params=defaultParams {pConnectVersion=TLS12
                     ,pAllowedVersions=[TLS10, TLS11, TLS12]
                     ,pCiphers=ciphersuite_all}
 
test1 = do h <- connectTo serv (PortNumber (fromIntegral port))
           hSetBuffering h NoBuffering
           printSock h "EHLO"
           printSock h "STARTTLS"
           --google waits for tls handshake
           --the problem is from here
           g <- newGenIO :: IO SystemRandom
           tlsH <- client params g h
           handshake tlsH --the handshake is failling

Mon probleme cependant est toujours le meme. arriver a negocier cet echange TLS.
Franchement, je suis étonné par le manque de reponse que je reçois. Je veux dire jusqu'a maintenant les rares fois ou j'avais un probleme la communauté était hyper rapide.
Mais la j'ai l'impression que c'est un probleme qui ne concerne personne (juste un constat). Que ça soit ici ou sur #haskell ou SO d'ailleurs.

Bref si quelqu'un a des pistes sur google et tls...
J'ai regardé le code du client msmtp mais a vrai dire j'ai pas vraiment un niveau suffisant.

[Yo Eight]

La réponse est simple, votre problème n'est pas propre à Haskell mais au protocole de communication SSL. Avez vous regardez comment cela était implémenté dans d'autres langages que vous maîtrisés ?