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

Initialize the on_part event.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-22 21:18:27 -07:00
1 parent 47605fd33e
commit cae3f191a8
1 file changed
+2 -1
Download Patch File Download Diff File Expand all files Collapse all files
lib/Parser/IRC.pm
+2 -1
View File
@@ -42,6 +42,7 @@ API::Std::event_add("on_ucjoin");
API::Std::event_add("on_kick"); API::Std::event_add("on_kick");
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_cprivmsg"); API::Std::event_add("on_cprivmsg");
API::Std::event_add("on_uprivmsg"); API::Std::event_add("on_uprivmsg");
API::Std::event_add("on_quit"); API::Std::event_add("on_quit");
@@ -456,7 +457,7 @@ sub mode
sub nick sub nick
{ {
my ($svr, ($uex, undef, $nex)) = @_; my ($svr, ($uex, undef, $nex)) = @_;
$nex = substr($nex, 1); $nex =~ s/^://gxsm;
my %src = API::IRC::usrc(substr($uex, 1)); my %src = API::IRC::usrc(substr($uex, 1));