projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sort conflicts
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index d6a81ec4328ff0e4d8db67eda6010474df64bca2..71cef0e220d81071f5ddf931973020cb301a1b49 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-415,7
+415,7
@@
sub normal
}
# is it 'baddx'
}
# is it 'baddx'
- if ($baddx->in($field[2])) {
+ if ($baddx->in($field[2])
|| BadWords::check($field[2]) || $field[2] =~ /COCK/
) {
dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
return;
}
dbg("PCPROT: Bad DX spot, ignored") if isdbg('chanerr');
return;
}
@@
-957,6
+957,7
@@
sub normal
}
if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
}
if (($pcno >= 28 && $pcno <= 33) || $pcno == 40 || $pcno == 42 || $pcno == 49) { # mail/file handling
+ return if $pcno == 49 && eph_dup($line);
if ($pcno == 49 || $field[1] eq $main::mycall) {
DXMsg::process($self, $line);
} else {
if ($pcno == 49 || $field[1] eq $main::mycall) {
DXMsg::process($self, $line);
} else {