]>
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', | |
50ee3171 | 12 | description => 'Adds an OHELP and OSET command to make using the IRCd-side HELP and SET commands easier', |
11179744 JH |
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 | ||
50ee3171 JH |
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 | ||
11179744 | 39 | Irssi::command_bind('ohelp', \&cmd_ohelp); |
50ee3171 | 40 | Irssi::command_bind('oset', \&cmd_oset); |
11179744 | 41 | # vim: ts=4 |