|
66
|
1 |
|
|
|
2 |
local lm = require 'lm' |
|
|
3 |
local disco = require 'disco' |
|
|
4 |
|
|
|
5 |
main.command ( 'disco', |
|
|
6 |
function ( args ) |
|
|
7 |
local who |
|
|
8 |
local conn = lm.connection.bless ( main.connection () ) |
|
|
9 |
if args.t then |
|
|
10 |
who = args.t |
|
|
11 |
else |
|
|
12 |
who = main.full_jid () |
|
|
13 |
end |
|
|
14 |
if args[1] == 'items' then |
|
|
15 |
local node = args[2] |
|
|
16 |
disco.items ( conn, who, |
|
|
17 |
function ( items ) |
|
|
18 |
local text = '' |
|
|
19 |
for index, item in ipairs ( items ) do |
|
|
20 |
text = text .. ("\n [%s (%s)] %s"):format ( item.jid or '', item.node or '', item.name or '' ) |
|
|
21 |
end |
|
|
22 |
if text ~= '' then |
|
|
23 |
main.print_info ( who, ("Items service discovery result for %s (%s):%s"):format ( who, node or '', text ) ) |
|
|
24 |
else |
|
|
25 |
main.print_info ( who, ("No items in discovery result for %s (%s)"):format ( who, node or '' ) ) |
|
|
26 |
end |
|
|
27 |
end, |
|
|
28 |
function ( mesg ) |
|
|
29 |
main.print_info ( who, ("Items service discovery for %s (%s) failed: %s"):format ( who, node or '', mesg ) ) |
|
|
30 |
end, node ) |
|
|
31 |
else |
|
|
32 |
disco.info ( conn, who, |
|
|
33 |
function ( identities, features ) |
|
|
34 |
main.print_info ( who, ("Service info discovery result for %s:"):format ( who ) ) |
|
|
35 |
local text = '' |
|
|
36 |
for index, identity in ipairs ( identities ) do |
|
|
37 |
text = text .. ("\n [%s (%s)] %s"):format ( identity.category or '', identity.type or '', identity.name or '' ) |
|
|
38 |
end |
|
|
39 |
if text ~= '' then |
|
|
40 |
main.print_info ( who, " Identities:" .. text ) |
|
|
41 |
else |
|
|
42 |
main.print_info ( who, " No identities" ) |
|
|
43 |
end |
|
|
44 |
text = '' |
|
|
45 |
for index, feature in ipairs ( features ) do |
|
|
46 |
text = text .. ("\n [%s]"):format ( feature or '' ) |
|
|
47 |
end |
|
|
48 |
if text ~= '' then |
|
|
49 |
main.print_info ( who, " Features:" .. text ) |
|
|
50 |
else |
|
|
51 |
main.print_info ( who, " No features" ) |
|
|
52 |
end |
|
|
53 |
end, |
|
|
54 |
function ( mesg ) |
|
|
55 |
main.print_info ( who, ("Info service discovery for %s failed: %s"):format ( who, mesg ) ) |
|
|
56 |
end ) |
|
|
57 |
end |
|
|
58 |
end, true, 'jid' ) |
|
|
59 |
|
|
|
60 |
commands_help['disco'] = "[-t target_jid] [info | items] [node]\n\nService discovery request.\nInfo is sent if omitted." |
|
|
61 |
|
|
|
62 |
-- vim: se ts=4: -- |