From c15c94526210f11ded10ed19843167bc8f3746e0 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Thu, 3 Mar 2011 15:19:15 -0700
Subject: [PATCH] Added hook on_namesreply.

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

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index 488a0e6..b5c9e51 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ===============================================================================
+    * Added hook on_namesreply.
     * All data related to a network is now deleted on disconnect.
     * Added hook on_disconnect.
     * Added various options to bin/auto, including support for multiple config
diff --git a/lib/Proto/IRC.pm b/lib/Proto/IRC.pm
index d7a2fc1..be15b6a 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_namesreply');
 API::Std::event_add('on_nick');
 API::Std::event_add('on_notice');
 API::Std::event_add('on_part');
@@ -156,7 +157,7 @@ sub num353 {
     my ($svr, @ex) = @_;
 
     # Get rid of the colon.
-    $ex[5] = substr $ex[5], 1;
+    $ex[5] =~ s/^://xsm;
     # Delete the old chanusers hash if it exists.
     if (defined $chanusers{$svr}{$ex[4]}) { delete $chanusers{$svr}{$ex[4]} }
     # 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;
 }