projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
3d03781
)
Make sh/log only show stuff that sh/ann, sh/talk, sh/rcmd doesn't.
author
minima
<minima>
Fri, 14 Sep 2001 20:44:18 +0000
(20:44 +0000)
committer
minima
<minima>
Fri, 14 Sep 2001 20:44:18 +0000
(20:44 +0000)
Changes
patch
|
blob
|
history
perl/DXLogPrint.pm
patch
|
blob
|
history
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.
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
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";
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';
}
if ($who) {
if ($hint) {
$hint .= ' && ';
}
$hint .= 'm{\\Q$who\\E}i';
- }
+ }
$hint = "next unless $hint" if $hint;
$eval = qq(
$hint = "next unless $hint" if $hint;
$eval = qq(