Add initial files from envbot v0.1-beta1

1 files changed, 178 insertions, 0 deletions

diff --git a/modules/m_modules.sh b/modules/m_modules.sh
new file mode 100644
index 0000000..62b3917
--- /dev/null
+++ b/modules/m_modules.sh
@@ -0,0 +1,178 @@
+#!/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/>.  #
+#                                                                         #
+###########################################################################
+#---------------------------------------------------------------------
+## Manage (load/unload/list) modules.
+#---------------------------------------------------------------------
+
+module_modules_INIT() {
+	modinit_API='2'
+	modinit_HOOKS=''
+	commands_register "$1" 'modload'   || return 1
+	commands_register "$1" 'modunload' || return 1
+	commands_register "$1" 'modreload' || return 1
+	commands_register "$1" 'modlist'   || return 1
+	helpentry_module_modules_description="Exposes the internal module loading and unloading support to owners."
+
+	helpentry_modules_modload_syntax='<module name>'
+	helpentry_modules_modload_description='Try to load a module.'
+
+	helpentry_modules_modunload_syntax='<module name>'
+	helpentry_modules_modunload_description='Try to unload a module.'
+
+	helpentry_modules_modreload_syntax='<module name>'
+	helpentry_modules_modreload_description='Try to unload and reload a module.'
+
+	helpentry_modules_modlist_syntax=''
+	helpentry_modules_modlist_description='List currently loaded moudules.'
+
+}
+
+module_modules_UNLOAD() {
+	unset module_modules_doload module_modules_dounload
+}
+
+module_modules_REHASH() {
+	return 0
+}
+
+#---------------------------------------------------------------------
+## Load a module
+## @param Module to load
+## @param Sender nick
+#---------------------------------------------------------------------
+module_modules_doload() {
+	local target_module="$1"
+	local sendernick="$2"
+	modules_load "$target_module"
+	local status_message status=$?
+	case $status in
+		0) status_message="Loaded \"$target_module\" successfully" ;;
+		2) status_message="Module \"$target_module\" is already loaded" ;;
+		3) status_message="Failed to source \"$target_module\" in safe subshell, see log for details" ;;
+		4) status_message="Failed to source \"$target_module\"" ;;
+		5) status_message="Module \"$target_module\" could not be found" ;;
+		6) status_message="Getting hooks from \"$target_module\" failed" ;;
+		7) status_message="after_load failed for \"$target_module\", see log for details" ;;
+		*) status_message="Unknown error (code $status) for \"$target_module\"" ;;
+	esac
+	send_notice "$sendernick" "$status_message"
+	return $status
+}
+
+#---------------------------------------------------------------------
+## Unload a module
+## @param Module to unload
+## @param Sender nick
+#---------------------------------------------------------------------
+module_modules_dounload() {
+	local target_module="$1"
+	local sendernick="$2"
+	if [[ $target_module == modules ]]; then
+		send_msg "$sendernick" \
+			"You can't unload/reload the modules module using itself. (The hackish way would be to use the eval module for this.)"
+		return 1
+	fi
+	modules_unload "$target_module"
+	local status_message status=$?
+	case $status in
+		0) status_message="Unloaded \"$target_module\" successfully" ;;
+		2) status_message="Module \"$target_module\" is not loaded" ;;
+		3) status_message="Module \"$target_module\" can't be unloaded, some these module(s) depend(s) on it: $(modules_depends_list_deps "$target_module")" ;;
+		*) status_message="Unknown error (code $status) for \"$target_module\"" ;;
+	esac
+	send_notice "$sendernick" "$status_message"
+	return $status
+}
+
+module_modules_handler_modload() {
+	# Accept this anywhere, unless someone can give a good reason not to.
+	local sender="$1"
+	local sendernick
+	parse_hostmask_nick "$sender" 'sendernick'
+	local parameters="$3"
+	if [[ "$parameters" =~ ^([^ ]+) ]]; then
+		local target_module="${BASH_REMATCH[1]}"
+		if access_check_owner "$sender"; then
+			access_log_action "$sender" "loaded the module $target_module"
+			module_modules_doload "$target_module" "$sendernick"
+		else
+			access_fail "$sender" "load a module" "owner"
+		fi
+	else
+		feedback_bad_syntax "$sendernick" "modload" "<module name>"
+	fi
+}
+
+module_modules_handler_modunload() {
+	local sender="$1"
+	local sendernick
+	parse_hostmask_nick "$sender" 'sendernick'
+	local parameters="$3"
+	if [[ "$parameters" =~ ^([^ ]+) ]]; then
+		local target_module="${BASH_REMATCH[1]}"
+		if access_check_owner "$sender"; then
+			access_log_action "$sender" "unloaded the module $target_module"
+			module_modules_dounload "$target_module" "$sendernick"
+		else
+			access_fail "$sender" "unload a module" "owner"
+		fi
+	else
+		feedback_bad_syntax "$sendernick" "modunload" "<module name>"
+	fi
+}
+
+module_modules_handler_modreload() {
+	local sender="$1"
+	local sendernick
+	parse_hostmask_nick "$sender" 'sendernick'
+	local parameters="$3"
+	if [[ "$parameters" =~ ^([^ ]+) ]]; then
+		local target_module="${BASH_REMATCH[1]}"
+		if access_check_owner "$sender"; then
+			access_log_action "$sender" "reloaded the module $target_module"
+			module_modules_dounload "$target_module" "$sendernick"
+			if [[ $? = 0 ]]; then
+				module_modules_doload "$target_module" "$sendernick"
+			else
+				send_notice "$sendernick" "Reload of $target_module failed because it could not be unloaded."
+			fi
+		else
+			access_fail "$sender" "reload a module" "owner"
+		fi
+	else
+		feedback_bad_syntax "$sendernick" "modreload" "<module name>"
+	fi
+}
+
+module_modules_handler_modlist() {
+	local sender="$1"
+	local parameters="$3"
+	local target
+	if [[ $2 =~ ^# ]]; then
+		target="$2"
+	else
+		parse_hostmask_nick "$sender" 'target'
+	fi
+	local modlist="${modules_loaded## }"
+	modlist="${modlist%% }"
+	send_msg "$target" "${format_bold}Modules currently loaded${format_bold}: ${modlist//  / }"
+}