Mercurial > prosody-modules
annotate mod_email_pass/vcard.lib.lua @ 1934:6c569c481ffa
mod_auth_custom_http: Add README
author | Kim Alvefur <zash@zash.se> |
---|---|
date | Sat, 24 Oct 2015 14:01:40 +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 }; |