blob: 77a9c14f74deeaf2526a3ba1a147dffe2b3484d0 (
plain)
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
|
#!/bin/bash
# -*- coding: utf-8 -*-
###########################################################################
# #
# envbot - an IRC bot in bash #
# Copyright (C) 2007-2008 Arvid Norlander #
# #
# This program is free software: you can redistribute it and/or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation, either version 3 of the License, or #
# (at your option) any later version. #
# #
# This program is distributed in the hope that it will be useful, #
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
# GNU General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
# #
###########################################################################
#---------------------------------------------------------------------
## Debug module, dump all variables to console.
#---------------------------------------------------------------------
module_dumpvars_INIT() {
modinit_API='2'
modinit_HOOKS=''
commands_register "$1" 'dumpvars' || return 1
helpentry_module_dumpvars_description="Debugging module to dump all variables in the bot."
helpentry_dumpvars_dumpvars_syntax=''
helpentry_dumpvars_dumpvars_description='Dump all variables to STDOUT.'
}
module_dumpvars_UNLOAD() {
return 0
}
module_dumpvars_REHASH() {
return 0
}
module_dumpvars_handler_dumpvars() {
local sender="$1"
if access_check_owner "$sender"; then
# This is hackish, we only display
# lines unique to "file" 1.
# Also remove one variable that may fill our scrollback.
access_log_action "$sender" "a dump of variables"
comm -2 -3 <(declare) <(declare -f) | grep -Ev '^module_quote_quotes'
else
access_fail "$sender" "dump variables to STDOUT" "owner"
fi
}
|
