From f1b6e2f91bd28f54f6a1e67e0b372c15efca23a5 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Wed, 16 Feb 2011 18:55:47 -0700
Subject: [PATCH] Support for channels with a key.

---
 lib/API/IRC.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/API/IRC.pm b/lib/API/IRC.pm
index 40959dd..2da00fe 100644
--- a/lib/API/IRC.pm
+++ b/lib/API/IRC.pm
@@ -48,9 +48,9 @@ sub ban
 # Join a channel.
 sub cjoin 
 {
-	my ($svr, $chan) = @_;
+	my ($svr, $chan, $key) = @_;
 	
-	Auto::socksnd($svr, "JOIN $chan");
+	Auto::socksnd($svr, "JOIN ".((defined $key) ? "$chan" : "$chan $key"));
 	
 	return 1;
 }