author | Myhailo Danylenko <isbear@ukrpost.net> |
Mon, 27 Apr 2009 12:51:53 +0300 | |
changeset 71 | eb6edac301ac |
parent 70 | e43e386c8a33 |
permissions | -rw-r--r-- |
68 | 1 |
|
2 |
-- IN-BAND REGISTRATION (XEP-0077) |
|
3 |
||
4 |
-- library |
|
5 |
||
6 |
local iq = require 'lm.iq' |
|
7 |
local x_data = require 'lm.x_data' |
|
8 |
local form_field = require 'lm.form_field' |
|
9 |
||
10 |
-- |
|
11 |
||
12 |
local F = { } |
|
13 |
local M = { } |
|
14 |
M.__index = M |
|
15 |
||
16 |
function F.new ( args ) |
|
17 |
local form = { |
|
18 |
xmlns = 'jabber:iq:register', |
|
19 |
ftype = args.type or 'form', |
|
20 |
registered = args.registered, |
|
21 |
-- XXX title |
|
22 |
instructions = args.instructions, |
|
23 |
x_data = args.x_data, |
|
24 |
f = { }, |
|
25 |
} |
|
26 |
setmetatable ( form, M ) |
|
27 |
return form |
|
28 |
end |
|
29 |
||
30 |
function F.parse ( query ) |
|
31 |
local instructions = query:child ( 'instructions' ) |
|
32 |
if instructions then |
|
33 |
instructions = instructions:value () |
|
34 |
end |
|
35 |
||
36 |
local registered |
|
37 |
if query:child ( 'registered' ) then |
|
38 |
registered = true |
|
39 |
end |
|
40 |
||
41 |
local x = query:child ( 'x' ) |
|
42 |
if x and x:attribute ( 'xmlns' ) == 'jabber:x:data' then |
|
43 |
return F.new { type = 'form', registered = registered, instructions = instructions, x_data = x_data.parse ( x ) } |
|
44 |
end |
|
45 |
||
46 |
local form = F.new { type = 'form', registered = registered, instructions = instructions } |
|
47 |
||
48 |
local field = query:child () |
|
49 |
while field do |
|
50 |
local name = field:name () |
|
51 |
if name ~= 'instructions' and name ~= 'registered' then |
|
52 |
form:add ( name, { type = 'text-single', value = field:value () or '' } ) |
|
53 |
end |
|
54 |
field = field:next () |
|
55 |
end |
|
56 |
||
57 |
return form |
|
58 |
end |
|
59 |
||
60 |
function M.type ( form ) |
|
61 |
return form.ftype |
|
62 |
end |
|
63 |
||
64 |
function M.desc ( form ) |
|
65 |
if form.x_data then |
|
66 |
return form.x_data:desc () |
|
67 |
else |
|
68 |
return form.title, form.instructions |
|
69 |
end |
|
70 |
end |
|
71 |
||
72 |
function M.format ( form, root, format_as ) |
|
73 |
local ft = format_as or form:type () |
|
74 |
||
75 |
if form.x_data then |
|
76 |
root.query = form.x_data:format ( { xmlns = 'jabber:iq:register' }, ft ) |
|
77 |
else |
|
78 |
root.query = { xmlns = 'jabber:iq:register' } |
|
79 |
for index, field in form:fields () do |
|
71
eb6edac301ac
Fixes to tune and register, change fifo perm
Myhailo Danylenko <isbear@ukrpost.net>
parents:
70
diff
changeset
|
80 |
root.query[field:name ()] = { field:value () } |
68 | 81 |
end |
82 |
end |
|
83 |
||
84 |
if ft == 'form' then |
|
85 |
local title, instructions = form:desc () |
|
86 |
if instructions then |
|
87 |
root.query.instructions = { instructions } |
|
88 |
end |
|
89 |
if form.registered then |
|
90 |
root.query.registered = { } |
|
91 |
end |
|
92 |
end |
|
93 |
||
94 |
return root |
|
95 |
end |
|
96 |
||
97 |
function M.fields ( form ) |
|
98 |
if form.x_data then |
|
99 |
return form.x_data:fields () |
|
100 |
else |
|
101 |
return ipairs ( form.f ) |
|
102 |
end |
|
103 |
end |
|
104 |
||
105 |
function M.add ( form, name, fld ) |
|
106 |
if form.x_data then |
|
107 |
return form.x_data:add ( name, fld ) |
|
108 |
else |
|
109 |
fld.var = name |
|
110 |
fld.index = #form.f + 1 |
|
70 | 111 |
if not fld.type then |
112 |
fld.type = 'text-single' |
|
113 |
end |
|
68 | 114 |
local obj = form_field.new ( fld ) |
115 |
table.insert ( form.f, obj ) |
|
116 |
form.f[name] = obj |
|
117 |
return obj |
|
118 |
end |
|
119 |
end |
|
120 |
||
121 |
function M.field ( form, name ) |
|
122 |
if form.x_data then |
|
123 |
return form.x_data:field ( name ) |
|
124 |
else |
|
125 |
return form.f[name] |
|
126 |
end |
|
127 |
end |
|
128 |
||
129 |
function F.register ( conn, to, success, fail ) |
|
130 |
iq.send ( conn, to, 'get', |
|
131 |
{ |
|
132 |
query = { xmlns = 'jabber:iq:register' }, |
|
133 |
}, |
|
134 |
function ( mess ) |
|
135 |
local query = mess:child ( 'query' ) |
|
136 |
if query and query:attribute ( 'xmlns' ) == 'jabber:iq:register' then |
|
137 |
success ( F.parse ( query ), |
|
138 |
function ( form, success, fail ) |
|
71
eb6edac301ac
Fixes to tune and register, change fifo perm
Myhailo Danylenko <isbear@ukrpost.net>
parents:
70
diff
changeset
|
139 |
iq.send ( conn, to, 'set', form:format ( { }, 'submit' ), success , fail ) |
68 | 140 |
end, |
141 |
function ( form, success, fail ) |
|
142 |
success () |
|
143 |
end ) |
|
144 |
end |
|
145 |
end, fail ) |
|
146 |
end |
|
147 |
||
148 |
function F.unregister ( conn, to, success, fail ) |
|
149 |
iq.send ( conn, to, 'set', |
|
150 |
{ |
|
151 |
query = { xmlns = 'jabber:iq:register', |
|
152 |
remove = { }, |
|
153 |
}, |
|
154 |
}, |
|
155 |
function ( mess ) |
|
156 |
success () |
|
157 |
end, |
|
158 |
function ( mesg, mess ) |
|
159 |
local query = mess:child ( 'query' ) |
|
160 |
if query and query:attribute ( 'xmlns' ) == 'jabber:iq:register' then |
|
161 |
success ( F.parse ( query ), |
|
162 |
function ( form, success, fail ) |
|
71
eb6edac301ac
Fixes to tune and register, change fifo perm
Myhailo Danylenko <isbear@ukrpost.net>
parents:
70
diff
changeset
|
163 |
iq.send ( conn, to, 'set', form:format ( { }, 'submit' ), success, fail ) |
68 | 164 |
end, |
165 |
function ( form, success, fail ) |
|
166 |
success () |
|
167 |
end ) |
|
168 |
else |
|
169 |
fail ( mesg ) |
|
170 |
end |
|
171 |
end ) |
|
172 |
end |
|
173 |
||
174 |
return F |
|
175 |
||
176 |
-- vim: se ts=4: -- |