Changed join and part to try it on the actor's server, and the do_join and do-part...

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

diff --git a/irc.pl b/irc.pl
index 55f9ac0..5547548 100644 (file)
--- a/irc.pl
+++ b/irc.pl
@@ -70,6 +70,7 @@ sub new {
 sub do_join {
        my( $kernel, $heap, $what ) = @_[ KERNEL, HEAP, ARG0 ];
        if( $what =~ /^[#&][^ ,]+$/ ) {
+               print( "IRC : Joining '$what'\n" );
                $kernel->post( $heap->{ 'ircobject' }->session_id(), "join", $what );
        } else {
                warn( "'$what' is an invalid channel name" );
@@ -79,6 +80,7 @@ sub do_join {
 sub do_part {
        my( $kernel, $heap, $what ) = @_[ KERNEL, HEAP, ARG0 ];
        if( $what =~ /^[#&][^ ,]+$/ ) {
+               print( "IRC : Parting '$what'\n" );
                $kernel->post( $heap->{ 'ircobject' }->session_id(), "part", $what );
        } else {
                warn( "'$what' is an invalid channel name" );