[Mimedefang] Unsafe file types

Lucas Albers admin at cs.montana.edu
Sun Nov 30 18:45:04 EST 2003

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

Then install binary package for your os.


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...");


More information about the MIMEDefang mailing list