diff options
author | Peter Palfrader <peter@palfrader.org> | 2003-11-04 04:16:15 +0000 |
---|---|---|
committer | Peter Palfrader <peter@palfrader.org> | 2003-11-04 04:16:15 +0000 |
commit | 8e107a6a178c2cf1b3a01ca5cf5b5e6916fc1ca8 (patch) | |
tree | 02e6c45d3f4e9d5401b32dffd7d6c332396dea0d | |
parent | b717666cf371a74b3c24e875ca01da5b3daf856b (diff) |
also ignore testing remailers in fromlines
-rw-r--r-- | Echolot/Fromlines.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Echolot/Fromlines.pm b/Echolot/Fromlines.pm index 4854fe3..6d16571 100644 --- a/Echolot/Fromlines.pm +++ b/Echolot/Fromlines.pm @@ -1,7 +1,7 @@ package Echolot::Fromlines; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Fromlines.pm,v 1.10 2003/06/06 09:33:15 weasel Exp $ +# $Id: Fromlines.pm,v 1.11 2003/11/04 04:16:15 weasel Exp $ # =pod @@ -34,6 +34,8 @@ sub build_fromlines() { my $nick = Echolot::Globals::get()->{'storage'}->get_nick($addr); next unless defined $nick; my $caps = Echolot::Globals::get()->{'storage'}->get_capabilities($addr); + next unless defined $caps; + next unless $caps !~ m/\btesting\b/i; my $middleman = $caps =~ m/\bmiddle\b/; next if $middleman; |