Add initial files from envbot v0.1-beta1

2017-06-02 15:44:54 -03:00
commit b4830e97ae
81 changed files with 12852 additions and 0 deletions
--- a/contrib/modules/m_perl/main.sh
+++ 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
+}