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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
if not modules then modules = { } end modules ['util-soc'] = {
version = 1.001,
comment = "support for sockets / protocols",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local format = string.format
local smtp = require("socket.smtp")
local ltn12 = require("ltn12")
local mime = require("mime")
local mail = utilities.mail or { }
utilities.mail = mail
local report_mail = logs.reporter("mail")
function mail.send(specification)
local presets = specification.presets
if presets then
table.setmetatableindex(specification,presets)
end
local server = specification.server or ""
if not server then
report_mail("no server specified")
return false, "invalid server"
end
local to = specification.to or specification.recepient or ""
if to == "" then
report_mail("no recipient specified")
return false, "invalid recipient"
end
local from = specification.from or specification.sender or ""
if from == "" then
report_mail("no sender specified")
return false, "invalid sender"
end
local message = { }
local body = specification.body
if body then
message[#message+1] = {
body = body
}
end
local files = specification.files
if files then
for i=1,#files do
local filename = files[i]
local handle = io.open(filename, "rb")
if handle then
report_mail("attaching file %a",filename)
message[#message+1] = {
headers = {
["content-type"] = format('application/pdf; name="%s"',filename),
["content-disposition"] = format('attachment; filename="%s"',filename),
["content-description"] = format('file: %s',filename),
["content-transfer-encoding"] = "BASE64"
},
body = ltn12.source.chain(
ltn12.source.file(handle),
ltn12.filter.chain(mime.encode("base64"),mime.wrap())
)
}
else
report_mail("file %a not found",filename)
end
end
end
local user = specification.user
local password = specification.password
local result, detail = smtp.send {
server = specification.server,
port = specification.port,
user = user ~= "" and user or nil,
password = password ~= "" and password or nil,
from = from,
rcpt = to,
source = smtp.message {
headers = {
to = to,
from = from,
cc = specification.cc,
subject = specification.subject or "no subject",
},
body = message
},
}
if detail then
report_mail("error: %s",detail)
return false, detail
else
report_mail("message sent")
return true
end
end
|
