add link to show/debug_ring as dmesg

[spider.git] / perl / DXProtHandle.pm

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index fdc0b0543aa102e41a7b4ee8529e875e8580e503..5b213b80d26e1d76aa42b762b798071e4c18e570 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: $from\@$onode%s -> $to '$text'", $via ne '*' ? " via $via" : '';
+               dbg($s);
+       }
+       
        # will we allow it at all?
        if ($censorpc) {
                my @bad;