webmcp
view framework/env/encode/mime/mail.lua @ 357:ffdd32b48296
Bugfix in request.get_param_strings{...} which caused an empty table to be returned
| author | jbe |
|---|---|
| date | Thu Mar 26 20:09:13 2015 +0100 (2015-03-26) |
| parents | 9fdfb27f8e67 |
| children | b7596f5158d4 |
line source
1 local un = encode.mime.unstructured_header_line
2 local mbl = encode.mime.mailbox_list_header_line
4 local function encode_container(parts, container)
5 if container.multipart then
6 local boundary
7 boundary = "BOUNDARY--" .. multirand.string(
8 24,
9 "123456789BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz"
10 )
11 parts[#parts+1] = "Content-Type: "
12 parts[#parts+1] = "multipart/"
13 parts[#parts+1] = container.multipart
14 parts[#parts+1] = "; boundary="
15 parts[#parts+1] = boundary
16 parts[#parts+1] = "\r\n\r\nMIME multipart\r\n" -- last \r\n optional
17 for idx, sub_container in ipairs(container) do
18 parts[#parts+1] = "\r\n--"
19 parts[#parts+1] = boundary
20 parts[#parts+1] = "\r\n"
21 encode_container(parts, sub_container)
22 end
23 parts[#parts+1] = "\r\n--"
24 parts[#parts+1] = boundary
25 parts[#parts+1] = "--\r\n"
26 else
27 parts[#parts+1] = "Content-Type: "
28 parts[#parts+1] = container.content_type or "text/plain"
29 parts[#parts+1] = "\r\n"
30 if container.content_id then
31 parts[#parts+1] = "Content-ID: <"
32 parts[#parts+1] = container.content_id
33 parts[#parts+1] = ">\r\n"
34 end
35 if container.attachment_filename then
36 parts[#parts+1] = "Content-Disposition: attachment; filename="
37 parts[#parts+1] = encode.mime.atom_token(
38 container.attachment_filename
39 )
40 parts[#parts+1] = "\r\n"
41 end
42 if container.binary then
43 parts[#parts+1] = "Content-Transfer-Encoding: base64\r\n\r\n"
44 parts[#parts+1] = encode.mime.base64(container.content)
45 else
46 parts[#parts+1] =
47 "Content-Transfer-Encoding: quoted-printable\r\n\r\n"
48 parts[#parts+1] =
49 encode.mime.quoted_printable_text_content(container.content)
50 end
51 end
52 end
54 function encode.mime.mail(args)
55 local parts = {}
56 parts[#parts+1] = mbl("From", args.from)
57 parts[#parts+1] = mbl("Sender", args.sender)
58 parts[#parts+1] = mbl("Reply-To", args.reply_to)
59 parts[#parts+1] = mbl("To", args.to)
60 parts[#parts+1] = mbl("Cc", args.cc)
61 parts[#parts+1] = mbl("Bcc", args.bcc)
62 parts[#parts+1] = un("Subject", args.subject)
63 parts[#parts+1] = "MIME-Version: 1.0\r\n"
64 encode_container(parts, args)
65 return table.concat(parts)
66 end