From 123357c44829fb3908250e302bd05050e28df1ae Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Fri, 4 Mar 2011 20:14:09 -0700
Subject: [PATCH] Added event on_myinfo for RPL_MYINFO (numeric 004).

---
 doc/CHANGELOG    | 1 +
 lib/Proto/IRC.pm | 4 ++++
 2 files changed, 5 insertions(+)

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;
 }