blob: 36906a5c3c1778144567bbde7a54eadb2f33f7d5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
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
}
|
