sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added hook on_namesreply.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-03-03 15:19:15 -07:00
1 parent 5f1bf3785c
commit c15c945262
2 files changed
+6 -1
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

doc/CHANGELOG
+1
View File
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
3.0 Indev 3.0 Indev
=============================================================================== ===============================================================================
* Added hook on_namesreply.
* All data related to a network is now deleted on disconnect. * All data related to a network is now deleted on disconnect.
* Added hook on_disconnect. * Added hook on_disconnect.
* Added various options to bin/auto, including support for multiple config * Added various options to bin/auto, including support for multiple config
lib/Proto/IRC.pm
+5 -1
View File
@@ -47,6 +47,7 @@ API::Std::event_add('on_rcjoin');
API::Std::event_add('on_ucjoin'); API::Std::event_add('on_ucjoin');
API::Std::event_add('on_isupport'); API::Std::event_add('on_isupport');
API::Std::event_add('on_kick'); API::Std::event_add('on_kick');
API::Std::event_add('on_namesreply');
API::Std::event_add('on_nick'); API::Std::event_add('on_nick');
API::Std::event_add('on_notice'); API::Std::event_add('on_notice');
API::Std::event_add('on_part'); API::Std::event_add('on_part');
@@ -156,7 +157,7 @@ sub num353 {
my ($svr, @ex) = @_; my ($svr, @ex) = @_;
# Get rid of the colon. # Get rid of the colon.
$ex[5] = substr $ex[5], 1; $ex[5] =~ s/^://xsm;
# Delete the old chanusers hash if it exists. # Delete the old chanusers hash if it exists.
if (defined $chanusers{$svr}{$ex[4]}) { delete $chanusers{$svr}{$ex[4]} } if (defined $chanusers{$svr}{$ex[4]}) { delete $chanusers{$svr}{$ex[4]} }
# Iterate through each user. # Iterate through each user.
@@ -191,6 +192,9 @@ sub num353 {
} }
} }
# Trigger on_namesreply.
API::Std::event_run('on_namesreply', ($svr, $ex[4], @ex[5..$#ex]));
return 1; return 1;
} }