From 6f9a250211e23232d2f62e89093356a76d7fe5ad Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Mon, 24 Jan 2011 22:10:53 -0700
Subject: [PATCH] Parse NAME replies (Numeric:353).

---
 doc/CHANGELOG     |  1 +
 src/Parser/IRC.pm | 42 +++++++++++++++++++++++++++++++++++++++++-
 2 files changed, 42 insertions(+), 1 deletion(-)

diff --git a/doc/CHANGELOG b/doc/CHANGELOG
index 1832b0a..d72559e 100644
--- a/doc/CHANGELOG
+++ b/doc/CHANGELOG
@@ -3,6 +3,7 @@ Auto IRC Bot 3.0: Change Log
 
 3.0 Indev
 ==================================================================
+    * Parse NAME replies (Numeric:353).
     * Parse Numeric:005 and store PREFIX's data.
     * Bug fix: The bot's nick is now stored correctly.
     * Added server:modes config option for setting modes on
diff --git a/src/Parser/IRC.pm b/src/Parser/IRC.pm
index 4910f66..01da3b7 100644
--- a/src/Parser/IRC.pm
+++ b/src/Parser/IRC.pm
@@ -13,6 +13,7 @@ use API::IRC;
 our %RAWC = (
 	'001'      => \&num001,
 	'005'      => \&num005,
+	'353'      => \&num353,
 	'432'      => \&num432,
 	'433'      => \&num433,
 	'438'      => \&num438,
@@ -27,7 +28,7 @@ our %RAWC = (
 );
 
 # Variables for various functions.
-our (%got_001, %botnick, %botchans, %csprefix);
+our (%got_001, %botnick, %botchans, %csprefix, %chanusers);
 
 # Events.
 API::Std::event_add("on_rcjoin");
@@ -133,6 +134,45 @@ sub num005
 	return 1;
 }
 
+# Parse: Numeric:353
+# NAMES reply.
+sub num353
+{
+	my ($svr, @ex) = @_;
+	
+	# Get rid of the colon.
+	$ex[5] = substr($ex[5], 1);
+	# Delete the old chanusers hash if it exists.
+	delete $chanusers{$svr}{$ex[4]} if (defined $chanusers{$svr}{$ex[4]});
+	# Iterate through each user.
+	for (my $i = 5; $i < scalar(@ex); $i++) {
+		my $fi = 0;
+		foreach (keys %{ $csprefix{$svr} }) {
+			# Check if the user has status in the channel.
+			if (substr($ex[$i], 0, 1) eq $csprefix{$svr}{$_}) {
+				# He/she does. Lets set that.
+				if (defined $chanusers{$svr}{$ex[4]}{lc(substr($ex[$i], 1))}) {
+					# If the user has multiple statuses.
+					$chanusers{$svr}{$ex[4]}{lc(substr($ex[$i], 1))} .= $_;
+				}
+				else {
+					# Or not.
+					$chanusers{$svr}{$ex[4]}{lc(substr($ex[$i], 1))} = $_;
+				}
+				$fi = 1;
+			}
+		}
+		# They had status, so go to the next user.
+		next if $fi;
+		# They didn't, set them as a normal user.
+		if (!defined $chanusers{$svr}{$ex[4]}{lc($ex[$i])}) {
+			$chanusers{$svr}{$ex[4]}{lc($ex[$i])} = 1;
+		}
+	}
+	
+	return 1;
+}
+
 # Parse: Numeric:432
 # Erroneous nickname.
 sub num432