[Mimedefang] Tighter filename matching
David F. Skoll
dfs at roaringpenguin.com
Thu May 30 20:45:26 EDT 2002
This seems a little tighter:
sub filter_bad_filename {
my($entity) = @_;
my($bad_exts, $re);
# Bad extensions
$bad_exts = '(ade|adp|bas|bat|chm|cmd|com|cpl|crt|dll|exe|hlp|hta|inf|ini|ins|isp|jse?|lib|lnk|mdb|mde|msc|msi|msp|mst|ocx|pcd|pif|reg|scr|sct|shb|shs|sys|url|vb|vbe|vbs|vxd|wsc|wsf|wsh)';
# Do not allow:
# - curlies
# - bad extensions at end or followed by non-alphanum
$re = '(\{)|(\})|(\.' . $bad_exts . ')([^-A-Za-z0-9_]|$)';
return re_match($entity, $re);
}
--
David.
More information about the MIMEDefang
mailing list