diff options
Diffstat (limited to 'modules/m_dumpvars.sh')
| -rw-r--r-- | modules/m_dumpvars.sh | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/modules/m_dumpvars.sh b/modules/m_dumpvars.sh new file mode 100644 index 0000000..77a9c14 --- /dev/null +++ b/modules/m_dumpvars.sh @@ -0,0 +1,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 +} |