179 lines
6.7 KiB
Bash
179 lines
6.7 KiB
Bash
#!/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// / }"
|
|
}
|