7 print ( mesg ) |
7 print ( mesg ) |
8 end ) |
8 end ) |
9 |
9 |
10 sent = false |
10 sent = false |
11 |
11 |
12 server = 'jabber.kiev.ua' |
12 server, username = arg[1]:match ( '(.+)@(.-)' ) |
13 username = arg[1] |
13 password = arg[2] |
14 password = arg[2] |
14 recipient = arg[3] or arg[1] |
15 fingerprint = 'D5:F9:7B:6F:90:CC:E9:3C:36:AE:5E:3A:47:E4:C5:65' |
15 fingerprint = arg[4] or '01:23:45:67:89:ab:cd:ef:fe:dc:ba:98:76:54:32:10' |
16 |
16 |
17 --[[ |
17 --[[ |
18 -- What's goes on, pretty close to C api, |
18 -- What's goes on, pretty close to C api, |
19 -- but already some luxury... |
19 -- but already some luxury... |
20 you_need_your_own_context = true |
20 you_need_your_own_context = true |
46 function ( connection, success ) |
46 function ( connection, success ) |
47 if success then |
47 if success then |
48 print ( "Sending..." ) |
48 print ( "Sending..." ) |
49 |
49 |
50 connection:send ( |
50 connection:send ( |
51 lm.message.new( 'isbear@jabber.kiev.ua', 'message' ) |
51 lm.message.new( recipient, 'message' ) |
52 :child ( 'body', 'Hello, this is just a test' ) ) |
52 :child ( 'body', 'Hello, this is just a test' ) ) |
53 |
53 |
54 connection:send ( |
54 connection:send ( |
55 lm.message.new( 'isbear@jabber.kiev.ua/lair', 'iq', 'get' ) |
55 lm.message.new( recipient, 'iq', 'get' ) |
56 :child( 'query', '' ):attribute ( 'xmlns', 'jabber:iq:version' ), |
56 :child( 'query', '' ):attribute ( 'xmlns', 'jabber:iq:version' ), |
57 function ( connection, message ) |
57 function ( connection, message ) |
58 node = message:child ( 'query' ) |
58 node = message:child ( 'query' ) |
59 print ( 'Got response:' ) |
59 print ( 'Got response:' ) |
60 print ( ' name: ', node:child( 'name' ):value () ) |
60 print ( ' name: ', node:child( 'name' ):value () ) |
92 onconnect = |
92 onconnect = |
93 function ( connection ) |
93 function ( connection ) |
94 print ( 'connected' ) |
94 print ( 'connected' ) |
95 |
95 |
96 connection:send ( |
96 connection:send ( |
97 lm.message.create { mtype = "message", to = 'isbear@jabber.kiev.ua', |
97 lm.message.create { mtype = "message", to = recipient, |
98 body = { 'Hello, this is just a test' }, |
98 body = { 'Hello, this is just a test' }, |
99 } ) |
99 } ) |
100 print ( 'sent' ) |
100 print ( 'sent' ) |
101 |
101 |
102 connection:send ( |
102 connection:send ( |
103 lm.message.create { mtype = "iq-get", to = "isbear@jabber.kiev.ua/lair", |
103 lm.message.create { mtype = "iq-get", to = recipient, |
104 query = { xmlns = "jabber:iq:version" } |
104 query = { xmlns = "jabber:iq:version" } |
105 }, |
105 }, |
106 function ( connection, message ) |
106 function ( connection, message ) |
107 print ( 'received' ) |
107 print ( 'received' ) |
108 print ( 'Got response:' ) |
108 print ( 'Got response:' ) |