Comparison

mod_storage_ldap/ldap/vcard.lib.lua @ 809:1d51c5e38faa

Add LDAP plugin suite
author rob@hoelz.ro
date Sun, 02 Sep 2012 15:35:50 +0200
child 830:f160166612c2
comparison
equal deleted inserted replaced
808:ba2e207e1fb7 809:1d51c5e38faa
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;