I'm getting dictionary spams to my catch-all, so I have to add some more addresses to my procmail blacklist (code wrapped to not bust my layout).
Here I mine my junk mail folder for addresses the spammers have used:
$ perl -lne "print $1 if /(\w+)\@keithdevens\.com/;"
C:\keith\prog\Thunderbird\ImapMail\keithdevens.com\INBOX.sbd\Junk
| sort | uniq > addresses.txt
Then I (manually) examine addresses to remove ones I don't want to block, add the existing addresses I'm blocking, then regexify them to aid procmail:
$ perl -e "use Regex::PreSuf; print presuf(<>)" addresses.txt
and copy that to my procmail blacklist.
Monday, January 16, 2006
Permalink
Feel free to post a comment below. Please see my comment policy.
Formatting Rules (No HTML):