tools/shadow_help_irssi.pl

   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 an OHELP and OSET command to make using the IRCd-side HELP and SET commands easier',
  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 sub cmd_oset {
  29         my ($data, $server) = @_;
  30
  31         if (!$server || !$server->{connected}) {
  32       Irssi::print("Not connected to server");
  33       return;
  34     }
  35
  36         $server->send_raw("SET $data");
  37 }
  38
  39 Irssi::command_bind('ohelp', \&cmd_ohelp);
  40 Irssi::command_bind('oset', \&cmd_oset);
  41 # vim: ts=4