[Mimedefang] Unsafe file types

[Lucas Albers]

how about this?
This used the perl library for mimetype determination.
install File::MimeInfo::Magic

Then install binary package for your os.

http://freedesktop.org/Software/shared-mime-info

This should be a more generalized solution, as you can just add in the
types to block on the regular expression match after the comparison.

 use File::MimeInfo::Magic;


   sub filter ($$$$) {
     my($entity, $fname, $ext, $type) = @_;
     my $path = $entity->bodyhandle->path;
     my $mimeftype = mimetype($path);
     if ($mimeftype =~ /^application\/x-executable$/) {
     return action_bounce("$fname smells like a Windoze EXE...");
    }
}

--Luke