From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

MSERGEANT / AxKit2-1.1 / plugins / fast_mime_map 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
—
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

              
#!/usr/bin/perl -w
# Copyright 2001-2006 The Apache Software Foundation
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
#
=head1 NAME
fast_mime_map - File extension to MIME type mapping
=head1 SYNOPSIS
    Plugin fast_mime_map
     
    # Optionally:
    MimeMap   .foo   application/foo
=head1 DESCRIPTION
This module attempts to map filenames to MIME types without doing any I/O. It
is purely based on file extensions. If you need to introspect the contents of
the file to get the MIME type then use the magic_mime_map plugin.
There is a default mapping. Best to view the source to find out what it is.
Anything specified in the C<MimeMap> config directives overrides the default
mappings.
The default MIME type is B<text/html> (in case an extension cannot be found in
your custom mappings nor the default mappings). To override the default mapping:
    MimeMap   #default   application/octet-stream
(Or whatever default you would prefer).
=cut
my %default_types = (
        'html'     => 'text/html',
        'htm'      => 'text/html',
        'txt'      => 'text/plain',
        'gif'      => 'image/gif',
        'jpeg'     => 'image/jpeg',
        'jpg'      => 'image/jpeg',
        'png'      => 'image/png',
        'tiff'     => 'image/tiff',
        'ico'      => 'image/x-icon',
        'css'      => 'text/css',
        'csv'      => 'text/csv',
        'rtf'      => 'text/rtf',
        'xml'      => 'text/xml',
        'mpg'      => 'video/mpeg',
        'avi'      => 'application/octet-stream',
        'eml'      => 'message/rfc822',
        'mp2'      => 'audio/mpeg',
        'mp3'      => 'audio/mpeg',
        'mp4'      => 'audio/mp4',
        'js'       => 'application/ecmascript',
        'doc'      => 'application/msword',
        'gz'       => 'application/octet-stream',
        'xhtml'    => 'application/xhtml+xml',
        'dtd'      => 'application/xml-dtd',
        'xls'      => 'application/ms-excel',
        'ppt'      => 'application/ms-powerpoint',
        'pps'      => 'application/ms-powerpoint',
        'rpm'      => 'application/octet-stream',
        'pdf'      => 'application/pdf',
        'ps'       => 'application/postscript',
        'rdf'      => 'application/rdf+xml',
        'smil'     => 'application/smil+xml',
        '#default'  => 'text/html',
    );
sub conf_MimeMap {
    my ($self,$ext,$type) = @_;
    $self->config('MimeMap',{%default_types}) unless $self->config('MimeMap');
        $ext =~ s/^\.//;
    $self->config('MimeMap')->{$ext} = $type;
    return ();
}
sub hook_mime_map {
    my ($self, $hd, $filename) = @_;
     
    my $map = $self->config('MimeMap') || \%default_types;
     
    $filename =~ s/.*\///;
    my @parts = split(/\./, $filename);
    my $uno = 0;
    while (@parts) {
        my $name = join('.', @parts);
        if (exists($map->{$name})) {
            $hd->mime_type($map->{$name});
            return OK;
        }
        shift @parts;
    }
    $hd->mime_type($map->{'#default'});
    return DECLINED;
}