http://www.perlmonks.org?node_id=262216


in reply to Re: dialup spam removal with Net::POP3 (program repair shop)
in thread dialup spam removal with Net::POP3

Thanks Aristotle. You always can be counted on to improve someone's code. :-) I put the size check at the end, because I wanted to let anyone on the "goodlist" to send me anything, so I had to check the headers first. I've been testing my version for the past few days on pop servers with alot of spam, I'm getting pretty happy with it. The only problem I'm running into is that the headers always don't come in any well defined order, and sometimes the From: dosn't get checked until some other line triggers a bad flag. I think your idea to grep for lines, can solve that.
  • Comment on Re: Re: dialup spam removal with Net::POP3