[irc/rqf/shadowircd.git] / tools / shadow_help.pl

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 a OHELP command so that you do not need to type /quote help',
    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");
}

Irssi::command_bind('ohelp', \&cmd_ohelp);
# vim: ts=4
Commit	Line	Data
11179744 JH	1	use strict;
	2	use Irssi;
	3	use Irssi::Irc;
	4	use vars qw($VERSION %IRSSI);
	5
	6	$VERSION = "1.0";
	7
	8	%IRSSI = (
	9	authors => 'JD Horelick',
	10	contact => 'jdhore1@gmail.com',
	11	name => 'shadow_help.pl',
	12	description => 'Adds a OHELP command so that you do not need to type /quote help',
	13	license => 'GNU General Public License',
	14	url => 'http://shadowircd.net/',
	15	);
	16
	17	sub cmd_ohelp {
	18	my ($data, $server) = @_;
	19
	20	if (!$server \|\| !$server->{connected}) {
	21	Irssi::print("Not connected to server");
	22	return;
	23	}
	24
	25	$server->send_raw("HELP $data");
	26	}
	27
	28	Irssi::command_bind('ohelp', \&cmd_ohelp);
	29	# vim: ts=4