mirror of
https://git.fsfe.org/FSFE/fsfe-local-build.git
synced 2026-04-18 10:23:05 +02:00
21 lines
461 B
Perl
Executable File
21 lines
461 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
use strict;
|
|
open MIMETYPES, "/etc/mime.types" or exit;
|
|
print "mimetype.assign = (\n";
|
|
my %extensions;
|
|
while(<MIMETYPES>) {
|
|
chomp;
|
|
s/\#.*//;
|
|
next if /^\w*$/;
|
|
if(/^([a-z0-9\/+-.]+)\s+((?:[a-z0-9.+-]+[ ]?)+)$/) {
|
|
foreach(split / /, $2) {
|
|
# mime.types can have same extension for different
|
|
# mime types
|
|
next if $extensions{$_};
|
|
$extensions{$_} = 1;
|
|
print "\".$_\" => \"$1\",\n";
|
|
}
|
|
}
|
|
}
|
|
print ")\n";
|