Support for the standard mime.types map in gitweb

gitweb will try to look up the filename mimetype in /etc/mime.types
and optionally a user-configured mime.types map as well.

Signed-off-by: Petr Baudis <pasky@suse.cz>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Petr Baudis 2006-06-18 00:01:06 +02:00 коммит произвёл Junio C Hamano
Родитель ad14e93175
Коммит 2d00737489
1 изменённых файлов: 44 добавлений и 0 удалений

Просмотреть файл

@ -49,6 +49,11 @@ my $projects_list = "index/index.aux";
my $default_blob_plain_mimetype = 'text/plain';
my $default_text_plain_charset = undef;
# file to use for guessing MIME types before trying /etc/mime.types
# (relative to the current git repository)
my $mimetypes_file = undef;
# input validation and dispatch
my $action = $cgi->param('a');
if (defined $action) {
@ -1486,6 +1491,40 @@ sub git_blob {
git_footer_html();
}
sub mimetype_guess_file {
my $filename = shift;
my $mimemap = shift;
-r $mimemap or return undef;
my %mimemap;
open(MIME, $mimemap) or return undef;
while (<MIME>) {
my ($mime, $exts) = split(/\t+/);
my @exts = split(/\s+/, $exts);
foreach my $ext (@exts) {
$mimemap{$ext} = $mime;
}
}
close(MIME);
$filename =~ /\.(.*?)$/;
return $mimemap{$1};
}
sub mimetype_guess {
my $filename = shift;
my $mime;
$filename =~ /\./ or return undef;
if ($mimetypes_file) {
my $file = $mimetypes_file;
$file =~ m#^/# or $file = "$projectroot/$path/$file";
$mime = mimetype_guess_file($filename, $file);
}
$mime ||= mimetype_guess_file($filename, '/etc/mime.types');
return $mime;
}
sub git_blob_plain_mimetype {
my $fd = shift;
my $filename = shift;
@ -1493,6 +1532,11 @@ sub git_blob_plain_mimetype {
# just in case
return $default_blob_plain_mimetype unless $fd;
if ($filename) {
my $mime = mimetype_guess($filename);
$mime and return $mime;
}
if (-T $fd) {
return 'text/plain' .
($default_text_plain_charset ? '; charset='.$default_text_plain_charset : '');