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

diff --git a/Changes b/Changes
index 5bc15e13d3b3f22eee74c16ad2a070239b900d48..98822b0963ff8ac1aecf205ecfedbec8e96e6a5e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -13,6 +13,7 @@ you probably won't :-)
 will not be allowed to login anymore.
 4. Fiddle with the lockout mechanism so that set/login g1tlh also locks out
 g1tlh-1 -> g1tlh-15 UNLESS one of these is specifically unlocked.
+5. Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd doesn't.
 13Sep01=======================================================================
 1. did some work on making talk more intelligent and fixed a>b problem.
 2. fixed a nasty problem on input when being hit with full buffers of 

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(