75 lines
3.0 KiB
Bash
75 lines
3.0 KiB
Bash
#!/bin/bash
|
|
# -*- coding: utf-8 -*-
|
|
###########################################################################
|
|
# #
|
|
# envbot - an IRC bot in bash #
|
|
# Copyright (C) 2007-2008 EmErgE <halt.system@gmail.com> #
|
|
# Copyright (C) 2007-2008 Vsevolod Kozlov #
|
|
# 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/>. #
|
|
# #
|
|
###########################################################################
|
|
#---------------------------------------------------------------------
|
|
## Evaluate with perl
|
|
## @Dependencies This module depends on perl
|
|
## @Dependencies (http://www.perl.org/about.html)
|
|
## @Note This may not be safe!
|
|
#---------------------------------------------------------------------
|
|
|
|
module_perl_INIT() {
|
|
modinit_API='2'
|
|
modinit_HOOKS=''
|
|
if ! hash perl > /dev/null 2>&1; then
|
|
log_error "Couldn't find \"perl\" binary. The perl module depends on it."
|
|
return 1
|
|
fi
|
|
module_perl_working_dir="$MODULE_BASE_PATH"
|
|
commands_register "$1" 'perl' || return 1
|
|
helpentry_module_perl_description="Execute perl code."
|
|
|
|
helpentry_perl_perl_syntax='<code>'
|
|
helpentry_perl_perl_description='Execute perl code.'
|
|
}
|
|
|
|
module_perl_UNLOAD() {
|
|
unset module_perl_working_dir
|
|
unset module_perl_handler_perl
|
|
return 0
|
|
}
|
|
|
|
module_perl_REHASH() {
|
|
return 0
|
|
}
|
|
|
|
module_perl_handler_perl() {
|
|
local sender="$1"
|
|
local channel="$2"
|
|
local sendernick=
|
|
parse_hostmask_nick "$sender" 'sendernick'
|
|
if access_check_capab "perl_eval" "$sender" "$channel"; then
|
|
# If it isn't in a channel send message back to person who send it,
|
|
# otherwise send in channel
|
|
if ! [[ $2 =~ ^# ]]; then
|
|
channel="$sendernick"
|
|
fi
|
|
local parameters="$3"
|
|
# Extremely Safe Perl Evaluation
|
|
local myresult="$(perl "${module_perl_working_dir}/safe_eval.pl" "$parameters")"
|
|
send_msg "$channel" "${sendernick}: $myresult"
|
|
else
|
|
access_fail "$sender" "make the bot evalute perl expressions" "perl_eval"
|
|
fi
|
|
}
|