Added rchook_add() and rchook_del() to API::Std.

This commit is contained in:
Elijah Perrault committed 2011-01-29 20:39:07 -07:00
1 parent bbc3dfd966
commit ccce5d5ef6
2 files changed
+29 -1

No files matched your search

+1
View File
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
3.0 Indev
==================================================================
* Added rchook_add() and rchook_del() to API::Std.
* Parse NOTICE and added hook on_notice.
* Added hooks on_uprivmsg and on_cprivmsg.
* Module names are now case sensitive.
+28 -1
View File
@@ -10,7 +10,8 @@ use Exporter;
our (%LANGE, %MODULE, %EVENTS, %HOOKS, %CMDS);
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add cmd_del hook_add hook_del);
our @EXPORT_OK = qw(conf_get trans err awarn timer_add timer_del cmd_add
cmd_del hook_add hook_del rchook_add rchook_del);
# Initialize a module.
@@ -240,6 +241,32 @@ sub timer_del
return 0;
}
# Hook onto a raw command.
sub rchook_add
{
my ($cmd, $sub) = @_;
$cmd = uc($cmd);
return 0 if defined $Parser::IRC::RAWC{$cmd};
$Parser::IRC::RAWC{$cmd} = $sub;
return 1;
}
# Delete a raw command hook.
sub rchook_del
{
my ($cmd) = @_;
$cmd = uc($cmd);
return 0 if !defined $Parser::IRC::RAWC{$cmd};
delete $Parser::IRC::RAWC{$cmd};
return 1;
}
# Configuration value getter.
sub conf_get
{