|
3
|
1 |
|
|
|
2 |
require "libs.shcmd" |
|
|
3 |
|
|
|
4 |
-- The caching idea is borrowed from MattJ's riddim code, |
|
|
5 |
-- and the function parse_xeps() as well. |
|
|
6 |
|
|
|
7 |
local xeplisturl = "curl http://xmpp.org/extensions/xeps.xml" |
|
|
8 |
|
|
|
9 |
local xeps = {} |
|
|
10 |
|
|
|
11 |
-- parse_xep() from Matthew Wild (aka MattJ) |
|
|
12 |
local function parse_xeps(t) |
|
|
13 |
if not t or t == "" then return nil end |
|
|
14 |
local currxep = {} |
|
|
15 |
for b in string.gmatch(t,"<xep>(.-)</xep>") do |
|
|
16 |
for k,v in string.gmatch(b,"<(%w+)>(.-)</%1>") do |
|
|
17 |
currxep[k] = v |
|
|
18 |
end |
|
|
19 |
xeps[currxep.number] = { } |
|
|
20 |
for k, v in pairs(currxep) do xeps[currxep.number][k] = v end |
|
|
21 |
end |
|
|
22 |
return true |
|
|
23 |
end |
|
|
24 |
|
|
|
25 |
local function fetch_xeps () |
|
|
26 |
local now = os.time() |
|
|
27 |
if os.difftime(now, xeps_updated_at) < 43200 then return end |
|
|
28 |
-- Let's get some fresh data |
|
|
29 |
local xepdata = shcmd(xeplisturl) |
|
|
30 |
xeps_updated_at = now |
|
|
31 |
parse_xeps(xepdata) |
|
|
32 |
end |
|
|
33 |
|
|
11
|
34 |
-- Deeply inspired by MattJ's riddim bot |
|
|
35 |
local function lookup_xep (xepstr) |
|
|
36 |
if (xepstr) then |
|
|
37 |
xepstr = xepstr:gsub("[%s%?%.%!]+$", "") |
|
|
38 |
local n = xepstr:upper():match("^XEP[%-%s]?(%d+)$") |
|
|
39 |
if n then xepstr = n end |
|
|
40 |
end |
|
3
|
41 |
-- Check that xepnum is a valid number |
|
11
|
42 |
xepnum = tonumber(xepstr) |
|
|
43 |
if xepnum and (xepnum <= 0 or xepnum > 9999) then |
|
|
44 |
return nil, "What XEP?" |
|
|
45 |
end |
|
|
46 |
if not xepnum and not xepstr:match("^[%w%s%-_]+$") then |
|
|
47 |
return nil, "What XEP? Please use a simple keyword..." |
|
|
48 |
end |
|
|
49 |
|
|
3
|
50 |
-- Download XEP list |
|
|
51 |
fetch_xeps() |
|
11
|
52 |
|
|
|
53 |
-- #1 The argument is a XEP number |
|
|
54 |
if xepnum then |
|
|
55 |
xepnum = tostring(xepnum) |
|
|
56 |
-- Expand to full 4 char number |
|
|
57 |
xepnum = string.rep("0", 4-xepnum:len())..xepnum |
|
|
58 |
local xep = xeps[tostring(xepnum)] |
|
|
59 |
if not xep then return nil, "Sorry, XEP-"..xepnum.." not found" end |
|
|
60 |
return "XEP-"..xep.number.." is \""..xep.name.."\"\n".. |
|
|
61 |
-- xep.type..", "..xep.status..", last updated "..xep.updated.."\n".. |
|
|
62 |
"URL: <http://xmpp.org/extensions/xep-"..xep.number..".html>" |
|
|
63 |
end |
|
|
64 |
|
|
|
65 |
-- #2 The argument is a keyword |
|
|
66 |
local r = "" |
|
|
67 |
xepstr = xepstr:lower() |
|
|
68 |
for n, xep in pairs(xeps) do |
|
|
69 |
if xep.name:lower():find(xepstr) then |
|
|
70 |
r = r.."XEP-"..xep.number..": "..xep.name.."\n" |
|
|
71 |
end |
|
|
72 |
end |
|
|
73 |
r = r:gsub("\n$", "") |
|
|
74 |
if r ~= "" then return r; end |
|
|
75 |
return nil, "Sorry, not matching XEP found" |
|
3
|
76 |
end |
|
|
77 |
|
|
|
78 |
mcbot_register_command("xep", lookup_xep) |