diff --git a/doc/CHANGELOG b/doc/CHANGELOG index bc23154..8aa1873 100644 --- a/doc/CHANGELOG +++ b/doc/CHANGELOG @@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log 3.0 Indev =============================================================================== + * Added event on_myinfo for RPL_MYINFO (numeric 004). * Raw hooks now take hook names and support multiple hooks. This changes rchook_add and rchook_del. * Vim modelines must be at the bottom of files. Modules updated. diff --git a/lib/Proto/IRC.pm b/lib/Proto/IRC.pm index 7811f96..4f765cf 100644 --- a/lib/Proto/IRC.pm +++ b/lib/Proto/IRC.pm @@ -47,6 +47,7 @@ API::Std::event_add('on_rcjoin'); API::Std::event_add('on_ucjoin'); API::Std::event_add('on_isupport'); API::Std::event_add('on_kick'); +API::Std::event_add('on_myinfo'); API::Std::event_add('on_namesreply'); API::Std::event_add('on_nick'); API::Std::event_add('on_notice'); @@ -131,6 +132,9 @@ sub num004 { API::Log::alog "! $svr: $ex[3] running version $ex[4]"; API::Log::dbug "! $svr: $ex[3] running version $ex[4]"; + # Trigger on_myinfo. + API::Std::event_run('on_myinfo', ($svr, @ex[3..$#ex])); + return 1; }