From 5e65bb31e355da74888c3abfdd4c2200ed3a0df2 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Wed, 19 Jan 2011 16:04:37 -0700
Subject: [PATCH] Use API::IRC.

---
 src/Parser/IRC.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/Parser/IRC.pm b/src/Parser/IRC.pm
index 44209fa..d2ffe62 100644
--- a/src/Parser/IRC.pm
+++ b/src/Parser/IRC.pm
@@ -7,8 +7,7 @@ package Parser::IRC;
 use strict;
 use warnings;
 use API::Std qw(conf_get);
-use Data::Dumper;
-
+use API::IRC qw(cjoin);
 
 # Raw parsing hash.
 our %RAWC = (
@@ -57,13 +56,13 @@ sub num001
 		my @sajoin = split(',', $cajoin[0]);
 		
 		foreach my $sjoin (@sajoin) {
-			Auto::socksnd($svr, "JOIN $sjoin");
+			cjoin($svr, $sjoin);
 		}
 	}
 	else {
 		# For multi-line ajoins.
 		foreach my $sjoin (@cajoin) {
-			Auto::socksnd($svr, "JOIN $sjoin");
+			cjoin($svr, $sjoin);
 		}
 	}
 }