add support for cc and bcc to smtp
parent
5e247325b2
commit
4bbf2de249
|
@ -26,6 +26,8 @@ LOG: log-smtp-connection NOTICE ( addrspec -- )
|
||||||
TUPLE: email
|
TUPLE: email
|
||||||
{ from string }
|
{ from string }
|
||||||
{ to array }
|
{ to array }
|
||||||
|
{ cc array }
|
||||||
|
{ bcc array }
|
||||||
{ subject string }
|
{ subject string }
|
||||||
{ body string } ;
|
{ body string } ;
|
||||||
|
|
||||||
|
@ -154,9 +156,12 @@ ERROR: invalid-header-string string ;
|
||||||
|
|
||||||
: email>headers ( email -- hashtable )
|
: email>headers ( email -- hashtable )
|
||||||
[
|
[
|
||||||
[ from>> "From" set ]
|
{
|
||||||
[ to>> ", " join "To" set ]
|
[ from>> "From" set ]
|
||||||
[ subject>> "Subject" set ] tri
|
[ to>> ", " join "To" set ]
|
||||||
|
[ cc>> ", " join "Cc" set ]
|
||||||
|
[ subject>> "Subject" set ]
|
||||||
|
} cleave
|
||||||
now timestamp>rfc822 "Date" set
|
now timestamp>rfc822 "Date" set
|
||||||
message-id "Message-Id" set
|
message-id "Message-Id" set
|
||||||
] { } make-assoc ;
|
] { } make-assoc ;
|
||||||
|
@ -166,6 +171,8 @@ ERROR: invalid-header-string string ;
|
||||||
helo get-ok
|
helo get-ok
|
||||||
dup from>> extract-email mail-from get-ok
|
dup from>> extract-email mail-from get-ok
|
||||||
dup to>> [ extract-email rcpt-to get-ok ] each
|
dup to>> [ extract-email rcpt-to get-ok ] each
|
||||||
|
dup cc>> [ extract-email rcpt-to get-ok ] each
|
||||||
|
dup bcc>> [ extract-email rcpt-to get-ok ] each
|
||||||
data get-ok
|
data get-ok
|
||||||
swap write-headers
|
swap write-headers
|
||||||
crlf
|
crlf
|
||||||
|
|
Loading…
Reference in New Issue