lighttpd: Use += instead of = to increase robustness.
[matthijs/servers/drsnuggles.git] / etc / lighttpd / scripts / create-mime.assign.pl
1 #!/usr/bin/perl -w
2
3 # This script is based on /usr/share/lighttpd/create-mime-assign.pl. This
4 # script is changed to include a charset for text types.
5
6 use strict;
7 open MIMETYPES, "/etc/mime.types" or exit;
8 print "mimetype.assign = (\n";
9 my %extensions;
10 while(<MIMETYPES>) {
11   chomp;
12   s/\#.*//;
13   next if /^\w*$/;
14   if(/^([a-z0-9\/+-.]+)\s+((?:[a-z0-9.+-]+[ ]?)+)$/) {
15     my $mime = $1; my $exts = $2;
16     # Append encoding for text formats
17     if ($mime =~ /^text\//) {
18       $mime .= "; charset=iso-8859-1";
19     }
20     foreach(split / /, $exts) {
21       # mime.types can have same extension for different
22       # mime types
23       next if $extensions{$_};
24       $extensions{$_} = 1;
25
26       print "\".$_\" => \"$mime\",\n";
27     }
28   }
29 }
30 print ")\n";