X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=d1023270291a4be2209741b4d5197c9f63b4974f;hb=63f0fc26e717837bc7c6990f27d26de91d65eb7e;hp=fdc0b0543aa102e41a7b4ee8529e875e8580e503;hpb=ec553c968339e68ba23a6f674aed1e9c32bfa1a3;p=spider.git

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index fdc0b054..d1023270 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -2012,6 +2012,12 @@ sub handle_93
 		return;
 	}
 
+	if (isdbg('progress')) {
+		my $vs = $via ne '*' ? " via $via" : ''; 
+		my $s = "ANNTALK: $from\@$onode$via -> $to '$text'";
+		dbg($s);
+	}
+	
 	# will we allow it at all?
 	if ($censorpc) {
 		my @bad;