add "progress" to pc93 messages

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index fdc0b0543aa102e41a7b4ee8529e875e8580e503..4e3480d66cd08bc3fc99d250b7c4a96ee7aad82b 100644 (file)
--- 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;