diff options
Diffstat (limited to 'contrib/modules/m_perl')
| -rw-r--r-- | contrib/modules/m_perl/__main__.sh | 74 | ||||
| -rw-r--r-- | contrib/modules/m_perl/safe_eval.pl | 25 |
2 files changed, 99 insertions, 0 deletions
diff --git a/contrib/modules/m_perl/__main__.sh b/contrib/modules/m_perl/__main__.sh new file mode 100644 index 0000000..36906a5 --- /dev/null +++ b/contrib/modules/m_perl/__main__.sh @@ -0,0 +1,74 @@ +#!/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 +} diff --git a/contrib/modules/m_perl/safe_eval.pl b/contrib/modules/m_perl/safe_eval.pl new file mode 100644 index 0000000..1e6489f --- /dev/null +++ b/contrib/modules/m_perl/safe_eval.pl @@ -0,0 +1,25 @@ +#!/usr/bin/perl +use strict; +use Safe; + +my $expr = shift; + +my $cpt = new Safe; + +#Basic variable IO and traversal + +$cpt->permit(':base_core'); + +$SIG{ALRM} = sub { + die "Alarm"; +}; + +alarm(4); + +my $ret = $cpt->reval($expr); + +if ($@) { + print $@; +} else { + print $ret; +} |