Mercurial > prosody-modules
annotate mod_email_pass/vcard.lib.lua @ 6299:5cf5ee23b361
mod_voipms: New Module to send and receive SMS/MMS via VoIP.ms APIs.
diff --git a/mod_voipms/README.md b/mod_voipms/README.md
new file mode 100644
--- /dev/null
+++ b/mod_voipms/README.md
@@ -0,0 +1,51 @@
+---
+labels:
+- 'Stage-Alpha'
+- 'Type-Web'
+summary: Send and receive SMS/MMS via VoIP.ms APIs.
+rockspec:
+ build:
+ modules:
+ mod_voipms: mod_voipms.lua
+...
+
+Introduction
+============
+
+This is a Prosody module to map JIDs to DIDs on VoIP.ms and support sending/receiving SMS/MMS.
+
+Configuration
+=============
+
+| option | type | default |
+|-----------------------|--------|---------|
+| voipms\_api\_username | string | nil |
+| voipms\_api\_password | string | nil |
+| voipms\_query\_key | string | nil |
+| voipms\_jid\_map | table | nil |
+```
+VirtualHost "sms.example.com"
+modules_enabled = {
+ "voipms";
+}
+voipms_api_username = john@example.com -- E-mail registered with VoIP.ms
+voipms_api_password = abcd1234 -- API password configured in VoIP.ms
+voipms_query_key = some_query_key -- query param 'key' part of your URL callback
+voipms_jid_map = {
+ ["your_jid@your_domain.com"] = "+1234567890"
+}
+```
+
+HTTP
+====
+
+The module is served on Prosody's default HTTP ports at the path /voipms. More details on configuring HTTP modules in Prosody can be found in the HTTP documentation.
+
+VoIP.ms Webhook URL
+===================
+
+This module receives the VoIP.ms Webhook URL (POST) at the /voipms endpoint. It uses the sendSMS/sendMMS GET methods against the VoIP.ms APIs. This is an example webhook to use in VoIP.ms:
+
+```
+https://sms.example.com/voipms?key=some_query_key
+```
diff --git a/mod_voipms/mod_voipms.lua b/mod_voipms/mod_voipms.lua
new file mode 100644
--- /dev/null
+++ b/mod_voipms/mod_voipms.lua
@@ -0,0 +1,166 @@
+local http = require "net.http"
+local json = require "util.json"
+local st = require "util.stanza"
+
+local api_username = module:get_option_string("voipms_api_username")
+local api_password = module:get_option_string("voipms_api_password")
+local query_key = module:get_option("voipms_query_key")
+local jid_map = module:get_option("voipms_jid_map") or {}
+local rest_endpoint = "https://voip.ms/api/v1/rest.php"
+
+if not api_username or not api_password or not query_key then
+ module:log("error", "Missing required config values (voipms_api_username, voipms_api_password, voipms_query_key)")
+ return
+end
+
+module:depends("http")
+
+local function normalize_number(num)
+ if not num then return nil end
+ if num:sub(1, 1) ~= "+" then
+ return "+1" .. num
+ end
+ return num
+end
+
+local function extract_query_key(event)
+ return (event.request.url.query or ""):match("key=([^&]+)")
+end
+
+module:provides("http", {
+ route = {
+ ["POST"] = function(event)
+ local req = event.request
+ local body = req.body or ""
+
+ if extract_query_key(event) ~= query_key then
+ module:log("warn", "Unauthorized webhook: missing or invalid key")
+ return { status_code = 403 }
+ end
+
+ local json_payload, err = json.decode(body)
+ if not json_payload then
+ module:log("warn", "Invalid JSON: %s", err or "unknown error")
+ return { status_code = 400 }
+ end
+
+ local payload = json_payload.data and json_payload.data.payload
+ if not payload then
+ module:log("warn", "Missing payload in JSON")
+ return { status_code = 400 }
+ end
+
+ local from = payload.from and payload.from.phone_number
+ local to_list = payload.to or {}
+ local to = #to_list > 0 and to_list[1].phone_number or nil
+
+ if not from or not to then
+ module:log("warn", "Missing phone numbers (from: %s, to: %s)", tostring(from), tostring(to))
+ return { status_code = 400 }
+ end
+
+ local normalized_to = normalize_number(to)
+ local target_jid = nil
+
+ for jid, did in pairs(jid_map) do
+ if normalize_number(did) == normalized_to then
+ target_jid = jid
+ break
+ end
+ end
+
+ if not target_jid then
+ module:log("warn", "No JID mapping for DID %s", normalized_to)
+ return { status_code = 404 }
+ end
+
+ local normalized_from = normalize_number(from)
+ local message_text = payload.text or ""
+
+ local message = st.message({
+ from = normalized_from .. "@" .. module.host,
+ to = target_jid,
+ type = "chat"
+ }):tag("body"):text(message_text):up()
+
+ if payload.media and #payload.media > 0 then
+ for _, media_item in ipairs(payload.media) do
+ if media_item.url then
+ message_text = message_text .. "\n" .. media_item.url
+ message:tag("x", { xmlns = "jabber:x:oob" })
+ :tag("url"):text(media_item.url):up():up()
+ end
+ end
+ end
+
+ module:send(message)
+ module:log("info", "Delivered SMS from %s to %s", normalized_from, target_jid)
+
+ return { status_code = 204 }
+ end
+ }
+})
+
+module:hook("message/bare", function(event)
+ local stanza = event.stanza
+ if stanza.attr.type ~= "chat" then return end
+
+ local from_jid = stanza.attr.from
+ local to_jid = stanza.attr.to
+ local body = stanza:get_child_text("body")
+ if not body or body == "" then return end
+
+ local from_number = jid_map[from_jid]
+ if not from_number then
+ module:log("warn", "No DID mapping for JID %s", from_jid)
+ return
+ end
+
+ local to_number = to_jid:match("^([^@]+)")
+ if not to_number then
+ module:log("warn", "Malformed JID in message.to: %s", to_jid)
+ return
+ end
+
+ to_number = normalize_number(to_number)
+
+ local media_urls = {}
+ for line in body:gmatch("[^\r\n]+") do
+ if line:match("^https?://") then
+ table.insert(media_urls, line)
+ end
+ end
+
+ local method = (#media_urls > 0) and "sendMMS" or "sendSMS"
+ local query = {
+ api_username = api_username,
+ api_password = api_password,
+ method = method,
+ did = from_number,
+ dst = to_number,
+ message = body
+ }
+
+ if method == "sendMMS" then
+ for i, url in ipairs(media_urls) do
+ query["media_url[" .. (i - 1) .. "]"] = url
+ end
+ end
+
+ local query_str = http.formencode(query)
+
+ http.request(rest_endpoint .. "?" .. query_str, {
+ method = "GET";
+ }, function(response_body, code)
+ if code == 200 then
+ local resp, err = json.decode(response_body)
+ if not resp or resp.status ~= "success" then
+ module:log("error", "Failed to send %s: %s", method, err or (resp and resp.status) or "unknown")
+ else
+ module:log("info", "Sent %s from %s to %s", method, from_number, to_number)
+ end
+ else
+ module:log("error", "HTTP error sending %s: code %s", method, tostring(code))
+ end
+ end)
+end)
| author | Chaz <menel@snikket.de> |
|---|---|
| date | Mon, 21 Jul 2025 23:57:37 +0200 |
| parents | 5608dd296d5f |
| children |
| rev | line source |
|---|---|
|
1346
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
1 -- Copyright (C) 2011-2012 Kim Alvefur |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
2 -- |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
3 -- This project is MIT/X11 licensed. Please see the |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
4 -- COPYING file in the source package for more information. |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
5 -- |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
6 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
7 -- TODO |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
8 -- Fix folding. |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
9 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
10 local st = require "util.stanza"; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
11 local t_insert, t_concat = table.insert, table.concat; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
12 local type = type; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
13 local next, pairs, ipairs = next, pairs, ipairs; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
14 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
15 local from_text, to_text, from_xep54, to_xep54; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
16 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
17 local line_sep = "\n"; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
18 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
19 local vCard_dtd; -- See end of file |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
20 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
21 local function fold_line() |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
22 error "Not implemented" --TODO |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
23 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
24 local function unfold_line() |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
25 error "Not implemented" |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
26 -- gsub("\r?\n[ \t]([^\r\n])", "%1"); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
27 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
28 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
29 local function vCard_esc(s) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
30 return s:gsub("[,:;\\]", "\\%1"):gsub("\n","\\n"); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
31 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
32 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
33 local function vCard_unesc(s) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
34 return s:gsub("\\?[\\nt:;,]", { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
35 ["\\\\"] = "\\", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
36 ["\\n"] = "\n", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
37 ["\\r"] = "\r", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
38 ["\\t"] = "\t", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
39 ["\\:"] = ":", -- FIXME Shouldn't need to espace : in values, just params |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
40 ["\\;"] = ";", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
41 ["\\,"] = ",", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
42 [":"] = "\29", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
43 [";"] = "\30", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
44 [","] = "\31", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
45 }); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
46 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
47 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
48 local function item_to_xep54(item) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
49 local t = st.stanza(item.name, { xmlns = "vcard-temp" }); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
50 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
51 local prop_def = vCard_dtd[item.name]; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
52 if prop_def == "text" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
53 t:text(item[1]); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
54 elseif type(prop_def) == "table" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
55 if prop_def.types and item.TYPE then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
56 if type(item.TYPE) == "table" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
57 for _,v in pairs(prop_def.types) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
58 for _,typ in pairs(item.TYPE) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
59 if typ:upper() == v then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
60 t:tag(v):up(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
61 break; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
62 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
63 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
64 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
65 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
66 t:tag(item.TYPE:upper()):up(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
67 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
68 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
69 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
70 if prop_def.props then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
71 for _,v in pairs(prop_def.props) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
72 if item[v] then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
73 t:tag(v):up(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
74 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
75 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
76 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
77 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
78 if prop_def.value then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
79 t:tag(prop_def.value):text(item[1]):up(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
80 elseif prop_def.values then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
81 local prop_def_values = prop_def.values; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
82 local repeat_last = prop_def_values.behaviour == "repeat-last" and prop_def_values[#prop_def_values]; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
83 for i=1,#item do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
84 t:tag(prop_def.values[i] or repeat_last):text(item[i]):up(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
85 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
86 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
87 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
88 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
89 return t; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
90 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
91 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
92 local function vcard_to_xep54(vCard) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
93 local t = st.stanza("vCard", { xmlns = "vcard-temp" }); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
94 for i=1,#vCard do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
95 t:add_child(item_to_xep54(vCard[i])); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
96 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
97 return t; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
98 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
99 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
100 function to_xep54(vCards) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
101 if not vCards[1] or vCards[1].name then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
102 return vcard_to_xep54(vCards) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
103 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
104 local t = st.stanza("xCard", { xmlns = "vcard-temp" }); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
105 for i=1,#vCards do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
106 t:add_child(vcard_to_xep54(vCards[i])); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
107 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
108 return t; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
109 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
110 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
111 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
112 function from_text(data) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
113 data = data -- unfold and remove empty lines |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
114 :gsub("\r\n","\n") |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
115 :gsub("\n ", "") |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
116 :gsub("\n\n+","\n"); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
117 local vCards = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
118 local c; -- current item |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
119 for line in data:gmatch("[^\n]+") do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
120 local line = vCard_unesc(line); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
121 local name, params, value = line:match("^([-%a]+)(\30?[^\29]*)\29(.*)$"); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
122 value = value:gsub("\29",":"); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
123 if #params > 0 then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
124 local _params = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
125 for k,isval,v in params:gmatch("\30([^=]+)(=?)([^\30]*)") do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
126 k = k:upper(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
127 local _vt = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
128 for _p in v:gmatch("[^\31]+") do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
129 _vt[#_vt+1]=_p |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
130 _vt[_p]=true; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
131 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
132 if isval == "=" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
133 _params[k]=_vt; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
134 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
135 _params[k]=true; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
136 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
137 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
138 params = _params; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
139 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
140 if name == "BEGIN" and value == "VCARD" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
141 c = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
142 vCards[#vCards+1] = c; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
143 elseif name == "END" and value == "VCARD" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
144 c = nil; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
145 elseif vCard_dtd[name] then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
146 local dtd = vCard_dtd[name]; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
147 local p = { name = name }; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
148 c[#c+1]=p; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
149 --c[name]=p; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
150 local up = c; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
151 c = p; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
152 if dtd.types then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
153 for _, t in ipairs(dtd.types) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
154 local t = t:lower(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
155 if ( params.TYPE and params.TYPE[t] == true) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
156 or params[t] == true then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
157 c.TYPE=t; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
158 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
159 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
160 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
161 if dtd.props then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
162 for _, p in ipairs(dtd.props) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
163 if params[p] then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
164 if params[p] == true then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
165 c[p]=true; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
166 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
167 for _, prop in ipairs(params[p]) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
168 c[p]=prop; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
169 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
170 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
171 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
172 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
173 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
174 if dtd == "text" or dtd.value then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
175 t_insert(c, value); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
176 elseif dtd.values then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
177 local value = "\30"..value; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
178 for p in value:gmatch("\30([^\30]*)") do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
179 t_insert(c, p); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
180 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
181 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
182 c = up; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
183 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
184 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
185 return vCards; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
186 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
187 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
188 local function item_to_text(item) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
189 local value = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
190 for i=1,#item do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
191 value[i] = vCard_esc(item[i]); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
192 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
193 value = t_concat(value, ";"); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
194 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
195 local params = ""; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
196 for k,v in pairs(item) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
197 if type(k) == "string" and k ~= "name" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
198 params = params .. (";%s=%s"):format(k, type(v) == "table" and t_concat(v,",") or v); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
199 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
200 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
201 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
202 return ("%s%s:%s"):format(item.name, params, value) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
203 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
204 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
205 local function vcard_to_text(vcard) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
206 local t={}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
207 t_insert(t, "BEGIN:VCARD") |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
208 for i=1,#vcard do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
209 t_insert(t, item_to_text(vcard[i])); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
210 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
211 t_insert(t, "END:VCARD") |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
212 return t_concat(t, line_sep); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
213 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
214 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
215 function to_text(vCards) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
216 if vCards[1] and vCards[1].name then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
217 return vcard_to_text(vCards) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
218 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
219 local t = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
220 for i=1,#vCards do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
221 t[i]=vcard_to_text(vCards[i]); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
222 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
223 return t_concat(t, line_sep); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
224 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
225 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
226 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
227 local function from_xep54_item(item) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
228 local prop_name = item.name; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
229 local prop_def = vCard_dtd[prop_name]; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
230 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
231 local prop = { name = prop_name }; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
232 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
233 if prop_def == "text" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
234 prop[1] = item:get_text(); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
235 elseif type(prop_def) == "table" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
236 if prop_def.value then --single item |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
237 prop[1] = item:get_child_text(prop_def.value) or ""; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
238 elseif prop_def.values then --array |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
239 local value_names = prop_def.values; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
240 if value_names.behaviour == "repeat-last" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
241 for i=1,#item.tags do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
242 t_insert(prop, item.tags[i]:get_text() or ""); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
243 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
244 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
245 for i=1,#value_names do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
246 t_insert(prop, item:get_child_text(value_names[i]) or ""); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
247 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
248 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
249 elseif prop_def.names then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
250 local names = prop_def.names; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
251 for i=1,#names do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
252 if item:get_child(names[i]) then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
253 prop[1] = names[i]; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
254 break; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
255 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
256 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
257 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
258 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
259 if prop_def.props_verbatim then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
260 for k,v in pairs(prop_def.props_verbatim) do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
261 prop[k] = v; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
262 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
263 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
264 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
265 if prop_def.types then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
266 local types = prop_def.types; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
267 prop.TYPE = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
268 for i=1,#types do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
269 if item:get_child(types[i]) then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
270 t_insert(prop.TYPE, types[i]:lower()); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
271 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
272 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
273 if #prop.TYPE == 0 then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
274 prop.TYPE = nil; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
275 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
276 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
277 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
278 -- A key-value pair, within a key-value pair? |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
279 if prop_def.props then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
280 local params = prop_def.props; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
281 for i=1,#params do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
282 local name = params[i] |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
283 local data = item:get_child_text(name); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
284 if data then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
285 prop[name] = prop[name] or {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
286 t_insert(prop[name], data); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
287 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
288 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
289 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
290 else |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
291 return nil |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
292 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
293 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
294 return prop; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
295 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
296 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
297 local function from_xep54_vCard(vCard) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
298 local tags = vCard.tags; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
299 local t = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
300 for i=1,#tags do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
301 t_insert(t, from_xep54_item(tags[i])); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
302 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
303 return t |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
304 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
305 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
306 function from_xep54(vCard) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
307 if vCard.attr.xmlns ~= "vcard-temp" then |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
308 return nil, "wrong-xmlns"; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
309 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
310 if vCard.name == "xCard" then -- A collection of vCards |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
311 local t = {}; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
312 local vCards = vCard.tags; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
313 for i=1,#vCards do |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
314 t[i] = from_xep54_vCard(vCards[i]); |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
315 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
316 return t |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
317 elseif vCard.name == "vCard" then -- A single vCard |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
318 return from_xep54_vCard(vCard) |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
319 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
320 end |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
321 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
322 -- This was adapted from http://xmpp.org/extensions/xep-0054.html#dtd |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
323 vCard_dtd = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
324 VERSION = "text", --MUST be 3.0, so parsing is redundant |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
325 FN = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
326 N = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
327 values = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
328 "FAMILY", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
329 "GIVEN", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
330 "MIDDLE", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
331 "PREFIX", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
332 "SUFFIX", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
333 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
334 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
335 NICKNAME = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
336 PHOTO = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
337 props_verbatim = { ENCODING = { "b" } }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
338 props = { "TYPE" }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
339 value = "BINVAL", --{ "EXTVAL", }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
340 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
341 BDAY = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
342 ADR = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
343 types = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
344 "HOME", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
345 "WORK", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
346 "POSTAL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
347 "PARCEL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
348 "DOM", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
349 "INTL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
350 "PREF", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
351 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
352 values = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
353 "POBOX", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
354 "EXTADD", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
355 "STREET", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
356 "LOCALITY", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
357 "REGION", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
358 "PCODE", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
359 "CTRY", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
360 } |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
361 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
362 LABEL = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
363 types = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
364 "HOME", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
365 "WORK", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
366 "POSTAL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
367 "PARCEL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
368 "DOM", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
369 "INTL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
370 "PREF", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
371 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
372 value = "LINE", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
373 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
374 TEL = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
375 types = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
376 "HOME", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
377 "WORK", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
378 "VOICE", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
379 "FAX", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
380 "PAGER", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
381 "MSG", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
382 "CELL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
383 "VIDEO", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
384 "BBS", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
385 "MODEM", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
386 "ISDN", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
387 "PCS", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
388 "PREF", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
389 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
390 value = "NUMBER", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
391 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
392 EMAIL = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
393 types = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
394 "HOME", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
395 "WORK", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
396 "INTERNET", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
397 "PREF", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
398 "X400", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
399 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
400 value = "USERID", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
401 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
402 JABBERID = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
403 MAILER = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
404 TZ = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
405 GEO = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
406 values = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
407 "LAT", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
408 "LON", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
409 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
410 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
411 TITLE = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
412 ROLE = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
413 LOGO = "copy of PHOTO", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
414 AGENT = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
415 ORG = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
416 values = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
417 behaviour = "repeat-last", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
418 "ORGNAME", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
419 "ORGUNIT", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
420 } |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
421 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
422 CATEGORIES = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
423 values = "KEYWORD", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
424 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
425 NOTE = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
426 PRODID = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
427 REV = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
428 SORTSTRING = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
429 SOUND = "copy of PHOTO", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
430 UID = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
431 URL = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
432 CLASS = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
433 names = { -- The item.name is the value if it's one of these. |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
434 "PUBLIC", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
435 "PRIVATE", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
436 "CONFIDENTIAL", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
437 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
438 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
439 KEY = { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
440 props = { "TYPE" }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
441 value = "CRED", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
442 }, |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
443 DESC = "text", |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
444 }; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
445 vCard_dtd.LOGO = vCard_dtd.PHOTO; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
446 vCard_dtd.SOUND = vCard_dtd.PHOTO; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
447 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
448 return { |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
449 from_text = from_text; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
450 to_text = to_text; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
451 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
452 from_xep54 = from_xep54; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
453 to_xep54 = to_xep54; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
454 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
455 -- COMPAT: |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
456 lua_to_text = to_text; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
457 lua_to_xep54 = to_xep54; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
458 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
459 text_to_lua = from_text; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
460 text_to_xep54 = function (...) return to_xep54(from_text(...)); end; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
461 |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
462 xep54_to_lua = from_xep54; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
463 xep54_to_text = function (...) return to_text(from_xep54(...)) end; |
|
5608dd296d5f
Adding vcard.lib.lua that is necessary for the module
Luis G.F <luisgf@gmail.com>
parents:
diff
changeset
|
464 }; |
