Annotation of embedaddon/lighttpd/doc/scripts/create-mime.conf.pl, revision 1.1
1.1 ! misho 1: #!/usr/bin/perl -w
! 2:
! 3: # Based on create-mime.assign.pl in debian lighttpd (1.4.x) package
! 4: # Creates an example mime.conf from /etc/mime.types
! 5:
! 6: use strict;
! 7:
! 8: # text/* subtypes to serve as "text/...; charset=utf-8"
! 9: # text/html IS NOT INCLUDED: html has its own method for defining charset
! 10: # (<meta>), but the standards specify that content-type in HTTP wins over
! 11: # the setting in the html document.
! 12: my %text_utf8 = map { $_ => 1 } qw(
! 13: css
! 14: csv
! 15: plain
! 16: x-bibtex
! 17: x-boo
! 18: x-c++hdr
! 19: x-c++src
! 20: x-chdr
! 21: x-csh
! 22: x-csrc
! 23: x-dsrc
! 24: x-diff
! 25: x-haskell
! 26: x-java
! 27: x-lilypond
! 28: x-literate-haskell
! 29: x-makefile
! 30: x-moc
! 31: x-pascal
! 32: x-perl
! 33: x-python
! 34: x-scala
! 35: x-sh
! 36: x-tcl
! 37: x-tex
! 38: );
! 39:
! 40: # map extension to hash which maps types to the type they should be replaced with
! 41: my %manual_conflicts_resolve = (
! 42: '.ra' => {
! 43: 'audio/x-pn-realaudio' => 'audio/x-realaudio',
! 44: },
! 45: );
! 46:
! 47: open MIMETYPES, "/etc/mime.types" or die "Can't open /etc/mime.types: $!";
! 48:
! 49: my %extensions;
! 50: sub set {
! 51: my ($extension, $mimetype) = @_;
! 52: $extensions{$extension} = $mimetype;
! 53: }
! 54: sub add {
! 55: my ($extension, $mimetype) = @_;
! 56: my $have = $extensions{$extension};
! 57:
! 58: my $r = $manual_conflicts_resolve{$extension};
! 59: # update @_ too for calls to set
! 60: $_[1] = $mimetype = $r->{$mimetype} if $r && $r->{$mimetype};
! 61:
! 62: # mime.types can have same extension for different mime types
! 63: if ($have) {
! 64: # application/octet-stream means we couldn't resolve another conflict
! 65: return if $have eq $mimetype || $have eq 'application/octet-stream';
! 66:
! 67: my ($have_type, $have_subtype) = split /\//, $have, 2;
! 68: my ($type, $subtype) = split /\//, $mimetype, 2;
! 69:
! 70: my $have_x = ($have_type =~ /^x-/ || $have_subtype =~ /^x-/);
! 71: my $x = ($type =~ /^x-/ || $subtype =~ /^x-/);
! 72:
! 73: # entries without x- prefix in type/subtype win:
! 74: if ($have_x && !$x) {
! 75: return set @_; # overwrite
! 76: } elsif ($x && !$have_x) {
! 77: return; # ignore
! 78: }
! 79:
! 80: # text/ wins over application/ for same subtype
! 81: if ($subtype eq $have_subtype) {
! 82: if ($type eq "text" && $have_type eq "application") {
! 83: return set @_; # overwrite
! 84: } elsif ($have_type eq "text" && $type eq "application") {
! 85: return; # ignore
! 86: }
! 87: }
! 88:
! 89: print STDERR "Duplicate mimetype: '${extension}' => '${mimetype}' (already have '${have}'), merging to 'application/octet-stream'\n";
! 90: set ($extension, 'application/octet-stream');
! 91: } else {
! 92: set @_;
! 93: }
! 94: }
! 95:
! 96: sub print_type {
! 97: my ($extension, $mimetype) = @_;
! 98: if ($mimetype =~ /^text\/(.*)$/) {
! 99: $mimetype .= "; charset=utf-8" if $text_utf8{$1};
! 100: }
! 101:
! 102: print "\t\"${extension}\" => \"${mimetype}\",\n";
! 103: }
! 104:
! 105: while (<MIMETYPES>) {
! 106: chomp;
! 107: s/\#.*//;
! 108: next if /^\w*$/;
! 109: if (/^([a-z0-9\/+-.]+)\s+((?:[a-z0-9.+-]+[ ]?)+)$/i) {
! 110: my $mimetype = $1;
! 111: my @extensions = split / /, $2;
! 112:
! 113: foreach my $ext (@extensions) {
! 114: add(".${ext}", $mimetype);
! 115: }
! 116: }
! 117: }
! 118:
! 119: # missing in /etc/mime.types;
! 120: # from http://www.iana.org/assignments/media-types/media-types.xhtml
! 121: add(".dtd", "application/xml-dtd");
! 122:
! 123: # other useful mappings
! 124: my %useful = (
! 125: ".tar.gz" => "application/x-gtar-compressed",
! 126: ".gz" => "application/x-gzip",
! 127: ".tbz" => "application/x-gtar-compressed",
! 128: ".tar.bz2" => "application/x-gtar-compressed",
! 129: ".bz2" => "application/x-bzip",
! 130: ".log" => "text/plain",
! 131: ".conf" => "text/plain",
! 132: ".spec" => "text/plain",
! 133: "README" => "text/plain",
! 134: "Makefile" => "text/x-makefile",
! 135: );
! 136:
! 137: while (my ($ext, $mimetype) = each %useful) {
! 138: add($ext, $mimetype) unless $extensions{$ext};
! 139: }
! 140:
! 141:
! 142: print <<EOF;
! 143: # created by create-mime.conf.pl
! 144:
! 145: #######################################################################
! 146: ##
! 147: ## MimeType handling
! 148: ## -------------------
! 149: ##
! 150: ## https://redmine.lighttpd.net/projects/lighttpd/wiki/Mimetype_assignDetails
! 151:
! 152: ##
! 153: ## mimetype.xattr-name
! 154: ## Set the extended file attribute name used to obtain mime type
! 155: ## (must also set mimetype.use-xattr = "enable")
! 156: ##
! 157: ## Default value is "Content-Type"
! 158: ##
! 159: ## freedesktop.org Shared MIME-info Database specification suggests
! 160: ## user-defined value ("user.mime_type") as name for extended file attribute
! 161: #mimetype.xattr-name = "user.mime_type"
! 162:
! 163: ##
! 164: ## Use extended attribute named in mimetype.xattr-name (default "Content-Type")
! 165: ## to obtain mime type if possible
! 166: ##
! 167: ## Disabled by default
! 168: ##
! 169: #mimetype.use-xattr = "enable"
! 170:
! 171: ##
! 172: ## mimetype ("Content-Type" HTTP header) mapping for static file handling
! 173: ##
! 174: ## The first matching suffix is used. If no mapping is found
! 175: ## 'application/octet-stream' is used, and caching (etag/last-modified handling)
! 176: ## is disabled to prevent clients from caching "unknown" mime types.
! 177: ##
! 178: ## Therefore the last mapping is:
! 179: ## "" => "application/octet-stream"
! 180: ## This matches all extensions and acts as default mime type, and enables
! 181: ## caching for those.
! 182: mimetype.assign = (
! 183: EOF
! 184:
! 185: # sort "x-" and "vnd." prefixed names after everything else
! 186: sub mimecmpvalue {
! 187: my ($mimetype) = @_;
! 188: $mimetype =~ s/(^|\/)(x-|vnd\.)/~$1$2/g;
! 189: return $mimetype;
! 190: }
! 191: sub countdots {
! 192: my ($s) = @_;
! 193: return scalar(() = $s =~ /\./g);
! 194: }
! 195: # the first matching suffix wins, so we have to sort by "length"
! 196: # as all extensions start with "." we use the number of "."s as length
! 197: # the exceptions are "README" and "Makefile" which are assumed not to conflict
! 198: # (i.e. are not a suffix of any other extension)
! 199: for my $ext (sort { countdots($b) <=> countdots($a) || mimecmpvalue($extensions{$a}) cmp mimecmpvalue($extensions{$b}) || $a cmp $b } keys(%extensions)) {
! 200: print_type($ext, $extensions{$ext});
! 201: }
! 202:
! 203: print <<EOF;
! 204:
! 205: # enable caching for unknown mime types:
! 206: "" => "application/octet-stream"
! 207: )
! 208: EOF
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to create-mime.conf.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / lighttpd / doc / scripts