Added a close function to the ssl module.

This commit is contained in:
dom96 2010-10-27 19:06:25 +01:00
commit 8733886e53
3 changed files with 13 additions and 0 deletions

View file

@ -125,6 +125,7 @@ proc sendmail*(smtp: TSMTP, fromaddr: string,
## Sends `msg` from `fromaddr` to `toaddr`.
## Messages may be formed using ``createMessage`` by converting the
## TMessage into a string.
## This function sends the QUIT command when finished.
smtp.debugSend("MAIL FROM:<" & fromaddr & ">\c\L")
smtp.checkReply("250")
@ -141,6 +142,10 @@ proc sendmail*(smtp: TSMTP, fromaddr: string,
# quit
smtp.debugSend("QUIT\c\L")
if not smtp.ssl:
smtp.sock.close()
else:
smtp.sslSock.close()
proc createMessage*(mSubject, mBody: string, mTo, mCc: seq[string],
otherHeaders: openarray[tuple[name, value: string]]): TMessage =