gitweb: A couple of page title tweaking

diff --git a/gitweb/gitweb.cgi b/gitweb/gitweb.cgi

index 8fde1c8833c87b64030d46cd769c340594bc6d5f..dd228bab4cf5b7f777cf2457cec8cf4242f5135b 100755 (executable)
--- a/gitweb/gitweb.cgi
+++ b/gitweb/gitweb.cgi
@@ -39,7 +39,7 @@ my $home_link =               $my_uri;
  my $home_text =                "indextext.html";
  
  # URI of default stylesheet
-my $stylesheet =       "gitweb.css";
+my $stylesheet =       "gitweb.css";
  
  # source of projects list
  #my $projects_list =   $projectroot;
@@ -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) {
@@ -256,6 +261,12 @@ sub git_header_html {
                 $title .= " - $project";
                 if (defined $action) {
                         $title .= "/$action";
+                       if (defined $file_name) {
+                               $title .= " - $file_name";
+                               if ($action eq "tree" && $file_name !~ m|/$|) {
+                                       $title .= "/";
+                               }
+                       }
                 }
         }
         print $cgi->header(-type=>'text/html',  -charset => 'utf-8', -status=> $status, -expires => $expires);
@@ -267,7 +278,7 @@ sub git_header_html {
  <head>
  <meta http-equiv="content-type" content="text/html; charset=utf-8"/>
  <meta name="robots" content="index, nofollow"/>
-<link rel="stylesheet" href="$stylesheet"/>
+<link rel="stylesheet" type="text/css" href="$stylesheet"/>
  <title>$title</title>
  $rss_link
  </head>
@@ -1486,6 +1497,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 +1538,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 : '');