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 (file)
--- 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" );
        }