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