From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Tue, 12 Feb 2008 15:07:56 +0000 (+0000)
Subject: Fix join/part with key
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=8ddc9d5c3554e0bbe8a6c780f36d0642464c981a;p=destult.git

Fix join/part with key

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@38 088b83a4-0077-4247-935c-42ec02c2848b
---

diff --git a/irc.pl b/irc.pl
index 7a92c50..7b26db8 100644
--- a/irc.pl
+++ b/irc.pl
@@ -71,10 +71,10 @@ sub new {
 }
 
 sub do_join {
-	my( $kernel, $heap, $what, $key ) = @_[ KERNEL, HEAP, ARG0 ];
+	my( $kernel, $heap, $what ) = @_[ KERNEL, HEAP, ARG0 ];
 	if( $what =~ /^[#&][^ ,]+$/ ) {
 		print( "IRC : Joining '$what'\n" );
-		$kernel->post( $heap->{ 'ircobject' }->session_id(), "join", $what, $key );
+		$kernel->post( $heap->{ 'ircobject' }->session_id(), "join", $what, @_[ ARG1..$#_ ] );
 	} else {
 		warn( "'$what' is an invalid channel name" );
 	}