|
809
|
1 -- vim:sts=4 sw=4 |
|
|
2 |
|
|
3 -- Prosody IM |
|
|
4 -- Copyright (C) 2008-2010 Matthew Wild |
|
|
5 -- Copyright (C) 2008-2010 Waqas Hussain |
|
|
6 -- Copyright (C) 2012 Rob Hoelz |
|
|
7 -- |
|
|
8 -- This project is MIT/X11 licensed. Please see the |
|
|
9 -- COPYING file in the source package for more information. |
|
|
10 -- |
|
|
11 |
|
|
12 local st = require 'util.stanza'; |
|
|
13 |
|
|
14 local VCARD_NS = 'vcard-temp'; |
|
|
15 |
|
|
16 local builder_methods = {}; |
|
|
17 |
|
|
18 function builder_methods:addvalue(key, value) |
|
|
19 self.vcard:tag(key):text(value):up(); |
|
|
20 end |
|
|
21 |
|
|
22 function builder_methods:addregularfield(tagname, format_section) |
|
|
23 local record = self.record; |
|
|
24 local format = self.format; |
|
|
25 local vcard = self.vcard; |
|
|
26 |
|
|
27 if not format[format_section] then |
|
|
28 return; |
|
|
29 end |
|
|
30 |
|
|
31 local tag = vcard:tag(tagname); |
|
|
32 |
|
|
33 for k, v in pairs(format[format_section]) do |
|
|
34 tag:tag(string.upper(k)):text(record[v]):up(); |
|
|
35 end |
|
|
36 |
|
|
37 vcard:up(); |
|
|
38 end |
|
|
39 |
|
|
40 function builder_methods:addmultisectionedfield(tagname, format_section) |
|
|
41 local record = self.record; |
|
|
42 local format = self.format; |
|
|
43 local vcard = self.vcard; |
|
|
44 |
|
|
45 if not format[format_section] then |
|
|
46 return; |
|
|
47 end |
|
|
48 |
|
|
49 for k, v in pairs(format[format_section]) do |
|
|
50 local tag = vcard:tag(tagname); |
|
|
51 |
|
|
52 if type(k) == 'string' then |
|
|
53 tag:tag(string.upper(k)):up(); |
|
|
54 end |
|
|
55 |
|
|
56 for k2, v2 in pairs(v) do |
|
|
57 if type(v2) == 'boolean' then |
|
|
58 tag:tag(string.upper(k2)):up(); |
|
|
59 else |
|
|
60 tag:tag(string.upper(k2)):text(record[v2]):up(); |
|
|
61 end |
|
|
62 end |
|
|
63 |
|
|
64 vcard:up(); |
|
|
65 end |
|
|
66 end |
|
|
67 |
|
|
68 function builder_methods:build() |
|
|
69 local record = self.record; |
|
|
70 local format = self.format; |
|
|
71 |
|
|
72 self:addvalue( 'VERSION', '2.0'); |
|
|
73 self:addvalue( 'FN', record[format.displayname]); |
|
|
74 self:addregularfield( 'N', 'name'); |
|
|
75 self:addvalue( 'NICKNAME', record[format.nickname]); |
|
|
76 self:addregularfield( 'PHOTO', 'photo'); |
|
|
77 self:addvalue( 'BDAY', record[format.birthday]); |
|
|
78 self:addmultisectionedfield('ADR', 'address'); |
|
|
79 self:addvalue( 'LABEL', nil); -- we don't support LABEL...yet. |
|
|
80 self:addmultisectionedfield('TEL', 'telephone'); |
|
|
81 self:addmultisectionedfield('EMAIL', 'email'); |
|
|
82 self:addvalue( 'JABBERID', record.jid); |
|
|
83 self:addvalue( 'MAILER', record[format.mailer]); |
|
|
84 self:addvalue( 'TZ', record[format.timezone]); |
|
|
85 self:addregularfield( 'GEO', 'geo'); |
|
|
86 self:addvalue( 'TITLE', record[format.title]); |
|
|
87 self:addvalue( 'ROLE', record[format.role]); |
|
|
88 self:addregularfield( 'LOGO', 'logo'); |
|
|
89 self:addvalue( 'AGENT', nil); -- we don't support AGENT...yet. |
|
|
90 self:addregularfield( 'ORG', 'org'); |
|
|
91 self:addvalue( 'CATEGORIES', nil); -- we don't support CATEGORIES...yet. |
|
|
92 self:addvalue( 'NOTE', record[format.note]); |
|
|
93 self:addvalue( 'PRODID', nil); -- we don't support PRODID...yet. |
|
|
94 self:addvalue( 'REV', record[format.rev]); |
|
|
95 self:addvalue( 'SORT-STRING', record[format.sortstring]); |
|
|
96 self:addregularfield( 'SOUND', 'sound'); |
|
|
97 self:addvalue( 'UID', record[format.uid]); |
|
|
98 self:addvalue( 'URL', record[format.url]); |
|
|
99 self:addvalue( 'CLASS', nil); -- we don't support CLASS...yet. |
|
|
100 self:addregularfield( 'KEY', 'key'); |
|
|
101 self:addvalue( 'DESC', record[format.description]); |
|
|
102 |
|
|
103 return self.vcard; |
|
|
104 end |
|
|
105 |
|
|
106 local function new_builder(params) |
|
|
107 local vcard_tag = st.stanza('vCard', { xmlns = VCARD_NS }); |
|
|
108 |
|
|
109 local object = { |
|
|
110 vcard = vcard_tag, |
|
|
111 __index = builder_methods, |
|
|
112 }; |
|
|
113 |
|
|
114 for k, v in pairs(params) do |
|
|
115 object[k] = v; |
|
|
116 end |
|
|
117 |
|
|
118 setmetatable(object, object); |
|
|
119 |
|
|
120 return object; |
|
|
121 end |
|
|
122 |
|
|
123 local _M = {}; |
|
|
124 |
|
|
125 function _M.create(params) |
|
|
126 local builder = new_builder(params); |
|
|
127 |
|
|
128 return builder:build(); |
|
|
129 end |
|
|
130 |
|
|
131 return _M; |
