elemental-ircd/tools/shadow_help_weechat.pl

41 lines
980 B
Perl
Raw Normal View History

# This script is something just thought up by me (jdhore) and ported from irssi to WeeChat
weechat::register("shadow_help", "jdhore", "1.0", "BSD", "Make life easier when using various oper commands", "", "");
weechat::hook_command("ohelp", "Rewriting the IRCd's HELP command for fun and profit",
"[params]",
"" .
"",
"", "ohelp", "");
weechat::hook_command("oset", "Rewriting the IRCd's SET command for fun and profit",
"[params]",
"" .
"",
"", "oset", "");
sub ohelp {
my ($data, $buffer, $param) = @_;
if ($param) {
weechat::command($buffer, "/quote help $param");
}
else {
weechat::command($buffer, "/quote help");
}
return weechat::WEECHAT_RC_OK;
}
sub oset {
my ($data, $buffer, $param) = @_;
if ($param) {
weechat::command($buffer, "/quote set $param");
}
else {
weechat::command($buffer, "/quote set");
}
return weechat::WEECHAT_RC_OK;
}