OK, It would appear as if I've just found the first (and lets hope
last) error in my spam elimination technique/code. In
~usenet/.qmail-default, the references regex will only work if the
message ID is on the same line as the References: string. I've
modified the regex (and code) to allow the Message ID to be on any
line following the regex before the next colon (:) appears indicating
that the next field is now starting.
The new ~usenet/.qmail-default is:
| perl -we "\$valid = 0; while (<>) { if ( /^References\:/ ) { while (<>) { if ( /\:/
|) {\$valid = 2; last; } if ( /<schultz\S+\@ipsware\.com>/ ) { \$valid = 1; last; } }
|last if \$valid == 1; if (\$valid == 2) { \$valid = 0; last; } } } exit 99 if
|(\$valid == 0); exit 0; " || bouncesaying "You're either using a crap MUA or you're
|spamming me. Go away."
| forward "brett-$LOCAL"
It looks messy, but it isn't really. If you want to figure out how it
works, just put a new line after each ; and { }. Indents help as well.
Any opinions on this method of spam elimination, please let me know!
Brett.
--
"I wonder what Jesus would do if HE had to reload Windows 95 for the
eighth time today ?"
- Mirabour Gilbride
