X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProtHandle.pm;h=5b213b80d26e1d76aa42b762b798071e4c18e570;hb=ea783c61e83adb1b7f4ca0314b3ddf4171896bf1;hp=fdc0b0543aa102e41a7b4ee8529e875e8580e503;hpb=ec553c968339e68ba23a6f674aed1e9c32bfa1a3;p=spider.git

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