From 6399b438bbf966ca44b93456e89fdffe8b5a8787 Mon Sep 17 00:00:00 2001
From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Wed, 29 Aug 2007 21:44:01 +0000
Subject: [PATCH] Changed join and part to try it on the actor's server, and
 the do_join and do-part to generate console messages even when successful.

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@10 088b83a4-0077-4247-935c-42ec02c2848b
---
 irc.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/irc.pl b/irc.pl
index 55f9ac0..5547548 100644
--- 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" );
-- 
2.11.0