#!/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//  / }"
}