This commit is contained in:
Araq 2014-02-02 03:03:38 +01:00
commit 4b94aba6de

View file

@ -66,13 +66,15 @@ proc checkReply(smtp: var TSMTP, reply: string) =
if not line.string.startswith(reply): if not line.string.startswith(reply):
quitExcpt(smtp, "Expected " & reply & " reply, got: " & line.string) quitExcpt(smtp, "Expected " & reply & " reply, got: " & line.string)
const compiledWithSsl = defined(ssl)
proc connect*(address: string, port = 25, proc connect*(address: string, port = 25,
ssl = false, debug = false): TSMTP = ssl = false, debug = false): TSMTP =
## Establishes a connection with a SMTP server. ## Establishes a connection with a SMTP server.
## May fail with EInvalidReply or with a socket error. ## May fail with EInvalidReply or with a socket error.
result.sock = socket() result.sock = socket()
if ssl: if ssl:
when defined(ssl): when compiledWithSsl:
let ctx = newContext(verifyMode = CVerifyNone) let ctx = newContext(verifyMode = CVerifyNone)
ctx.wrapSocket(result.sock) ctx.wrapSocket(result.sock)
else: else: