[Mimedefang] Filtering new Mirosoft virus email ...

[James Smith]

> -----Original Message-----
> From: Kenneth Porter [mailto:shiva at sewingwitch.com] 
> Sent: Thursday, 25 September 2003 6:56 AM
>
> How can I get at the header name, instead of its value? I 
> want to check for
> "SUBJECT:" (all upper case).

Untested, but you'll get the idea..

sub filter_begin {
        if (open(IN, "<INPUTMSG")) {
                while (<IN>) {
                        if ($_ =~ /^SUBJECT:/) {
					close(IN);
					return action_discard();
				}
			}
			close(IN);
	}
}

Regards
James

><> ><> ><> ><> ><> ~~~~~ <>< <>< <>< <>< <><
Systems Administrator
Australian Insitute of Marine Science
Townsville, FNQ, Australia
Phone +61 7 4753 4400  Fax +61 7 4772 5852
Email: sysadmin at aims.gov.au
><> ><> ><> ><> ><> ~~~~~ <>< <>< <>< <>< <><