X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=4e3480d66cd08bc3fc99d250b7c4a96ee7aad82b;hb=4f0fa78eb7cb88eab411bb5630a2f33514a74a20;hp=fdc0b0543aa102e41a7b4ee8529e875e8580e503;hpb=d97dcf91d4bd3b8d3c31e5aafa439d00ba31066c;p=spider.git

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