Software /
code /
verse
Annotate
plugins/pubsub.lua @ 388:d963c8a5d89c
Import util.random from Prosody (using SHA-1)
author | Kim Alvefur <zash@zash.se> |
---|---|
date | Tue, 25 Aug 2015 16:01:52 +0200 |
parent | 348:34b878d58948 |
child | 395:e86144a4eaa1 |
rev | line source |
---|---|
250 | 1 local verse = require "verse"; |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
2 local jid_bare = require "util.jid".bare; |
250 | 3 |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
4 local t_insert = table.insert; |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
5 |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
6 local xmlns_pubsub = "http://jabber.org/protocol/pubsub"; |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
7 local xmlns_pubsub_owner = "http://jabber.org/protocol/pubsub#owner"; |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
8 local xmlns_pubsub_event = "http://jabber.org/protocol/pubsub#event"; |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
9 local xmlns_pubsub_errors = "http://jabber.org/protocol/pubsub#errors"; |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
10 |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
11 local pubsub = {}; |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
12 local pubsub_mt = { __index = pubsub }; |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
13 |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
14 function verse.plugins.pubsub(stream) |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
15 stream.pubsub = setmetatable({ stream = stream }, pubsub_mt); |
159
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
16 stream:hook("message", function (message) |
283
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
17 local m_from = message.attr.from; |
193
fa6e1e65cb3c
plugins.pubsub: Fix to use :childtags() for iterating through items in a pubsub notification (:matching_tags() was removed from Prosody)
Matthew Wild <mwild1@gmail.com>
parents:
165
diff
changeset
|
18 for pubsub_event in message:childtags("event", xmlns_pubsub_event) do |
159
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
19 local items = pubsub_event:get_child("items"); |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
20 if items then |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
21 local node = items.attr.node; |
193
fa6e1e65cb3c
plugins.pubsub: Fix to use :childtags() for iterating through items in a pubsub notification (:matching_tags() was removed from Prosody)
Matthew Wild <mwild1@gmail.com>
parents:
165
diff
changeset
|
22 for item in items:childtags("item") do |
159
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
23 stream:event("pubsub/event", { |
283
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
24 from = m_from; |
159
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
25 node = node; |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
26 item = item; |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
27 }); |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
28 end |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
29 end |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
30 end |
88cc513e81c8
plugins.pubsub: Fire pubsub/event on incoming pubsub notifications
Matthew Wild <mwild1@gmail.com>
parents:
154
diff
changeset
|
31 end); |
165
8c67ea868c06
plugins.pubsub: Return true to indicate success loading
Matthew Wild <mwild1@gmail.com>
parents:
159
diff
changeset
|
32 return true; |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
33 end |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
34 |
248
c4b55b0dc6ba
plugins.pubsub: Make the old functions wrap the new.
Kim Alvefur <zash@zash.se>
parents:
222
diff
changeset
|
35 -- COMPAT |
221
efb4f60ba36e
plugins.pubsub: implement node creation
Kim Alvefur <zash@zash.se>
parents:
193
diff
changeset
|
36 function pubsub:create(server, node, callback) |
265
2a2326a8f9e8
plugins.pubsub: Fix to use correct method in backwards-compatibility code
Matthew Wild <mwild1@gmail.com>
parents:
264
diff
changeset
|
37 return self:service(server):node(node):create(nil, callback); |
221
efb4f60ba36e
plugins.pubsub: implement node creation
Kim Alvefur <zash@zash.se>
parents:
193
diff
changeset
|
38 end |
efb4f60ba36e
plugins.pubsub: implement node creation
Kim Alvefur <zash@zash.se>
parents:
193
diff
changeset
|
39 |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
40 function pubsub:subscribe(server, node, jid, callback) |
265
2a2326a8f9e8
plugins.pubsub: Fix to use correct method in backwards-compatibility code
Matthew Wild <mwild1@gmail.com>
parents:
264
diff
changeset
|
41 return self:service(server):node(node):subscribe(jid, nil, callback); |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
42 end |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
43 |
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
44 function pubsub:publish(server, node, id, item, callback) |
265
2a2326a8f9e8
plugins.pubsub: Fix to use correct method in backwards-compatibility code
Matthew Wild <mwild1@gmail.com>
parents:
264
diff
changeset
|
45 return self:service(server):node(node):publish(id, nil, item, callback); |
154
a4dc96890729
plugins.pubsub, squishy: New pubsub plugin (basic)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
46 end |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
47 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
48 -------------------------------------------------------------------------- |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
49 ---------------------New and improved PubSub interface-------------------- |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
50 -------------------------------------------------------------------------- |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
51 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
52 local pubsub_service = {}; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
53 local pubsub_service_mt = { __index = pubsub_service }; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
54 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
55 -- TODO should the property be named 'jid' instead? |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
56 function pubsub:service(service) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
57 return setmetatable({ stream = self.stream, service = service }, pubsub_service_mt) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
58 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
59 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
60 -- Helper function for iq+pubsub tags |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
61 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
62 local function pubsub_iq(iq_type, to, ns, op, node, jid, item_id) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
63 local st = verse.iq{ type = iq_type or "get", to = to } |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
64 :tag("pubsub", { xmlns = ns or xmlns_pubsub }) -- ns would be ..#owner |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
65 if op then st:tag(op, { node = node, jid = jid }); end |
264 | 66 if item_id then st:tag("item", { id = item_id ~= true and item_id or nil }); end |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
67 return st; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
68 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
69 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
70 -- http://xmpp.org/extensions/xep-0060.html#entity-subscriptions |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
71 function pubsub_service:subscriptions(callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
72 self.stream:send_iq(pubsub_iq(nil, self.service, nil, "subscriptions") |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
73 , callback and function (result) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
74 if result.attr.type == "result" then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
75 local ps = result:get_child("pubsub", xmlns_pubsub); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
76 local subs = ps and ps:get_child("subscriptions"); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
77 local nodes = {}; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
78 if subs then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
79 for sub in subs:childtags("subscription") do |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
80 local node = self:node(sub.attr.node) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
81 node.subscription = sub; |
337
8dce8240a77c
plugins.pubsub: Collect the subscribed jid
Kim Alvefur <zash@zash.se>
parents:
333
diff
changeset
|
82 node.subscribed_jid = sub.attr.jid; |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
83 t_insert(nodes, node); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
84 -- FIXME Good enough? |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
85 -- Or how about: |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
86 -- nodes[node] = sub; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
87 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
88 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
89 callback(nodes); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
90 else |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
91 callback(false, result:get_error()); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
92 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
93 end or nil); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
94 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
95 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
96 -- http://xmpp.org/extensions/xep-0060.html#entity-affiliations |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
97 function pubsub_service:affiliations(callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
98 self.stream:send_iq(pubsub_iq(nil, self.service, nil, "affiliations") |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
99 , callback and function (result) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
100 if result.attr.type == "result" then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
101 local ps = result:get_child("pubsub", xmlns_pubsub); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
102 local affils = ps and ps:get_child("affiliations") or {}; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
103 local nodes = {}; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
104 if affils then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
105 for affil in affils:childtags("affiliation") do |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
106 local node = self:node(affil.attr.node) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
107 node.affiliation = affil; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
108 t_insert(nodes, node); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
109 -- nodes[node] = affil; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
110 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
111 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
112 callback(nodes); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
113 else |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
114 callback(false, result:get_error()); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
115 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
116 end or nil); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
117 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
118 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
119 function pubsub_service:nodes(callback) |
346
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
120 self.stream:disco_items(self.service, nil, function(items, ...) |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
121 if items then |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
122 for i=1,#items do |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
123 items[i] = self:node(items[i].node); |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
124 end |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
125 end |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
126 callback(items, ...) |
f7854dd16ed3
plugins.pubsub: Implement node discovery
Kim Alvefur <zash@zash.se>
parents:
338
diff
changeset
|
127 end); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
128 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
129 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
130 local pubsub_node = {}; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
131 local pubsub_node_mt = { __index = pubsub_node }; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
132 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
133 function pubsub_service:node(node) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
134 return setmetatable({ stream = self.stream, service = self.service, node = node }, pubsub_node_mt) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
135 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
136 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
137 function pubsub_mt:__call(service, node) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
138 local s = self:service(service); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
139 return node and s:node(node) or s; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
140 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
141 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
142 function pubsub_node:hook(callback, prio) |
347
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
143 self._hooks = self._hooks or setmetatable({}, { __mode = 'kv' }); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
144 local function hook(event) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
145 -- FIXME service == nil would mean anyone, |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
146 -- publishing would be go to your bare jid. |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
147 -- So if you're only interestied in your own |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
148 -- events, hook your own bare jid. |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
149 if (not event.service or event.from == self.service) and event.node == self.node then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
150 return callback(event) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
151 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
152 end |
347
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
153 self._hooks[callback] = hook; |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
154 self.stream:hook("pubsub/event", hook, prio); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
155 return hook; |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
156 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
157 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
158 function pubsub_node:unhook(callback) |
347
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
159 if callback then |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
160 local hook = self._hooks[callback]; |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
161 self.stream:unhook("pubsub/event", hook); |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
162 elseif self._hooks then |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
163 for hook in pairs(self._hooks) do |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
164 self.stream:unhook("pubsub/event", hook); |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
165 end |
48cc6cad9bd6
plugins.pubsub: Keep track of wrapped callbacks
Kim Alvefur <zash@zash.se>
parents:
346
diff
changeset
|
166 end |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
167 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
168 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
169 function pubsub_node:create(config, callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
170 if config ~= nil then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
171 error("Not implemented yet."); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
172 else |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
173 self.stream:send_iq(pubsub_iq("set", self.service, nil, "create", self.node), callback); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
174 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
175 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
176 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
177 -- <configure/> and <default/> rolled into one |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
178 function pubsub_node:configure(config, callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
179 if config ~= nil then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
180 error("Not implemented yet."); |
283
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
181 --[[ |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
182 if config == true then |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
183 self.stream:send_iq(pubsub_iq("get", self.service, nil, "configure", self.node) |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
184 , function(reply) |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
185 local form = reply:get_child("pubsub"):get_child("configure"):get_cild("x"); |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
186 local config = callback(require"util.dataforms".something(form)) |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
187 self.stream:send_iq(pubsub_iq("set", config, ...)) |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
188 end); |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
189 end |
39ce7535887c
plugins.pubsub: Add a local variable to save some table lookups
Kim Alvefur <zash@zash.se>
parents:
272
diff
changeset
|
190 --]] |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
191 -- fetch form and pass it to the callback |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
192 -- which would process it and pass it back |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
193 -- and then we submit it |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
194 -- elseif type(config) == "table" then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
195 -- it's a form or stanza that we submit |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
196 -- end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
197 -- this would be done for everything that needs a config |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
198 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
199 self.stream:send_iq(pubsub_iq("set", self.service, nil, config == nil and "default" or "configure", self.node), callback); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
200 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
201 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
202 function pubsub_node:publish(id, options, node, callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
203 if options ~= nil then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
204 error("Node configuration is not implemented yet."); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
205 end |
263
598e9f93de78
plugins.pubsub: Fix missing <item/> when publishing.
Kim Alvefur <zash@zash.se>
parents:
250
diff
changeset
|
206 self.stream:send_iq(pubsub_iq("set", self.service, nil, "publish", self.node, nil, id or true) |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
207 :add_child(node) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
208 , callback); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
209 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
210 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
211 function pubsub_node:subscribe(jid, options, callback) |
332
6ecf44918156
plugins.pubsub: Explicitly subscribe with our current full jid as default
Kim Alvefur <zash@zash.se>
parents:
283
diff
changeset
|
212 jid = jid or self.stream.jid; |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
213 if options ~= nil then |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
214 error("Subscription configuration is not implemented yet."); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
215 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
216 self.stream:send_iq(pubsub_iq("set", self.service, nil, "subscribe", self.node, jid, id) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
217 , callback); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
218 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
219 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
220 function pubsub_node:subscription(callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
221 error("Not implemented yet."); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
222 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
223 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
224 function pubsub_node:affiliation(callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
225 error("Not implemented yet."); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
226 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
227 |
272
e1833e9bd25b
plugins.pubsub: Implement unsubscribe.
Kim Alvefur <zash@zash.se>
parents:
265
diff
changeset
|
228 function pubsub_node:unsubscribe(jid, callback) |
338
957704bbe9a1
plugins.pubsub: If no jid given to unsubscribe with, default to what was subscribed to (if given) or the bound jid
Kim Alvefur <zash@zash.se>
parents:
337
diff
changeset
|
229 jid = jid or self.subscribed_jid or self.stream.jid; |
272
e1833e9bd25b
plugins.pubsub: Implement unsubscribe.
Kim Alvefur <zash@zash.se>
parents:
265
diff
changeset
|
230 self.stream:send_iq(pubsub_iq("set", self.service, nil, "unsubscribe", self.node, jid) |
e1833e9bd25b
plugins.pubsub: Implement unsubscribe.
Kim Alvefur <zash@zash.se>
parents:
265
diff
changeset
|
231 , callback); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
232 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
233 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
234 function pubsub_node:configure_subscription(options, callback) |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
235 error("Not implemented yet."); |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
236 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
237 |
348
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
238 function pubsub_node:items(full, callback) |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
239 if full then |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
240 self.stream:send_iq(pubsub_iq("get", self.service, nil, "items", self.node) |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
241 , callback); |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
242 else |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
243 self.stream:disco_items(self.service, self.node, callback); |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
244 end |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
245 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
246 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
247 function pubsub_node:item(id, callback) |
348
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
248 self.stream:send_iq(pubsub_iq("get", self.service, nil, "items", self.node, nil, id) |
34b878d58948
plugins.pubsub: Implement fetching of items
Kim Alvefur <zash@zash.se>
parents:
347
diff
changeset
|
249 , callback); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
250 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
251 |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
252 function pubsub_node:retract(id, callback) |
333
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
253 self.stream:send_iq(pubsub_iq("set", self.service, nil, "retract", self.node, nil, id) |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
254 , callback); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
255 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
256 |
333
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
257 function pubsub_node:purge(notify, callback) |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
258 assert(not notify, "Not implemented yet."); |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
259 self.stream:send_iq(pubsub_iq("set", self.service, xmlns_pubsub_owner, "purge", self.node) |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
260 , callback); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
261 end |
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
262 |
333
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
263 function pubsub_node:delete(redirect_uri, callback) |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
264 assert(not redirect_uri, "Not implemented yet."); |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
265 self.stream:send_iq(pubsub_iq("set", self.service, xmlns_pubsub_owner, "delete", self.node) |
36e9d5a2ae79
plugins.pubsub: Implement retract, purge and delete operations
Kim Alvefur <zash@zash.se>
parents:
332
diff
changeset
|
266 , callback); |
222
3c257afd68e7
plugins.pubsub: New, OOP-ish, PubSub interface. Beware of stubs.
Kim Alvefur <zash@zash.se>
parents:
221
diff
changeset
|
267 end |