42 lines
895 B
Perl
42 lines
895 B
Perl
use strict;
|
|
use Irssi;
|
|
use Irssi::Irc;
|
|
use vars qw($VERSION %IRSSI);
|
|
|
|
$VERSION = "1.0";
|
|
|
|
%IRSSI = (
|
|
authors => 'JD Horelick',
|
|
contact => 'jdhore1@gmail.com',
|
|
name => 'shadow_help.pl',
|
|
description => 'Adds an OHELP and OSET command to make using the IRCd-side HELP and SET commands easier',
|
|
license => 'GNU General Public License',
|
|
url => 'http://shadowircd.net/',
|
|
);
|
|
|
|
sub cmd_ohelp {
|
|
my ($data, $server) = @_;
|
|
|
|
if (!$server || !$server->{connected}) {
|
|
Irssi::print("Not connected to server");
|
|
return;
|
|
}
|
|
|
|
$server->send_raw("HELP $data");
|
|
}
|
|
|
|
sub cmd_oset {
|
|
my ($data, $server) = @_;
|
|
|
|
if (!$server || !$server->{connected}) {
|
|
Irssi::print("Not connected to server");
|
|
return;
|
|
}
|
|
|
|
$server->send_raw("SET $data");
|
|
}
|
|
|
|
Irssi::command_bind('ohelp', \&cmd_ohelp);
|
|
Irssi::command_bind('oset', \&cmd_oset);
|
|
# vim: ts=4
|