Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd doesn't.

[spider.git] / perl / DXLogPrint.pm

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index ad0b1970017d639ae60f8e7c2e5aba1e10e2947a..d1ad9dd655c2ff1a106484289835f41115ecb5d0 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -46,13 +46,15 @@ sub print
            
        if ($pattern) {
                $hint = "m{\\Q$pattern\\E}i";
+       } else {
+               $hint = "!m{ann|rcmd|talk}";
        }
        if ($who) {
                if ($hint) {
                        $hint .= ' && ';
                }
                $hint .= 'm{\\Q$who\\E}i';
-       }
+       } 
        $hint = "next unless $hint" if $hint;
        
        $eval = qq(