Thu, 03 Dec 2009 14:08:54 +0000
net.server_select: Make bufferlen() method return, of all things, the buffer length
1523
841d61be198f
Remove version number from copyright headers
Matthew Wild <mwild1@gmail.com>
parents:
997
diff
changeset
|
1 | -- Prosody IM |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
2 | -- Copyright (C) 2008-2009 Matthew Wild |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
3 | -- Copyright (C) 2008-2009 Waqas Hussain |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
4 | -- |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
5 | -- This project is MIT/X11 licensed. Please see the |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
6 | -- COPYING file in the source package for more information. |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
7 | -- |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
8 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
9 | module.host = "*"; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
10 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
11 | local connlisteners_register = require "net.connlisteners".register; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
12 | |
997
c81b6141d693
mod_debug: Set default interface to 127.0.0.1
Matthew Wild <mwild1@gmail.com>
parents:
969
diff
changeset
|
13 | local console_listener = { default_port = 5583; default_mode = "*l"; default_interface = "127.0.0.1" }; |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
14 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
15 | local sha256, missingglobal = require "util.hashes".sha256; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
16 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
17 | local commands = {}; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
18 | local debug_env = {}; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
19 | local debug_env_mt = { __index = function (t, k) return rawget(_G, k) or missingglobal(k); end, __newindex = function (t, k, v) rawset(_G, k, v); end }; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
20 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
21 | local t_insert, t_concat = table.insert, table.concat; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
22 | local t_concatall = function (t, sep) local tt = {}; for k, s in pairs(t) do tt[k] = tostring(s); end return t_concat(tt, sep); end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
23 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
24 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
25 | setmetatable(debug_env, debug_env_mt); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
26 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
27 | console = {}; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
28 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
29 | function console:new_session(conn) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
30 | local w = function(s) conn.write(s:gsub("\n", "\r\n")); end; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
31 | local session = { conn = conn; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
32 | send = function (t) w(tostring(t)); end; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
33 | print = function (t) w("| "..tostring(t).."\n"); end; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
34 | disconnect = function () conn.close(); end; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
35 | }; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
36 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
37 | return session; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
38 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
39 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
40 | local sessions = {}; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
41 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
42 | function console_listener.listener(conn, data) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
43 | local session = sessions[conn]; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
44 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
45 | if not session then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
46 | -- Handle new connection |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
47 | session = console:new_session(conn); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
48 | sessions[conn] = session; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
49 | printbanner(session); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
50 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
51 | if data then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
52 | -- Handle data |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
53 | (function(session, data) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
54 | if data:match("[!.]$") then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
55 | local command = data:lower(); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
56 | command = data:match("^%w+") or data:match("%p"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
57 | if commands[command] then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
58 | commands[command](session, data); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
59 | return; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
60 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
61 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
62 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
63 | local chunk, err = loadstring("return "..data); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
64 | if not chunk then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
65 | chunk, err = loadstring(data); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
66 | if not chunk then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
67 | err = err:gsub("^%[string .-%]:%d+: ", ""); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
68 | err = err:gsub("^:%d+: ", ""); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
69 | err = err:gsub("'<eof>'", "the end of the line"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
70 | session.print("Sorry, I couldn't understand that... "..err); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
71 | return; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
72 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
73 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
74 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
75 | debug_env.print = session.print; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
76 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
77 | setfenv(chunk, debug_env); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
78 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
79 | local ret = { pcall(chunk) }; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
80 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
81 | if not ret[1] then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
82 | session.print("Fatal error while running command, it did not complete"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
83 | session.print("Error: "..ret[2]); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
84 | return; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
85 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
86 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
87 | table.remove(ret, 1); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
88 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
89 | local retstr = t_concatall(ret, ", "); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
90 | if retstr ~= "" then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
91 | session.print("Result: "..retstr); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
92 | else |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
93 | session.print("No result, or nil"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
94 | return; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
95 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
96 | end)(session, data); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
97 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
98 | session.send(string.char(0)); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
99 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
100 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
101 | function console_listener.disconnect(conn, err) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
102 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
103 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
104 | |
969
9ab6934fb1ff
mod_debug: Run on a different port, and use a different listener to mod_console
Matthew Wild <mwild1@gmail.com>
parents:
946
diff
changeset
|
105 | connlisteners_register('debug', console_listener); |
9ab6934fb1ff
mod_debug: Run on a different port, and use a different listener to mod_console
Matthew Wild <mwild1@gmail.com>
parents:
946
diff
changeset
|
106 | require "net.connlisteners".start("debug"); |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
107 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
108 | -- Console commands -- |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
109 | -- These are simple commands, not valid standalone in Lua |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
110 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
111 | function commands.bye(session) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
112 | session.print("See you! :)"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
113 | session.disconnect(); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
114 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
115 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
116 | commands["!"] = function (session, data) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
117 | if data:match("^!!") then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
118 | session.print("!> "..session.env._); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
119 | return console_listener.listener(session.conn, session.env._); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
120 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
121 | local old, new = data:match("^!(.-[^\\])!(.-)!$"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
122 | if old and new then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
123 | local ok, res = pcall(string.gsub, session.env._, old, new); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
124 | if not ok then |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
125 | session.print(res) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
126 | return; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
127 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
128 | session.print("!> "..res); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
129 | return console_listener.listener(session.conn, res); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
130 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
131 | session.print("Sorry, not sure what you want"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
132 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
133 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
134 | function printbanner(session) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
135 | session.print [[ |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
136 | ____ \ / _ |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
137 | | _ \ _ __ ___ ___ _-_ __| |_ _ |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
138 | | |_) | '__/ _ \/ __|/ _ \ / _` | | | | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
139 | | __/| | | (_) \__ \ |_| | (_| | |_| | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
140 | |_| |_| \___/|___/\___/ \__,_|\__, | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
141 | A study in simplicity |___/ |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
142 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
143 | ]] |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
144 | session.print("Welcome to the Prosody debug console. For a list of commands, type: help"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
145 | session.print("You may find more help on using this console in our online documentation at "); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
146 | session.print("http://prosody.im/doc/debugconsole\n"); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
147 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
148 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
149 | local byte, char = string.byte, string.char; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
150 | local gmatch, gsub = string.gmatch, string.gsub; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
151 | |
946 | 152 | local function vdecode(text, key) |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
153 | local keyarr = {}; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
154 | for l in gmatch(key, ".") do t_insert(keyarr, byte(l) - 32) end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
155 | local pos, keylen = 0, #keyarr; |
946 | 156 | return (gsub(text, ".", function (letter) |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
157 | if byte(letter) < 32 then return ""; end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
158 | pos = (pos%keylen)+1; |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
159 | return char(((byte(letter) - 32 - keyarr[pos]) % 94) + 32); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
160 | end)); |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
161 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
162 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
163 | local subst = { |
946 | 164 | ["f880c08056ba7dbecb1ccfe5d7728bd6dcd654e94f7a9b21788c43397bae0bc5"] = |
165 | [=[nRYeKR$l'5Ix%u*1Mc-K}*bwv*\ $1KLMBd$KH R38`$[6}VQ@,6Qn]=]; | |
166 | ["92f718858322157202ec740698c1390e47bc819e52b6a099c54c378a9f7529d6"] = | |
167 | [=[V\Z5`WZ5,T$<)7LM'w3Z}M(7V'{pa) &'>0+{v)O(0M*V5K$$LL$|2wT}6 | |
168 | 1as*")e!>]=]; | |
169 | ["467b65edcc7c7cd70abf2136cc56abd037216a6cd9e17291a2219645be2e2216"] = | |
170 | [=[i#'Z,E1-"YaHW(j/0xs]I4x&%(Jx1h&18'(exNWT D3b+K{*8}w(%D {]=]; | |
171 | ["f73729d7f2fbe686243a25ac088c7e6aead3d535e081329f2817438a5c78bee5"] = | |
172 | [=[,3+(Q{3+W\ftQ%wvv/C0z-l%f>ABc(vkp<bb8]=]; | |
173 | ["6afa189489b096742890d0c5bd17d5bb8af8ac460c7026984b64e8f14a40404e"] = | |
174 | [=[9N{)5j34gd*}&]H&dy"I&7(",a F1v6jY+IY7&S+86)1z(Vo]=]; | |
175 | ["cc5e5293ef8a1acbd9dd2bcda092c5c77ef46d3ec5aea65024fca7ed4b3c94a9"] = | |
176 | [=[_]Rc}IF'Kfa&))Ry+6|x!K2|T*Vze)%4Hwz'L3uI|OwIa)|q#uq2+Qu u7 | |
177 | [V3(z(*TYY|T\1_W'2] Dwr{-{@df#W.H5^x(ydtr{c){UuV@]=]; | |
178 | ["b3df231fd7ddf73f72f39cb2510b1fe39318f4724728ed58948a180663184d3e"] = | |
179 | [=[iH!"9NLS'%geYw3^R*fvWM1)MwxLS!d[zP(p0sQ|8tX{dWO{9w!+W)b"MU | |
180 | W)V8&(2Wx"'dTL9*PP%1"JV(I|Jr1^f'-Hc3U\2H3Z='K#,)dPm]=]; | |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
181 | } |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
182 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
183 | function missingglobal(name) |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
184 | if sha256 then |
946 | 185 | local hash = sha256(name.."|"..name:reverse(), true); |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
186 | |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
187 | if subst[hash] then |
946 | 188 | return vdecode(subst[hash], sha256(name:reverse(), true)); |
944
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
189 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
190 | end |
2335ece4942d
mod_debug: New debug module (a simplified mod_console, with raw Lua access to a running Prosody's internals)
Matthew Wild <mwild1@gmail.com>
parents:
diff
changeset
|
191 | end |