19 lines
372 B
Perl
19 lines
372 B
Perl
|
package IRC::Xchat::Shadow_Help;
|
||
|
|
||
|
IRC::register("Shadow Help", "1.0", "", "");
|
||
|
|
||
|
sub ohelp {
|
||
|
$_ = shift @_;
|
||
|
IRC::command ("/quote help $_");
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
sub oset {
|
||
|
$_ = shift @_;
|
||
|
IRC::command ("/quote set $_");
|
||
|
return 1;
|
||
|
}
|
||
|
|
||
|
IRC::add_command_handler("ohelp", "IRC::Xchat::Shadow_Help::ohelp");
|
||
|
IRC::add_command_handler("oset", "IRC::Xchat::Shadow_Help::oset");
|