git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
08516d5
)
Spam filter update: "=spam".';german-news'
author
short
<>
Sun, 22 May 2005 12:57:07 +0000
(12:57 +0000)
committer
short
<>
Sun, 22 May 2005 12:57:07 +0000
(12:57 +0000)
PerlMail/Config.pm
patch
|
blob
|
history
diff --git
a/PerlMail/Config.pm
b/PerlMail/Config.pm
index
14c57b8
..
2c6c559
100644
(file)
--- a/
PerlMail/Config.pm
+++ b/
PerlMail/Config.pm
@@
-319,23
+319,27
@@
sub audit
brandenburg.rz.fhtw-berlin.de
forum.gofeminin.de
service.spiegel.de
brandenburg.rz.fhtw-berlin.de
forum.gofeminin.de
service.spiegel.de
+ www.aufenthaltstitel.de
+ www.berlinonline.de
www.deutschlandchronik.de
www.heise.de
www.leverkusener-aufbruch.com
www.deutschlandchronik.de
www.heise.de
www.leverkusener-aufbruch.com
+ www.libasoli.de
www.mjoelnirsseite.de
www.npd-nrw.net
www.npd.de
www.rp-online.de
www.spiegel.de
www.taz.de
www.mjoelnirsseite.de
www.npd-nrw.net
www.npd.de
www.rp-online.de
www.spiegel.de
www.taz.de
+ www.zdf.de
));
my $found;
));
my $found;
- $found=1 if /^\s*Lese selbst:\n/;
while (m{http://([^/]+)/}g) {
do { $found=1; next; } if $sites{$1};
$found=0;
last;
}
while (m{http://([^/]+)/}g) {
do { $found=1; next; } if $sites{$1};
$found=0;
last;
}
+ $found=1 if /^\s*Lese selbst:\n/s;
store "=spam".';german-news' if $found;
}
};
store "=spam".';german-news' if $found;
}
};