[Mimedefang] Tighter filename matching

[David F. Skoll]

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.