1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
--[[
Copyright (c) 2014 Edwin Mons and Isode Limited.
All rights reserved.
See the COPYING file for more information.
--]]
--[[
Component example.
This script connects to an XMPP server as a component, and listens to
messages received.
The following environment variables are used:
* SLUIFT_COMP_DOMAIN: Component domain name
* SLUIFT_COMP_SECRET: Component secret
* SLUIFT_COMP_HOST: XMPP server host name
* SLUIFT_COMP_PORT: XMPP server component port
* SLUIFT_JID: Recipient of presence and initial message
* SLUIFT_DEBUG: Sets whether debugging should be turned on
--]]
require "sluift"
sluift.debug = os.getenv("SLUIFT_DEBUG") or false
config = {
domain = os.getenv('SLUIFT_COMP_DOMAIN'),
secret = os.getenv('SLUIFT_COMP_SECRET'),
host = os.getenv('SLUIFT_COMP_HOST'),
port = os.getenv('SLUIFT_COMP_PORT'),
jid = os.getenv('SLUIFT_JID')
}
-- Create the component, and connect
comp = sluift.new_component(config.domain, config.secret);
comp:connect(config)
-- Send initial presence and message
-- Assumes the remote client already has this component user on his roster
comp:send_presence{from='root@' .. config.domain, to=config.jid}
comp:send_message{from='root@' .. config.domain, to=config.jid, body='Component active'}
-- Listen for messages, and reply if one is received
for message in comp:messages() do
print("Received a message from " .. message.from)
comp:send_message{to=message.from, from=message.to, body='I received: ' .. message['body']}
-- Send out a ping to demonstrate we can do more than just send messages
comp:get{to=message.from, query='<ping xmlns="urn:xmpp:ping"/>'}
end
comp:disconnect()
|
