Allow keys to be specified in channels

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

diff --git a/irc.pl b/irc.pl
index 7b26db8..f9015bc 100644 (file)
--- a/irc.pl
+++ b/irc.pl
@@ -154,7 +154,9 @@ sub on_connect {
        }
        print( "IRC : Connected to irc://".$self->{ "host" }."/".$self->{ "channel" }."\n" );
        for my $chan (split( /,/, $self->{ "channel" } )) {
-               $_[KERNEL]->post( $heap->{ 'ircobject' }->session_id(), "join", $chan );
+               my @args = split( /:/, $chan );
+               my $chanName = shift @args;
+               $_[KERNEL]->post( $heap->{ 'ircobject' }->session_id(), "join", $chan, @args );
        }
 }
 
@@ -200,6 +202,7 @@ sub on_private {
 sub send_public {
        my( $kernel, $heap, $msg ) = @_[ KERNEL, HEAP, ARG0 ];
        for my $chan (split( /,/, $self->{ "channel" } ) ) {
+               $chan = (split( /:/, $chan ))[0];
                $kernel->yield( "send_public_to", $msg, $chan );
        }
 }