Sat, 03 Dec 2011 16:27:36 +0000
verse.plugins.groupchat: Make last commit (7802a048) more concise
227
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
1 | -- Copyright (C) 2011 Kim Alvefur |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
2 | -- |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
3 | -- This project is MIT/X11 licensed. Please see the |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
4 | -- COPYING file in the source package for more information. |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
5 | -- |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
6 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
7 | -- TODO |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
8 | -- function lua_to_xep54() |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
9 | -- function lua_to_text() |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
10 | -- replace text_to_xep54() and xep54_to_text() with intermediate lua? |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
11 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
12 | local st = verse or require "util.stanza"; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
13 | local t_insert, t_concat = table.insert, table.concat; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
14 | local type = type; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
15 | local next, pairs, ipairs = next, pairs, ipairs; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
16 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
17 | module "vcard" |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
18 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
19 | local vCard_dtd; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
20 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
21 | local function vCard_esc(s) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
22 | return s:gsub("[,:;\\]", "\\%1"):gsub("\n","\\n"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
23 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
24 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
25 | local function vCard_unesc(s) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
26 | return s:gsub("\\?[\\nt:;,]", { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
27 | ["\\\\"] = "\\", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
28 | ["\\n"] = "\n", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
29 | ["\\t"] = "\t", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
30 | ["\\:"] = ":", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
31 | ["\\;"] = ";", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
32 | ["\\,"] = ",", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
33 | [":"] = "\29", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
34 | [";"] = "\30", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
35 | [","] = "\31", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
36 | }); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
37 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
38 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
39 | function text_to_xep54(data) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
40 | --[[ TODO |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
41 | return lua_to_xep54(text_to_lua(data)); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
42 | --]] |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
43 | data = data |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
44 | :gsub("\r\n","\n") |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
45 | :gsub("\n ", "") |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
46 | :gsub("\n\n+","\n"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
47 | local c = st.stanza("xCard", { xmlns = "vcard-temp" }); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
48 | for line in data:gmatch("[^\n]+") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
49 | local line = vCard_unesc(line); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
50 | local name, params, value = line:match("^([-%a]+)(\30?[^\29]*)\29(.*)$"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
51 | value = value:gsub("\29",":"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
52 | line = nil; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
53 | if params and #params > 0 then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
54 | local _params = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
55 | for k,isval,v in params:gmatch("\30([^=]+)(=?)([^\30]*)") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
56 | local _vt = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
57 | for _p in v:gmatch("[^\31]*") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
58 | _vt[#_vt]=_p |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
59 | _vt[_p]=true; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
60 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
61 | _params[k]=isval == "" or _vt; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
62 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
63 | params = _params; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
64 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
65 | if name == "BEGIN" and value == "VCARD" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
66 | c:tag("vCard", { xmlns = "vcard-temp" }); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
67 | elseif name == "END" and value == "VCARD" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
68 | c:up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
69 | elseif vCard_dtd[name] then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
70 | local dtd = vCard_dtd[name]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
71 | c:tag(name); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
72 | if dtd.types then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
73 | for _, t in ipairs(dtd.types) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
74 | if ( params.TYPE and params.TYPE[t] == true) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
75 | or params[t] == true then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
76 | c:tag(t):up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
77 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
78 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
79 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
80 | if dtd.props then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
81 | for _, p in ipairs(dtd.props) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
82 | if params[p] then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
83 | if params[p] == true then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
84 | c:tag(p):up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
85 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
86 | for _, prop in ipairs(params[p]) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
87 | c:tag(p):text(prop):up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
88 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
89 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
90 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
91 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
92 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
93 | if dtd == "text" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
94 | c:text(value); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
95 | elseif dtd.value then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
96 | c:tag(dtd.value):text(value):up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
97 | elseif dtd.values then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
98 | local values = dtd.values; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
99 | local i = 1; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
100 | local value = "\30"..value; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
101 | for p in value:gmatch("\30([^\30]*)") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
102 | c:tag(values[i]):text(p):up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
103 | if i < #values then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
104 | i = i + 1; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
105 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
106 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
107 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
108 | c:up(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
109 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
110 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
111 | return c; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
112 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
113 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
114 | function text_to_lua(data) --table |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
115 | data = data |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
116 | :gsub("\r\n","\n") |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
117 | :gsub("\n ", "") |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
118 | :gsub("\n\n+","\n"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
119 | local vCards = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
120 | local c; -- current item |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
121 | for line in data:gmatch("[^\n]+") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
122 | local line = vCard_unesc(line); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
123 | local name, params, value = line:match("^([-%a]+)(\30?[^\29]*)\29(.*)$"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
124 | value = value:gsub("\29",":"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
125 | line = nil; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
126 | if #params > 0 then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
127 | local _params = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
128 | for k,isval,v in params:gmatch("\30([^=]+)(=?)([^\30]*)") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
129 | local _vt = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
130 | for _p in v:gmatch("[^\31]*") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
131 | _vt[#_vt]=_p |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
132 | _vt[_p]=true; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
133 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
134 | _params[k]=isval == "" or _vt; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
135 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
136 | params = _params; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
137 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
138 | if name == "BEGIN" and value == "VCARD" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
139 | c = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
140 | vCards[#vCards+1] = c; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
141 | elseif name == "END" and value == "VCARD" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
142 | c = nil; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
143 | elseif vCard_dtd[name] then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
144 | local dtd = vCard_dtd[name]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
145 | local p = { name = name }; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
146 | c[#c+1]=p; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
147 | --c[name]=p; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
148 | local up = c; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
149 | c = p; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
150 | if dtd.types then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
151 | for _, t in ipairs(dtd.types) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
152 | if ( params.TYPE and params.TYPE[t] == true) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
153 | or params[t] == true then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
154 | c.TYPE=t; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
155 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
156 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
157 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
158 | if dtd.props then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
159 | for _, p in ipairs(dtd.props) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
160 | if params[p] then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
161 | if params[p] == true then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
162 | c[p]=true; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
163 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
164 | for _, prop in ipairs(params[p]) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
165 | c[p]=prop; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
166 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
167 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
168 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
169 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
170 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
171 | if dtd == "text" or dtd.value then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
172 | t_insert(c, value); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
173 | elseif dtd.values then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
174 | local value = "\30"..value; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
175 | for p in value:gmatch("\30([^\30]*)") do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
176 | t_insert(c, p); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
177 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
178 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
179 | c = up; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
180 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
181 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
182 | return vCards; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
183 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
184 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
185 | local function vCard_prop(item) -- single item staza object to text line |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
186 | local prop_name = item.name; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
187 | local prop_def = vCard_dtd[prop_name]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
188 | if not prop_def then return nil end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
189 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
190 | local value, params = "", {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
191 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
192 | if prop_def == "text" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
193 | value = item:get_text(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
194 | elseif type(prop_def) == "table" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
195 | if prop_def.value then --single item |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
196 | value = item:get_child_text(prop_def.value) or ""; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
197 | elseif prop_def.values then --array |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
198 | local value_names = prop_def.values; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
199 | value = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
200 | if value_names.behaviour == "repeat-last" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
201 | for i=1,#item do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
202 | t_insert(value, item[i]:get_text() or ""); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
203 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
204 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
205 | for i=1,#value_names do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
206 | t_insert(value, item:get_child_text(value_names[i]) or ""); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
207 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
208 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
209 | elseif prop_def.names then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
210 | local names = prop_def.names; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
211 | for i=1,#names do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
212 | if item:get_child(names[i]) then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
213 | value = names[i]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
214 | break; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
215 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
216 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
217 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
218 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
219 | if prop_def.props_verbatim then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
220 | for k,v in pairs(prop_def.props_verbatim) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
221 | params[k] = v; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
222 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
223 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
224 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
225 | if prop_def.types then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
226 | local types = prop_def.types; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
227 | params.TYPE = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
228 | for i=1,#types do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
229 | if item:get_child(types[i]) then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
230 | t_insert(params.TYPE, types[i]:lower()); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
231 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
232 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
233 | if #params.TYPE == 0 then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
234 | params.TYPE = nil; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
235 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
236 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
237 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
238 | if prop_def.props then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
239 | local props = prop_def.props; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
240 | for i=1,#props do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
241 | local prop = props[i] |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
242 | local p = item:get_child_text(prop); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
243 | if p then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
244 | params[prop] = params[prop] or {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
245 | t_insert(params[prop], p); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
246 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
247 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
248 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
249 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
250 | return nil |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
251 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
252 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
253 | if type(value) == "table" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
254 | for i=1,#value do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
255 | value[i]=vCard_esc(value[i]); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
256 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
257 | value = t_concat(value, ";"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
258 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
259 | value = vCard_esc(value); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
260 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
261 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
262 | if next(params) then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
263 | local sparams = ""; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
264 | for k,v in pairs(params) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
265 | sparams = sparams .. (";%s=%s"):format(k, t_concat(v,",")); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
266 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
267 | params = sparams; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
268 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
269 | params = ""; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
270 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
271 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
272 | return ("%s%s:%s"):format(item.name, params, value) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
273 | :gsub(("."):rep(75), "%0\r\n "):gsub("\r\n $",""); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
274 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
275 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
276 | function xep54_to_text(vCard) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
277 | --[[ TODO |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
278 | return lua_to_text(xep54_to_lua(vCard)) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
279 | --]] |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
280 | local r = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
281 | t_insert(r, "BEGIN:VCARD"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
282 | for i = 1,#vCard do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
283 | local item = vCard[i]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
284 | if item.name then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
285 | local s = vCard_prop(item); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
286 | if s then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
287 | t_insert(r, s); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
288 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
289 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
290 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
291 | t_insert(r, "END:VCARD"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
292 | return t_concat(r, "\r\n"); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
293 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
294 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
295 | local function xep54_item_to_lua(item) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
296 | local prop_name = item.name; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
297 | local prop_def = vCard_dtd[prop_name]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
298 | if not prop_def then return nil end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
299 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
300 | local prop = { name = prop_name }; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
301 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
302 | if prop_def == "text" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
303 | prop[1] = item:get_text(); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
304 | elseif type(prop_def) == "table" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
305 | if prop_def.value then --single item |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
306 | prop[1] = item:get_child_text(prop_def.value) or ""; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
307 | elseif prop_def.values then --array |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
308 | local value_names = prop_def.values; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
309 | if value_names.behaviour == "repeat-last" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
310 | for i=1,#item do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
311 | t_insert(prop, item[i]:get_text() or ""); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
312 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
313 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
314 | for i=1,#value_names do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
315 | t_insert(prop, item:get_child_text(value_names[i]) or ""); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
316 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
317 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
318 | elseif prop_def.names then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
319 | local names = prop_def.names; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
320 | for i=1,#names do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
321 | if item:get_child(names[i]) then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
322 | prop[1] = names[i]; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
323 | break; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
324 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
325 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
326 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
327 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
328 | if prop_def.props_verbatim then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
329 | for k,v in pairs(prop_def.props_verbatim) do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
330 | prop[k] = v; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
331 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
332 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
333 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
334 | if prop_def.types then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
335 | local types = prop_def.types; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
336 | prop.TYPE = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
337 | for i=1,#types do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
338 | if item:get_child(types[i]) then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
339 | t_insert(prop.TYPE, types[i]:lower()); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
340 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
341 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
342 | if #prop.TYPE == 0 then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
343 | prop.TYPE = nil; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
344 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
345 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
346 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
347 | -- A key-value pair, within a key-value pair? |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
348 | if prop_def.props then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
349 | local params = prop_def.props; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
350 | for i=1,#params do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
351 | local name = params[i] |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
352 | local data = item:get_child_text(prop_name); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
353 | if prop_text then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
354 | prop[prop_name] = prop[prop_name] or {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
355 | t_insert(prop[prop_name], prop_text); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
356 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
357 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
358 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
359 | else |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
360 | return nil |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
361 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
362 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
363 | return prop; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
364 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
365 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
366 | local function xep54_vCard_to_lua(vCard) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
367 | local tags = vCard.tags; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
368 | local t = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
369 | for i=1,#tags do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
370 | t[i] = xep54_item_to_lua(tags[i]); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
371 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
372 | return t |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
373 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
374 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
375 | function xep54_to_lua(vCard) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
376 | if vCard.attr.xmlns ~= "vcard-temp" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
377 | return false |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
378 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
379 | if vCard.name == "xCard" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
380 | local t = {}; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
381 | local vCards = vCard.tags; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
382 | for i=1,#vCards do |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
383 | local ti = xep54_vCard_to_lua(vCards[i]); |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
384 | t[i] = ti; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
385 | --t[ti.name] = ti; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
386 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
387 | return t |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
388 | elseif vCard.name == "vCard" then |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
389 | return xep54_vCard_to_lua(vCard) |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
390 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
391 | end |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
392 | |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
393 | -- This was adapted from http://xmpp.org/extensions/xep-0054.html#dtd |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
394 | vCard_dtd = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
395 | VERSION = "text", --MUST be 3.0, so parsing is redundant |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
396 | FN = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
397 | N = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
398 | values = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
399 | "FAMILY", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
400 | "GIVEN", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
401 | "MIDDLE", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
402 | "PREFIX", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
403 | "SUFFIX", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
404 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
405 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
406 | NICKNAME = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
407 | PHOTO = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
408 | props_verbatim = { ENCODING = { "b" } }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
409 | props = { "TYPE" }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
410 | value = "BINVAL", --{ "EXTVAL", }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
411 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
412 | BDAY = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
413 | ADR = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
414 | types = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
415 | "HOME", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
416 | "WORK", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
417 | "POSTAL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
418 | "PARCEL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
419 | "DOM", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
420 | "INTL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
421 | "PREF", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
422 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
423 | values = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
424 | "POBOX", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
425 | "EXTADD", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
426 | "STREET", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
427 | "LOCALITY", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
428 | "REGION", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
429 | "PCODE", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
430 | "CTRY", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
431 | } |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
432 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
433 | LABEL = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
434 | types = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
435 | "HOME", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
436 | "WORK", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
437 | "POSTAL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
438 | "PARCEL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
439 | "DOM", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
440 | "INTL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
441 | "PREF", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
442 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
443 | value = "LINE", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
444 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
445 | TEL = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
446 | types = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
447 | "HOME", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
448 | "WORK", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
449 | "VOICE", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
450 | "FAX", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
451 | "PAGER", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
452 | "MSG", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
453 | "CELL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
454 | "VIDEO", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
455 | "BBS", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
456 | "MODEM", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
457 | "ISDN", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
458 | "PCS", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
459 | "PREF", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
460 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
461 | value = "NUMBER", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
462 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
463 | EMAIL = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
464 | types = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
465 | "HOME", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
466 | "WORK", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
467 | "INTERNET", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
468 | "PREF", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
469 | "X400", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
470 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
471 | value = "USERID", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
472 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
473 | JABBERID = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
474 | MAILER = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
475 | TZ = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
476 | GEO = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
477 | values = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
478 | "LAT", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
479 | "LON", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
480 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
481 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
482 | TITLE = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
483 | ROLE = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
484 | LOGO = "copy of PHOTO", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
485 | AGENT = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
486 | ORG = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
487 | values = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
488 | behaviour = "repeat-last", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
489 | "ORGNAME", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
490 | "ORGUNIT", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
491 | } |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
492 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
493 | CATEGORIES = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
494 | values = "KEYWORD", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
495 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
496 | NOTE = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
497 | PRODID = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
498 | REV = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
499 | SORTSTRING = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
500 | SOUND = "copy of PHOTO", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
501 | UID = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
502 | URL = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
503 | CLASS = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
504 | names = { -- The item.name is the value if it's one of these. |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
505 | "PUBLIC", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
506 | "PRIVATE", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
507 | "CONFIDENTIAL", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
508 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
509 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
510 | KEY = { |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
511 | props = { "TYPE" }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
512 | value = "CRED", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
513 | }, |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
514 | DESC = "text", |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
515 | }; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
516 | vCard_dtd.LOGO = vCard_dtd.PHOTO; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
517 | vCard_dtd.SOUND = vCard_dtd.PHOTO; |
31019cb93d59
util.vcard: Add util for converting vCard3 to/from XEP 54
Kim Alvefur <zash@zash.se>
parents:
diff
changeset
|
518 | return _M |