56 lines
2.4 KiB
Bash
56 lines
2.4 KiB
Bash
#!/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/>. #
|
|
# #
|
|
###########################################################################
|
|
#---------------------------------------------------------------------
|
|
## Allow owners to make the bot eval any code<br />
|
|
## THIS IS FOR DEBUGGING ONLY!!!! Don't use it in other cases
|
|
#---------------------------------------------------------------------
|
|
|
|
module_eval_INIT() {
|
|
modinit_API='2'
|
|
modinit_HOOKS=''
|
|
commands_register "$1" 'eval' || return 1
|
|
helpentry_module_eval_description="Eval command for developers debugging the bot. Don't use if you don't know what you are doing."
|
|
|
|
helpentry_eval_eval_syntax='<expression>'
|
|
helpentry_eval_eval_description='Evaluate <expression> in global scope.'
|
|
}
|
|
|
|
module_eval_UNLOAD() {
|
|
return 0
|
|
}
|
|
|
|
module_eval_REHASH() {
|
|
return 0
|
|
}
|
|
|
|
module_eval_handler_eval() {
|
|
# Accept anywhere
|
|
local sender="$1"
|
|
if access_check_owner "$sender"; then
|
|
local parameters="$3"
|
|
access_log_action "$sender" "did eval with: $parameters"
|
|
eval "$parameters"
|
|
else
|
|
access_fail "$sender" "eval a command" "owner"
|
|
fi
|
|
}
|