[Mimedefang] mimedefang subject filtering code

David F. Skoll dfs at roaringpenguin.com
Wed Feb 18 08:23:23 EST 2004


On Wed, 18 Feb 2004, Andrew Jayes wrote:

>     my($msgSubject);
>     my($hfile) = "HEADERS";
>     while(<HEADERS>) {

No, no, no!  You aren't opening the file; Perl won't have a clue what you're
trying to do.

Also, the message subject is available in the global variable $Subject
without your having to do any magic.  So just use this:

	if ($Subject =~ /\bparis hilton\b/i) {
	    # whatever....
	}

--
David.



More information about the MIMEDefang mailing list