From a79ed63d7b2c53c1f360512afa2a68ba311b9554 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 14 Sep 2001 20:44:18 +0000 Subject: [PATCH] Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd doesn't. --- Changes | 1 + perl/DXLogPrint.pm | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 5bc15e13..98822b09 100644 --- 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 ad0b1970..d1ad9dd6 100644 --- 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( -- 2.43.0