diff options
-rwxr-xr-x | doc/scripts/create-mime.conf.pl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/doc/scripts/create-mime.conf.pl b/doc/scripts/create-mime.conf.pl index 3cb421f6..2a228434 100755 --- a/doc/scripts/create-mime.conf.pl +++ b/doc/scripts/create-mime.conf.pl @@ -5,6 +5,10 @@ use strict; +# future: might use Getopt::Std, but this is simple enough for now +my $verbose = 0; +foreach (@ARGV) { $verbose = 1 if ($_ eq "-v"); } + # text/* subtypes to serve as "text/...; charset=utf-8" # text/html IS NOT INCLUDED: html has its own method for defining charset # (<meta>), but the standards specify that content-type in HTTP wins over @@ -130,7 +134,7 @@ sub add { } } - print STDERR "Duplicate mimetype: '${extension}' => '${mimetype}' (already have '${have}'), merging to 'application/octet-stream'\n"; + print STDERR "Duplicate mimetype: '${extension}' => '${mimetype}' (already have '${have}'), merging to 'application/octet-stream'\n" if $verbose; set ($extension, 'application/octet-stream'); } else { set @_; |