[Mimedefang] Filtering new Mirosoft virus email ...
James Smith
sysadmin at aims.gov.au
Wed Sep 24 18:40:01 EDT 2003
> -----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
><> ><> ><> ><> ><> ~~~~~ <>< <>< <>< <>< <><
More information about the MIMEDefang
mailing list