gitweb: Remove characters entities entirely when shortening string

[Gitweb] / gitweb.cgi
diff --git a/gitweb.cgi b/gitweb.cgi

index fc42778e211aac54b315bae8be02504f1c0a40261b9bc7bf4ca3c376cd0e6489..ccd1949af5f2dab45ac9c0f3b39203089af65c61b2358fd7a03a772eda0a2007 100755 (executable)
--- a/gitweb.cgi
+++ b/gitweb.cgi
@@ -16,54 +16,56 @@ use Encode;
  use Fcntl ':mode';
  binmode STDOUT, ':utf8';
  
  use Fcntl ':mode';
  binmode STDOUT, ':utf8';
  
-my $cgi = new CGI;
-my $version = "267";
-my $my_url = $cgi->url();
-my $my_uri = $cgi->url(-absolute => 1);
-my $rss_link = "";
+our $cgi = new CGI;
+our $version = "267";
+our $my_url = $cgi->url();
+our $my_uri = $cgi->url(-absolute => 1);
+our $rss_link = "";
  
  
-# location of the git-core binaries
-my $gitbin = "/usr/bin";
+# core git executable to use
+# this can just be "git" if your webserver has a sensible PATH
+our $GIT = "/usr/bin/git";
  
  # absolute fs-path which will be prepended to the project path
  
  # absolute fs-path which will be prepended to the project path
-#my $projectroot = "/pub/scm";
-my $projectroot = "/home/kay/public_html/pub/scm";
+#our $projectroot = "/pub/scm";
+our $projectroot = "/home/kay/public_html/pub/scm";
  
  
-# version of the git-core binaries
-my $git_version = qx($gitbin/git --version);
-if ($git_version =~ m/git version (.*)$/) {
-       $git_version = $1;
-} else {
-       $git_version = "unknown";
-}
+# version of the core git binary
+our $git_version = qx($GIT --version) =~ m/git version (.*)$/ ? $1 : "unknown";
  
  # location for temporary files needed for diffs
  
  # location for temporary files needed for diffs
-my $git_temp = "/tmp/gitweb";
+our $git_temp = "/tmp/gitweb";
+if (! -d $git_temp) {
+       mkdir($git_temp, 0700) || die_error("Couldn't mkdir $git_temp");
+}
  
  # target of the home link on top of all pages
  
  # target of the home link on top of all pages
-my $home_link = $my_uri;
+our $home_link = $my_uri;
+
+# name of your site or organization to appear in page titles
+# replace this with something more descriptive for clearer bookmarks
+our $site_name = $ENV{'SERVER_NAME'} || "Untitled";
  
  # html text to include at home page
  
  # html text to include at home page
-my $home_text = "indextext.html";
+our $home_text = "indextext.html";
  
  # URI of default stylesheet
  
  # URI of default stylesheet
-my $stylesheet = "gitweb.css";
+our $stylesheet = "gitweb.css";
  
  # source of projects list
  
  # source of projects list
-#my $projects_list = $projectroot;
-my $projects_list = "index/index.aux";
+#our $projects_list = $projectroot;
+our $projects_list = "index/index.aux";
  
  # default blob_plain mimetype and default charset for text/plain blob
  
  # default blob_plain mimetype and default charset for text/plain blob
-my $default_blob_plain_mimetype = 'text/plain';
-my $default_text_plain_charset  = undef;
+our $default_blob_plain_mimetype = 'text/plain';
+our $default_text_plain_charset  = undef;
  
  # file to use for guessing MIME types before trying /etc/mime.types
  # (relative to the current git repository)
  
  # file to use for guessing MIME types before trying /etc/mime.types
  # (relative to the current git repository)
-my $mimetypes_file = undef;
-
+our $mimetypes_file = undef;
  
  # input validation and dispatch
  
  # input validation and dispatch
-my $action = $cgi->param('a');
+our $action = $cgi->param('a');
  if (defined $action) {
         if ($action =~ m/[^0-9a-zA-Z\.\-_]/) {
                 undef $action;
  if (defined $action) {
         if ($action =~ m/[^0-9a-zA-Z\.\-_]/) {
                 undef $action;
@@ -78,7 +80,7 @@ if (defined $action) {
         }
  }
  
         }
  }
  
-my $order = $cgi->param('o');
+our $order = $cgi->param('o');
  if (defined $order) {
         if ($order =~ m/[^0-9a-zA-Z_]/) {
                 undef $order;
  if (defined $order) {
         if ($order =~ m/[^0-9a-zA-Z_]/) {
                 undef $order;
@@ -86,7 +88,7 @@ if (defined $order) {
         }
  }
  
         }
  }
  
-my $project = ($cgi->param('p') || $ENV{'PATH_INFO'});
+our $project = ($cgi->param('p') || $ENV{'PATH_INFO'});
  if (defined $project) {
         $project =~ s|^/||; $project =~ s|/$||;
         $project = validate_input($project);
  if (defined $project) {
         $project =~ s|^/||; $project =~ s|/$||;
         $project = validate_input($project);
@@ -102,14 +104,14 @@ if (defined $project) {
                 die_error(undef, "No such project.");
         }
         $rss_link = "<link rel=\"alternate\" title=\"" . esc_param($project) . " log\" href=\"" .
                 die_error(undef, "No such project.");
         }
         $rss_link = "<link rel=\"alternate\" title=\"" . esc_param($project) . " log\" href=\"" .
-                   "$my_uri?" . esc_param("p=$project;a=rss") . "\" type=\"application/rss+xml\"/>";
+                   "$my_uri?" . esc_param("p=$project;a=rss") . "\" type=\"application/rss+xml\"/>";
         $ENV{'GIT_DIR'} = "$projectroot/$project";
  } else {
         git_project_list();
         exit;
  }
  
         $ENV{'GIT_DIR'} = "$projectroot/$project";
  } else {
         git_project_list();
         exit;
  }
  
-my $file_name = $cgi->param('f');
+our $file_name = $cgi->param('f');
  if (defined $file_name) {
         $file_name = validate_input($file_name);
         if (!defined($file_name)) {
  if (defined $file_name) {
         $file_name = validate_input($file_name);
         if (!defined($file_name)) {
@@ -117,7 +119,7 @@ if (defined $file_name) {
         }
  }
  
         }
  }
  
-my $hash = $cgi->param('h');
+our $hash = $cgi->param('h');
  if (defined $hash) {
         $hash = validate_input($hash);
         if (!defined($hash)) {
  if (defined $hash) {
         $hash = validate_input($hash);
         if (!defined($hash)) {
@@ -125,7 +127,7 @@ if (defined $hash) {
         }
  }
  
         }
  }
  
-my $hash_parent = $cgi->param('hp');
+our $hash_parent = $cgi->param('hp');
  if (defined $hash_parent) {
         $hash_parent = validate_input($hash_parent);
         if (!defined($hash_parent)) {
  if (defined $hash_parent) {
         $hash_parent = validate_input($hash_parent);
         if (!defined($hash_parent)) {
@@ -133,7 +135,7 @@ if (defined $hash_parent) {
         }
  }
  
         }
  }
  
-my $hash_base = $cgi->param('hb');
+our $hash_base = $cgi->param('hb');
  if (defined $hash_base) {
         $hash_base = validate_input($hash_base);
         if (!defined($hash_base)) {
  if (defined $hash_base) {
         $hash_base = validate_input($hash_base);
         if (!defined($hash_base)) {
@@ -141,7 +143,7 @@ if (defined $hash_base) {
         }
  }
  
         }
  }
  
-my $page = $cgi->param('pg');
+our $page = $cgi->param('pg');
  if (defined $page) {
         if ($page =~ m/[^0-9]$/) {
                 undef $page;
  if (defined $page) {
         if ($page =~ m/[^0-9]$/) {
                 undef $page;
@@ -149,7 +151,7 @@ if (defined $page) {
         }
  }
  
         }
  }
  
-my $searchtext = $cgi->param('s');
+our $searchtext = $cgi->param('s');
  if (defined $searchtext) {
         if ($searchtext =~ m/[^a-zA-Z0-9_\.\/\-\+\:\@ ]/) {
                 undef $searchtext;
  if (defined $searchtext) {
         if ($searchtext =~ m/[^a-zA-Z0-9_\.\/\-\+\:\@ ]/) {
                 undef $searchtext;
@@ -225,7 +227,7 @@ if (!defined $action || $action eq "summary") {
         git_tag();
         exit;
  } elsif ($action eq "blame") {
         git_tag();
         exit;
  } elsif ($action eq "blame") {
-       git_blame();
+       git_blame2();
         exit;
  } else {
         undef $action;
         exit;
  } else {
         undef $action;
@@ -248,6 +250,7 @@ sub esc_html {
         my $str = shift;
         $str = decode("utf8", $str, Encode::FB_DEFAULT);
         $str = escapeHTML($str);
         my $str = shift;
         $str = decode("utf8", $str, Encode::FB_DEFAULT);
         $str = escapeHTML($str);
+       $str =~ s/\014/^L/g; # escape FORM FEED (FF) character (e.g. in COPYING file)
         return $str;
  }
  
         return $str;
  }
  
@@ -278,7 +281,7 @@ sub git_header_html {
         my $status = shift || "200 OK";
         my $expires = shift;
  
         my $status = shift || "200 OK";
         my $expires = shift;
  
-       my $title = "git";
+       my $title = "$site_name git";
         if (defined $project) {
                 $title .= " - $project";
                 if (defined $action) {
         if (defined $project) {
                 $title .= " - $project";
                 if (defined $action) {
@@ -291,7 +294,17 @@ sub git_header_html {
                         }
                 }
         }
                         }
                 }
         }
-       print $cgi->header(-type=>'text/html',  -charset => 'utf-8', -status=> $status, -expires => $expires);
+       my $content_type;
+       # require explicit support from the UA if we are to send the page as
+       # 'application/xhtml+xml', otherwise send it as plain old 'text/html'.
+       # we have to do this because MSIE sometimes globs '*/*', pretending to
+       # support xhtml+xml but choking when it gets what it asked for.
+       if ($cgi->http('HTTP_ACCEPT') =~ m/(,|;|\s|^)application\/xhtml\+xml(,|;|\s|$)/ && $cgi->Accept('application/xhtml+xml') != 0) {
+               $content_type = 'application/xhtml+xml';
+       } else {
+               $content_type = 'text/html';
+       }
+       print $cgi->header(-type=>$content_type, -charset => 'utf-8', -status=> $status, -expires => $expires);
         print <<EOF;
  <?xml version="1.0" encoding="utf-8"?>
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
         print <<EOF;
  <?xml version="1.0" encoding="utf-8"?>
  <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
@@ -299,7 +312,7 @@ sub git_header_html {
  <!-- git web interface v$version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke -->
  <!-- git core binaries version $git_version -->
  <head>
  <!-- git web interface v$version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke -->
  <!-- git core binaries version $git_version -->
  <head>
-<meta http-equiv="content-type" content="text/html; charset=utf-8"/>
+<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>
  <meta name="robots" content="index, nofollow"/>
  <title>$title</title>
  <link rel="stylesheet" type="text/css" href="$stylesheet"/>
  <meta name="robots" content="index, nofollow"/>
  <title>$title</title>
  <link rel="stylesheet" type="text/css" href="$stylesheet"/>
@@ -327,7 +340,7 @@ EOF
                 } elsif (defined $hash) {
                         $search_hash = $hash;
                 } else {
                 } elsif (defined $hash) {
                         $search_hash = $hash;
                 } else {
-                       $search_hash  = "HEAD";
+                       $search_hash = "HEAD";
                 }
                 $cgi->param("a", "search");
                 $cgi->param("h", $search_hash);
                 }
                 $cgi->param("a", "search");
                 $cgi->param("h", $search_hash);
@@ -373,10 +386,87 @@ sub die_error {
         exit;
  }
  
         exit;
  }
  
+sub git_page_nav {
+       my ($current, $suppress, $head, $treehead, $treebase, $extra) = @_;
+       $extra = '' if !defined $extra; # pager or formats
+
+       my @navs = qw(summary shortlog log commit commitdiff tree);
+       if ($suppress) {
+               @navs = grep { $_ ne $suppress } @navs;
+       }
+
+       my %arg = map { $_, ''} @navs;
+       if (defined $head) {
+               for (qw(commit commitdiff)) {
+                       $arg{$_} = ";h=$head";
+               }
+               if ($current =~ m/^(tree | log | shortlog | commit | commitdiff | search)$/x) {
+                       for (qw(shortlog log)) {
+                               $arg{$_} = ";h=$head";
+                       }
+               }
+       }
+       $arg{tree} .= ";h=$treehead" if defined $treehead;
+       $arg{tree} .= ";hb=$treebase" if defined $treebase;
+
+       print "<div class=\"page_nav\">\n" .
+               (join " | ",
+                map { $_ eq $current
+                                        ? $_
+                                        : $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$_$arg{$_}")}, "$_")
+                                }
+                @navs);
+       print "<br/>\n$extra<br/>\n" .
+             "</div>\n";
+}
+
+sub git_header_div {
+       my ($action, $title, $hash, $hash_base) = @_;
+       my $rest = '';
+
+       $rest .= ";h=$hash" if $hash;
+       $rest .= ";hb=$hash_base" if $hash_base;
+
+       print "<div class=\"header\">\n" .
+             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$action$rest"),
+                      -class => "title"}, $title ? $title : $action) . "\n" .
+             "</div>\n";
+}
+
+sub git_get_paging_nav {
+       my ($action, $hash, $head, $page, $nrevs) = @_;
+       my $paging_nav;
+
+
+       if ($hash ne $head || $page) {
+               $paging_nav .= $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$action")}, "HEAD");
+       } else {
+               $paging_nav .= "HEAD";
+       }
+
+       if ($page > 0) {
+               $paging_nav .= " &sdot; " .
+                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$action;h=$hash;pg=" . ($page-1)),
+                                                        -accesskey => "p", -title => "Alt-p"}, "prev");
+       } else {
+               $paging_nav .= " &sdot; prev";
+       }
+
+       if ($nrevs >= (100 * ($page+1)-1)) {
+               $paging_nav .= " &sdot; " .
+                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$action;h=$hash;pg=" . ($page+1)),
+                                                        -accesskey => "n", -title => "Alt-n"}, "next");
+       } else {
+               $paging_nav .= " &sdot; next";
+       }
+
+       return $paging_nav;
+}
+
  sub git_get_type {
         my $hash = shift;
  
  sub git_get_type {
         my $hash = shift;
  
-       open my $fd, "-|", "$gitbin/git-cat-file -t $hash" or return;
+       open my $fd, "-|", $GIT, "cat-file", '-t', $hash or return;
         my $type = <$fd>;
         close $fd or return;
         chomp $type;
         my $type = <$fd>;
         close $fd or return;
         chomp $type;
@@ -388,7 +478,7 @@ sub git_read_head {
         my $oENV = $ENV{'GIT_DIR'};
         my $retval = undef;
         $ENV{'GIT_DIR'} = "$projectroot/$project";
         my $oENV = $ENV{'GIT_DIR'};
         my $retval = undef;
         $ENV{'GIT_DIR'} = "$projectroot/$project";
-       if (open my $fd, "-|", "$gitbin/git-rev-parse", "--verify", "HEAD") {
+       if (open my $fd, "-|", $GIT, "rev-parse", "--verify", "HEAD") {
                 my $head = <$fd>;
                 close $fd;
                 if (defined $head && $head =~ /^([0-9a-fA-F]{40})$/) {
                 my $head = <$fd>;
                 close $fd;
                 if (defined $head && $head =~ /^([0-9a-fA-F]{40})$/) {
@@ -428,7 +518,7 @@ sub git_read_tag {
         my %tag;
         my @comment;
  
         my %tag;
         my @comment;
  
-       open my $fd, "-|", "$gitbin/git-cat-file tag $tag_id" or return;
+       open my $fd, "-|", $GIT, "cat-file", "tag", $tag_id or return;
         $tag{'id'} = $tag_id;
         while (my $line = <$fd>) {
                 chomp $line;
         $tag{'id'} = $tag_id;
         while (my $line = <$fd>) {
                 chomp $line;
@@ -500,7 +590,7 @@ sub git_read_commit {
                 @commit_lines = @$commit_text;
         } else {
                 $/ = "\0";
                 @commit_lines = @$commit_text;
         } else {
                 $/ = "\0";
-               open my $fd, "-|", "$gitbin/git-rev-list --header --parents --max-count=1 $commit_id" or return;
+               open my $fd, "-|", $GIT, "rev-list", "--header", "--parents", "--max-count=1", $commit_id or return;
                 @commit_lines = split '\n', <$fd>;
                 close $fd or return;
                 $/ = "\n";
                 @commit_lines = split '\n', <$fd>;
                 close $fd or return;
                 $/ = "\n";
@@ -598,7 +688,7 @@ sub git_diff_print {
         if (defined $from) {
                 $from_tmp = "$git_temp/gitweb_" . $$ . "_from";
                 open my $fd2, "> $from_tmp";
         if (defined $from) {
                 $from_tmp = "$git_temp/gitweb_" . $$ . "_from";
                 open my $fd2, "> $from_tmp";
-               open my $fd, "-|", "$gitbin/git-cat-file blob $from";
+               open my $fd, "-|", $GIT, "cat-file", "blob", $from;
                 my @file = <$fd>;
                 print $fd2 @file;
                 close $fd2;
                 my @file = <$fd>;
                 print $fd2 @file;
                 close $fd2;
@@ -609,7 +699,7 @@ sub git_diff_print {
         if (defined $to) {
                 $to_tmp = "$git_temp/gitweb_" . $$ . "_to";
                 open my $fd2, "> $to_tmp";
         if (defined $to) {
                 $to_tmp = "$git_temp/gitweb_" . $$ . "_to";
                 open my $fd2, "> $to_tmp";
-               open my $fd, "-|", "$gitbin/git-cat-file blob $to";
+               open my $fd, "-|", $GIT, "cat-file", "blob", $to;
                 my @file = <$fd>;
                 print $fd2 @file;
                 close $fd2;
                 my @file = <$fd>;
                 print $fd2 @file;
                 close $fd2;
@@ -623,7 +713,7 @@ sub git_diff_print {
                 $/ = "\n";
         } else {
                 while (my $line = <$fd>) {
                 $/ = "\n";
         } else {
                 while (my $line = <$fd>) {
-                       chomp($line);
+                       chomp $line;
                         my $char = substr($line, 0, 1);
                         my $diff_class = "";
                         if ($char eq '+') {
                         my $char = substr($line, 0, 1);
                         my $diff_class = "";
                         if ($char eq '+') {
@@ -686,6 +776,7 @@ sub chop_str {
         my $tail = $2;
         if (length($tail) > 4) {
                 $tail = " ...";
         my $tail = $2;
         if (length($tail) > 4) {
                 $tail = " ...";
+               $body =~ s/&[^;]$//; # remove chopped character entities
         }
         return "$body$tail";
  }
         }
         return "$body$tail";
  }
@@ -783,7 +874,7 @@ sub git_read_projects {
         if (-d $projects_list) {
                 # search in directory
                 my $dir = $projects_list;
         if (-d $projects_list) {
                 # search in directory
                 my $dir = $projects_list;
-               opendir my $dh, $dir or return undef;
+               opendir my ($dh), $dir or return undef;
                 while (my $dir = readdir($dh)) {
                         if (-e "$projectroot/$dir/HEAD") {
                                 my $pr = {
                 while (my $dir = readdir($dh)) {
                         if (-e "$projectroot/$dir/HEAD") {
                                 my $pr = {
@@ -798,7 +889,7 @@ sub git_read_projects {
                 # 'git%2Fgit.git Linus+Torvalds'
                 # 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
                 # 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
                 # 'git%2Fgit.git Linus+Torvalds'
                 # 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
                 # 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
-               open my $fd , $projects_list or return undef;
+               open my ($fd), $projects_list or return undef;
                 while (my $line = <$fd>) {
                         chomp $line;
                         my ($path, $owner) = split ' ', $line;
                 while (my $line = <$fd>) {
                         chomp $line;
                         my ($path, $owner) = split ' ', $line;
@@ -828,7 +919,7 @@ sub git_get_project_config {
         $key =~ s/^gitweb\.//;
         return if ($key =~ m/\W/);
  
         $key =~ s/^gitweb\.//;
         return if ($key =~ m/\W/);
  
-       my $val = qx($gitbin/git-repo-config --get gitweb.$key);
+       my $val = qx($GIT repo-config --get gitweb.$key);
         return ($val);
  }
  
         return ($val);
  }
  
@@ -911,7 +1002,7 @@ sub git_project_list {
                 }
                 $alternate ^= 1;
                 print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=summary"), -class => "list"}, esc_html($pr->{'path'})) . "</td>\n" .
                 }
                 $alternate ^= 1;
                 print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=summary"), -class => "list"}, esc_html($pr->{'path'})) . "</td>\n" .
-                     "<td>$pr->{'descr'}</td>\n" .
+                     "<td>" . esc_html($pr->{'descr'}) . "</td>\n" .
                       "<td><i>" . chop_str($pr->{'owner'}, 15) . "</i></td>\n";
                 print "<td class=\"". age_class($pr->{'commit'}{'age'}) . "\">" . $pr->{'commit'}{'age_string'} . "</td>\n" .
                       "<td class=\"link\">" .
                       "<td><i>" . chop_str($pr->{'owner'}, 15) . "</i></td>\n";
                 print "<td class=\"". age_class($pr->{'commit'}{'age'}) . "\">" . $pr->{'commit'}{'age_string'} . "</td>\n" .
                       "<td class=\"link\">" .
@@ -932,7 +1023,7 @@ sub read_info_ref {
         # c39ae07f393806ccf406ef966e9a15afc43cc36a      refs/tags/v2.6.11^{}
         open my $fd, "$projectroot/$project/info/refs" or return;
         while (my $line = <$fd>) {
         # c39ae07f393806ccf406ef966e9a15afc43cc36a      refs/tags/v2.6.11^{}
         open my $fd, "$projectroot/$project/info/refs" or return;
         while (my $line = <$fd>) {
-               chomp($line);
+               chomp $line;
                 if ($line =~ m/^([0-9a-fA-F]{40})\t.*$type\/([^\^]+)/) {
                         if (defined $refs{$1}) {
                                 $refs{$1} .= " / $2";
                 if ($line =~ m/^([0-9a-fA-F]{40})\t.*$type\/([^\^]+)/) {
                         if (defined $refs{$1}) {
                                 $refs{$1} .= " / $2";
@@ -1035,27 +1126,18 @@ sub git_summary {
  
         my $refs = read_info_ref();
         git_header_html();
  
         my $refs = read_info_ref();
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             "summary".
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree")}, "tree") .
-             "<br/><br/>\n" .
-             "</div>\n";
+       git_page_nav('summary','', $head);
         print "<div class=\"title\">&nbsp;</div>\n";
         print "<table cellspacing=\"0\">\n" .
               "<tr><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" .
               "<tr><td>owner</td><td>$owner</td></tr>\n" .
               "<tr><td>last change</td><td>$cd{'rfc2822'}</td></tr>\n" .
               "</table>\n";
         print "<div class=\"title\">&nbsp;</div>\n";
         print "<table cellspacing=\"0\">\n" .
               "<tr><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" .
               "<tr><td>owner</td><td>$owner</td></tr>\n" .
               "<tr><td>last change</td><td>$cd{'rfc2822'}</td></tr>\n" .
               "</table>\n";
-       open my $fd, "-|", "$gitbin/git-rev-list --max-count=17 " . git_read_head($project) or die_error(undef, "Open failed.");
-       my (@revlist) = map { chomp; $_ } <$fd>;
+       open my $fd, "-|", $GIT, "rev-list", "--max-count=17", git_read_head($project)
+               or die_error(undef, "Open git-rev-list failed.");
+       my @revlist = map { chomp; $_ } <$fd>;
         close $fd;
         close $fd;
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog"), -class => "title"}, "shortlog") .
-             "</div>\n";
+       git_header_div('shortlog');
         my $i = 16;
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         my $i = 16;
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
@@ -1099,9 +1181,7 @@ sub git_summary {
  
         my $taglist = git_read_refs("refs/tags");
         if (defined @$taglist) {
  
         my $taglist = git_read_refs("refs/tags");
         if (defined @$taglist) {
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tags"), -class => "title"}, "tags") .
-                     "</div>\n";
+               git_header_div('tags');
                 my $i = 16;
                 print "<table cellspacing=\"0\">\n";
                 my $alternate = 0;
                 my $i = 16;
                 print "<table cellspacing=\"0\">\n";
                 my $alternate = 0;
@@ -1126,17 +1206,17 @@ sub git_summary {
                                       "</td>\n" .
                                       "<td>";
                                 if (defined($comment)) {
                                       "</td>\n" .
                                       "<td>";
                                 if (defined($comment)) {
-                                     print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment);
+                                       print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, esc_html($comment));
                                 }
                                 print "</td>\n" .
                                       "<td class=\"link\">";
                                 if ($tag{'type'} eq "tag") {
                                 }
                                 print "</td>\n" .
                                       "<td class=\"link\">";
                                 if ($tag{'type'} eq "tag") {
-                                     print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | ";
+                                       print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | ";
                                 }
                                 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'});
                                 if ($tag{'reftype'} eq "commit") {
                                 }
                                 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'});
                                 if ($tag{'reftype'} eq "commit") {
-                                     print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
-                                           " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log");
+                                       print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
+                                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log");
                                 }
                                 print "</td>\n" .
                                       "</tr>";
                                 }
                                 print "</td>\n" .
                                       "</tr>";
@@ -1151,9 +1231,7 @@ sub git_summary {
  
         my $headlist = git_read_refs("refs/heads");
         if (defined @$headlist) {
  
         my $headlist = git_read_refs("refs/heads");
         if (defined @$headlist) {
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=heads"), -class => "title"}, "heads") .
-                     "</div>\n";
+               git_header_div('heads');
                 my $i = 16;
                 print "<table cellspacing=\"0\">\n";
                 my $alternate = 0;
                 my $i = 16;
                 print "<table cellspacing=\"0\">\n";
                 my $alternate = 0;
@@ -1187,22 +1265,26 @@ sub git_summary {
         git_footer_html();
  }
  
         git_footer_html();
  }
  
+sub git_print_page_path {
+       my $name = shift;
+       my $type = shift;
+
+       if (!defined $name) {
+               print "<div class=\"page_path\"><b>/</b></div>\n";
+       } elsif ($type =~ "blob") {
+               print "<div class=\"page_path\"><b>" .
+                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;f=$file_name")}, esc_html($name)) . "</b><br/></div>\n";
+       } else {
+               print "<div class=\"page_path\"><b>" . esc_html($name) . "</b><br/></div>\n";
+       }
+}
+
  sub git_tag {
         my $head = git_read_head($project);
         git_header_html();
  sub git_tag {
         my $head = git_read_head($project);
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" .
-             "<br/>\n" .
-             "</div>\n";
+       git_page_nav('','', $head,undef,$head);
         my %tag = git_read_tag($hash);
         my %tag = git_read_tag($hash);
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($tag{'name'})) . "\n" .
-             "</div>\n";
+       git_header_div('commit', esc_html($tag{'name'}), $hash);
         print "<div class=\"title_text\">\n" .
               "<table cellspacing=\"0\">\n" .
               "<tr>\n" .
         print "<div class=\"title_text\">\n" .
               "<table cellspacing=\"0\">\n" .
               "<tr>\n" .
@@ -1226,6 +1308,65 @@ sub git_tag {
         git_footer_html();
  }
  
         git_footer_html();
  }
  
+sub git_blame2 {
+       my $fd;
+       my $ftype;
+       die_error(undef, "Permission denied.") if (!git_get_project_config_bool ('blame'));
+       die_error('404 Not Found', "File name not defined") if (!$file_name);
+       $hash_base ||= git_read_head($project);
+       die_error(undef, "Reading commit failed") unless ($hash_base);
+       my %co = git_read_commit($hash_base)
+               or die_error(undef, "Reading commit failed");
+       if (!defined $hash) {
+               $hash = git_get_hash_by_path($hash_base, $file_name, "blob")
+                       or die_error(undef, "Error looking up file");
+       }
+       $ftype = git_get_type($hash);
+       if ($ftype !~ "blob") {
+               die_error("400 Bad Request", "object is not a blob");
+       }
+       open ($fd, "-|", $GIT, "blame", '-l', $file_name, $hash_base)
+               or die_error(undef, "Open git-blame failed.");
+       git_header_html();
+       my $formats_nav =
+               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, "blob") .
+               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;f=$file_name")}, "head");
+       git_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
+       git_header_div('commit', esc_html($co{'title'}), $hash_base);
+       git_print_page_path($file_name, $ftype);
+       my @rev_color = (qw(light dark));
+       my $num_colors = scalar(@rev_color);
+       my $current_color = 0;
+       my $last_rev;
+       print "<div class=\"page_body\">\n";
+       print "<table class=\"blame\">\n";
+       print "<tr><th>Commit</th><th>Line</th><th>Data</th></tr>\n";
+       while (<$fd>) {
+               /^([0-9a-fA-F]{40}).*?(\d+)\)\s{1}(\s*.*)/;
+               my $full_rev = $1;
+               my $rev = substr($full_rev, 0, 8);
+               my $lineno = $2;
+               my $data = $3;
+
+               if (!defined $last_rev) {
+                       $last_rev = $full_rev;
+               } elsif ($last_rev ne $full_rev) {
+                       $last_rev = $full_rev;
+                       $current_color = ++$current_color % $num_colors;
+               }
+               print "<tr class=\"$rev_color[$current_color]\">\n";
+               print "<td class=\"sha1\">" .
+                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$full_rev;f=$file_name")}, esc_html($rev)) . "</td>\n";
+               print "<td class=\"linenr\"><a id=\"l$lineno\" href=\"#l$lineno\" class=\"linenr\">" . esc_html($lineno) . "</a></td>\n";
+               print "<td class=\"pre\">" . esc_html($data) . "</td>\n";
+               print "</tr>\n";
+       }
+       print "</table>\n";
+       print "</div>";
+       close $fd or print "Reading blob failed\n";
+       git_footer_html();
+}
+
  sub git_blame {
         my $fd;
         die_error('403 Permission denied', "Permission denied.") if (!git_get_project_config_bool ('blame'));
  sub git_blame {
         my $fd;
         die_error('403 Permission denied', "Permission denied.") if (!git_get_project_config_bool ('blame'));
@@ -1238,23 +1379,15 @@ sub git_blame {
                 $hash = git_get_hash_by_path($hash_base, $file_name, "blob")
                         or die_error(undef, "Error lookup file.");
         }
                 $hash = git_get_hash_by_path($hash_base, $file_name, "blob")
                         or die_error(undef, "Error lookup file.");
         }
-       open ($fd, "-|", "$gitbin/git-annotate", '-l', '-t', '-r', $file_name, $hash_base)
-               or die_error(undef, "Open failed.");
+       open ($fd, "-|", $GIT, "annotate", '-l', '-t', '-r', $file_name, $hash_base)
+               or die_error(undef, "Open git-annotate failed.");
         git_header_html();
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
-               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
-               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . "<br/>\n";
-       print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, "blob") .
-               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;f=$file_name")}, "head") . "<br/>\n";
-       print "</div>\n".
-               "<div>" .
-               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) .
-               "</div>\n";
-       print "<div class=\"page_path\"><b>" . esc_html($file_name) . "</b></div>\n";
+       my $formats_nav =
+               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, "blob") .
+               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;f=$file_name")}, "head");
+       git_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
+       git_header_div('commit', esc_html($co{'title'}), $hash_base);
+       git_print_page_path($file_name);
         print "<div class=\"page_body\">\n";
         print <<HTML;
  <table class="blame">
         print "<div class=\"page_body\">\n";
         print <<HTML;
  <table class="blame">
@@ -1328,20 +1461,11 @@ HTML
  sub git_tags {
         my $head = git_read_head($project);
         git_header_html();
  sub git_tags {
         my $head = git_read_head($project);
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" .
-             "<br/>\n" .
-             "</div>\n";
-       my $taglist = git_read_refs("refs/tags");
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
-             "</div>\n";
+       git_page_nav('','', $head,undef,$head);
+       git_header_div('summary', $project);
         print "<table cellspacing=\"0\">\n";
         print "<table cellspacing=\"0\">\n";
+
+       my $taglist = git_read_refs("refs/tags");
         my $alternate = 0;
         if (defined @$taglist) {
                 foreach my $entry (@$taglist) {
         my $alternate = 0;
         if (defined @$taglist) {
                 foreach my $entry (@$taglist) {
@@ -1364,17 +1488,17 @@ sub git_tags {
                               "</td>\n" .
                               "<td>";
                         if (defined($comment)) {
                               "</td>\n" .
                               "<td>";
                         if (defined($comment)) {
-                             print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment);
+                               print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment);
                         }
                         print "</td>\n" .
                               "<td class=\"link\">";
                         if ($tag{'type'} eq "tag") {
                         }
                         print "</td>\n" .
                               "<td class=\"link\">";
                         if ($tag{'type'} eq "tag") {
-                             print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | ";
+                               print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | ";
                         }
                         print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'});
                         if ($tag{'reftype'} eq "commit") {
                         }
                         print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'});
                         if ($tag{'reftype'} eq "commit") {
-                             print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
-                                   " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log");
+                               print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
+                                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log");
                         }
                         print "</td>\n" .
                               "</tr>";
                         }
                         print "</td>\n" .
                               "</tr>";
@@ -1387,20 +1511,11 @@ sub git_tags {
  sub git_heads {
         my $head = git_read_head($project);
         git_header_html();
  sub git_heads {
         my $head = git_read_head($project);
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" .
-             "<br/>\n" .
-             "</div>\n";
-       my $taglist = git_read_refs("refs/heads");
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
-             "</div>\n";
+       git_page_nav('','', $head,undef,$head);
+       hit_header_div('summary', $project);
         print "<table cellspacing=\"0\">\n";
         print "<table cellspacing=\"0\">\n";
+
+       my $taglist = git_read_refs("refs/heads");
         my $alternate = 0;
         if (defined @$taglist) {
                 foreach my $entry (@$taglist) {
         my $alternate = 0;
         if (defined @$taglist) {
                 foreach my $entry (@$taglist) {
@@ -1431,84 +1546,15 @@ sub git_get_hash_by_path {
         my $path = shift || return undef;
  
         my $tree = $base;
         my $path = shift || return undef;
  
         my $tree = $base;
-       my @parts = split '/', $path;
-       while (my $part = shift @parts) {
-               open my $fd, "-|", "$gitbin/git-ls-tree $tree" or die_error(undef, "Open git-ls-tree failed.");
-               my (@entries) = map { chomp; $_ } <$fd>;
-               close $fd or return undef;
-               foreach my $line (@entries) {
-                       #'100644        blob    0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa        panic.c'
-                       $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/;
-                       my $t_mode = $1;
-                       my $t_type = $2;
-                       my $t_hash = $3;
-                       my $t_name = validate_input(unquote($4));
-                       if ($t_name eq $part) {
-                               if (!(@parts)) {
-                                       return $t_hash;
-                               }
-                               if ($t_type eq "tree") {
-                                       $tree = $t_hash;
-                               }
-                               last;
-                       }
-               }
-       }
-}
  
  
-sub git_blob {
-       if (!defined $hash && defined $file_name) {
-               my $base = $hash_base || git_read_head($project);
-               $hash = git_get_hash_by_path($base, $file_name, "blob") || die_error(undef, "Error lookup file.");
-       }
-       my $have_blame = git_get_project_config_bool ('blame');
-       open my $fd, "-|", "$gitbin/git-cat-file blob $hash" or die_error(undef, "Open failed.");
-       git_header_html();
-       if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
-               print "<div class=\"page_nav\">\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . "<br/>\n";
-               if (defined $file_name) {
-                       if ($have_blame) {
-                               print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$hash;hb=$hash_base;f=$file_name")}, "blame") .  " | ";
-                       }
-                       print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash;f=$file_name")}, "plain") .
-                       " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=HEAD;f=$file_name")}, "head") . "<br/>\n";
-               } else {
-                       print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash")}, "plain") . "<br/>\n";
-               }
-               print "</div>\n".
-                      "<div>" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) .
-                     "</div>\n";
-       } else {
-               print "<div class=\"page_nav\">\n" .
-                     "<br/><br/></div>\n" .
-                     "<div class=\"title\">$hash</div>\n";
-       }
-       if (defined $file_name) {
-               print "<div class=\"page_path\"><b>" . esc_html($file_name) . "</b></div>\n";
-       }
-       print "<div class=\"page_body\">\n";
-       my $nr;
-       while (my $line = <$fd>) {
-               chomp $line;
-               $nr++;
-               while ((my $pos = index($line, "\t")) != -1) {
-                       if (my $count = (8 - ($pos % 8))) {
-                               my $spaces = ' ' x $count;
-                               $line =~ s/\t/$spaces/;
-                       }
-               }
-               printf "<div class=\"pre\"><a id=\"l%i\" href=\"#l%i\" class=\"linenr\">%4i</a> %s</div>\n", $nr, $nr, $nr, esc_html($line);
-       }
-       close $fd or print "Reading blob failed.\n";
-       print "</div>";
-       git_footer_html();
+       open my $fd, "-|", $GIT, "ls-tree", $base, "--", $path
+               or die_error(undef, "Open git-ls-tree failed.");
+       my $line = <$fd>;
+       close $fd or return undef;
+
+       #'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa  panic.c'
+       $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/;
+       return $3;
  }
  
  sub mimetype_guess_file {
  }
  
  sub mimetype_guess_file {
@@ -1549,14 +1595,14 @@ sub git_blob_plain_mimetype {
         my $fd = shift;
         my $filename = shift;
  
         my $fd = shift;
         my $filename = shift;
  
-       # just in case
-       return $default_blob_plain_mimetype unless $fd;
-
         if ($filename) {
                 my $mime = mimetype_guess($filename);
                 $mime and return $mime;
         }
  
         if ($filename) {
                 my $mime = mimetype_guess($filename);
                 $mime and return $mime;
         }
  
+       # just in case
+       return $default_blob_plain_mimetype unless $fd;
+
         if (-T $fd) {
                 return 'text/plain' .
                        ($default_text_plain_charset ? '; charset='.$default_text_plain_charset : '');
         if (-T $fd) {
                 return 'text/plain' .
                        ($default_text_plain_charset ? '; charset='.$default_text_plain_charset : '');
@@ -1574,8 +1620,20 @@ sub git_blob_plain_mimetype {
  }
  
  sub git_blob_plain {
  }
  
  sub git_blob_plain {
-       open my $fd, "-|", "$gitbin/git-cat-file blob $hash" or return;
-       my $type = git_blob_plain_mimetype($fd, $file_name);
+       if (!defined $hash) {
+               if (defined $file_name) {
+                       my $base = $hash_base || git_read_head($project);
+                       $hash = git_get_hash_by_path($base, $file_name, "blob")
+                               or die_error(undef, "Error lookup file.");
+               } else {
+                       die_error(undef, "No file name defined.");
+               }
+       }
+       my $type = shift;
+       open my $fd, "-|", $GIT, "cat-file", "blob", $hash
+               or die_error("Couldn't cat $file_name, $hash");
+
+       $type ||= git_blob_plain_mimetype($fd, $file_name);
  
         # save as filename, even when no $file_name is given
         my $save_as = "$hash";
  
         # save as filename, even when no $file_name is given
         my $save_as = "$hash";
@@ -1594,6 +1652,63 @@ sub git_blob_plain {
         close $fd;
  }
  
         close $fd;
  }
  
+sub git_blob {
+       if (!defined $hash) {
+               if (defined $file_name) {
+                       my $base = $hash_base || git_read_head($project);
+                       $hash = git_get_hash_by_path($base, $file_name, "blob")
+                               or die_error(undef, "Error lookup file.");
+               } else {
+                       die_error(undef, "No file name defined.");
+               }
+       }
+       my $have_blame = git_get_project_config_bool ('blame');
+       open my $fd, "-|", $GIT, "cat-file", "blob", $hash
+               or die_error(undef, "Couldn't cat $file_name, $hash.");
+       my $mimetype = git_blob_plain_mimetype($fd, $file_name);
+       if ($mimetype !~ m/^text\//) {
+               close $fd;
+               return git_blob_plain($mimetype);
+       }
+       git_header_html();
+       my $formats_nav = '';
+       if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
+               if (defined $file_name) {
+                       if ($have_blame) {
+                               $formats_nav .= $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$hash;hb=$hash_base;f=$file_name")}, "blame") . " | ";
+                       }
+                       $formats_nav .=
+                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash;f=$file_name")}, "plain") .
+                               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=HEAD;f=$file_name")}, "head");
+               } else {
+                       $formats_nav .= $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash")}, "plain");
+               }
+               git_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
+               git_header_div('commit', esc_html($co{'title'}), $hash_base);
+       } else {
+               print "<div class=\"page_nav\">\n" .
+                     "<br/><br/></div>\n" .
+                     "<div class=\"title\">$hash</div>\n";
+       }
+       git_print_page_path($file_name, "blob");
+       print "<div class=\"page_body\">\n";
+       my $nr;
+       while (my $line = <$fd>) {
+               chomp $line;
+               $nr++;
+               while ((my $pos = index($line, "\t")) != -1) {
+                       if (my $count = (8 - ($pos % 8))) {
+                               my $spaces = ' ' x $count;
+                               $line =~ s/\t/$spaces/;
+                       }
+               }
+               printf "<div class=\"pre\"><a id=\"l%i\" href=\"#l%i\" class=\"linenr\">%4i</a> %s</div>\n", $nr, $nr, $nr, esc_html($line);
+       }
+       close $fd or print "Reading blob failed.\n";
+       print "</div>";
+       git_footer_html();
+}
+
  sub git_tree {
         if (!defined $hash) {
                 $hash = git_read_head($project);
  sub git_tree {
         if (!defined $hash) {
                 $hash = git_read_head($project);
@@ -1606,8 +1721,9 @@ sub git_tree {
                 }
         }
         $/ = "\0";
                 }
         }
         $/ = "\0";
-       open my $fd, "-|", "$gitbin/git-ls-tree -z $hash" or die_error(undef, "Open git-ls-tree failed.");
-       chomp (my (@entries) = <$fd>);
+       open my $fd, "-|", $GIT, "ls-tree", '-z', $hash
+               or die_error(undef, "Open git-ls-tree failed.");
+       my @entries = map { chomp; $_ } <$fd>;
         close $fd or die_error(undef, "Reading tree failed.");
         $/ = "\n";
  
         close $fd or die_error(undef, "Reading tree failed.");
         $/ = "\n";
  
@@ -1621,18 +1737,8 @@ sub git_tree {
         my $base = "";
         if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
                 $base_key = ";hb=$hash_base";
         my $base = "";
         if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
                 $base_key = ";hb=$hash_base";
-               print "<div class=\"page_nav\">\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash_base")}, "shortlog") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash_base")}, "log") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
-                     " | tree" .
-                     "<br/><br/>\n" .
-                     "</div>\n";
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" .
-                     "</div>\n";
+               git_page_nav('tree','', $hash_base);
+               git_header_div('commit', esc_html($co{'title'}) . $ref, $hash_base);
         } else {
                 print "<div class=\"page_nav\">\n";
                 print "<br/><br/></div>\n";
         } else {
                 print "<div class=\"page_nav\">\n";
                 print "<br/><br/></div>\n";
@@ -1640,10 +1746,8 @@ sub git_tree {
         }
         if (defined $file_name) {
                 $base = esc_html("$file_name/");
         }
         if (defined $file_name) {
                 $base = esc_html("$file_name/");
-               print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b></div>\n";
-       } else {
-               print "<div class=\"page_path\"><b>/</b></div>\n";
         }
         }
+       git_print_page_path($file_name);
         print "<div class=\"page_body\">\n";
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         print "<div class=\"page_body\">\n";
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
@@ -1668,7 +1772,8 @@ sub git_tree {
                               "<td class=\"link\">" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$t_hash$base_key;f=$base$t_name")}, "blob") .
  #                            " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$t_hash$base_key;f=$base$t_name")}, "blame") .
                               "<td class=\"link\">" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$t_hash$base_key;f=$base$t_name")}, "blob") .
  #                            " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$t_hash$base_key;f=$base$t_name")}, "blame") .
-                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash_base;f=$base$t_name")}, "history") .
+                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$t_hash;hb=$hash_base;f=$base$t_name")}, "history") .
+                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$t_hash;f=$base$t_name")}, "raw") .
                               "</td>\n";
                 } elsif ($t_type eq "tree") {
                         print "<td class=\"list\">" .
                               "</td>\n";
                 } elsif ($t_type eq "tree") {
                         print "<td class=\"list\">" .
@@ -1676,6 +1781,7 @@ sub git_tree {
                               "</td>\n" .
                               "<td class=\"link\">" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$t_hash$base_key;f=$base$t_name")}, "tree") .
                               "</td>\n" .
                               "<td class=\"link\">" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$t_hash$base_key;f=$base$t_name")}, "tree") .
+                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;hb=$hash_base;f=$base$t_name")}, "history") .
                               "</td>\n";
                 }
                 print "</tr>\n";
                               "</td>\n";
                 }
                 print "</tr>\n";
@@ -1687,8 +1793,9 @@ sub git_tree {
  
  sub git_rss {
         # http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
  
  sub git_rss {
         # http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
-       open my $fd, "-|", "$gitbin/git-rev-list --max-count=150 " . git_read_head($project) or die_error(undef, "Open failed.");
-       my (@revlist) = map { chomp; $_ } <$fd>;
+       open my $fd, "-|", $GIT, "rev-list", "--max-count=150", git_read_head($project)
+               or die_error(undef, "Open git-rev-list failed.");
+       my @revlist = map { chomp; $_ } <$fd>;
         close $fd or die_error(undef, "Reading rev-list failed.");
         print $cgi->header(-type => 'text/xml', -charset => 'utf-8');
         print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
         close $fd or die_error(undef, "Reading rev-list failed.");
         print $cgi->header(-type => 'text/xml', -charset => 'utf-8');
         print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
@@ -1707,7 +1814,7 @@ sub git_rss {
                         last;
                 }
                 my %cd = date_str($co{'committer_epoch'});
                         last;
                 }
                 my %cd = date_str($co{'committer_epoch'});
-               open $fd, "-|", "$gitbin/git-diff-tree -r $co{'parent'} $co{'id'}" or next;
+               open $fd, "-|", $GIT, "diff-tree", '-r', $co{'parent'}, $co{'id'} or next;
                 my @difftree = map { chomp; $_ } <$fd>;
                 close $fd or next;
                 print "<item>\n" .
                 my @difftree = map { chomp; $_ } <$fd>;
                 close $fd or next;
                 print "<item>\n" .
@@ -1749,7 +1856,7 @@ sub git_opml {
         print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
               "<opml version=\"1.0\">\n".
               "<head>".
         print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
               "<opml version=\"1.0\">\n".
               "<head>".
-             "  <title>Git OPML Export</title>\n".
+             "  <title>$site_name Git OPML Export</title>\n".
               "</head>\n".
               "<body>\n".
               "<outline text=\"git RSS feeds\">\n";
               "</head>\n".
               "<body>\n".
               "<outline text=\"git RSS feeds\">\n";
@@ -1767,8 +1874,8 @@ sub git_opml {
                 }
  
                 my $path = esc_html(chop_str($proj{'path'}, 25, 5));
                 }
  
                 my $path = esc_html(chop_str($proj{'path'}, 25, 5));
-               my $rss =  "$my_url?p=$proj{'path'};a=rss";
-               my $html =  "$my_url?p=$proj{'path'};a=summary";
+               my $rss  = "$my_url?p=$proj{'path'};a=rss";
+               my $html = "$my_url?p=$proj{'path'};a=summary";
                 print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
         }
         print "</outline>\n".
                 print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
         }
         print "</outline>\n".
@@ -1785,44 +1892,22 @@ sub git_log {
                 $page = 0;
         }
         my $refs = read_info_ref();
                 $page = 0;
         }
         my $refs = read_info_ref();
-       git_header_html();
-       print "<div class=\"page_nav\">\n";
-       print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") .
-             " | log" .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$hash;hb=$hash")}, "tree") . "<br/>\n";
  
         my $limit = sprintf("--max-count=%i", (100 * ($page+1)));
  
         my $limit = sprintf("--max-count=%i", (100 * ($page+1)));
-       open my $fd, "-|", "$gitbin/git-rev-list $limit $hash" or die_error(undef, "Open failed.");
-       my (@revlist) = map { chomp; $_ } <$fd>;
+       open my $fd, "-|", $GIT, "rev-list", $limit, $hash
+               or die_error(undef, "Open git-rev-list failed.");
+       my @revlist = map { chomp; $_ } <$fd>;
         close $fd;
  
         close $fd;
  
-       if ($hash ne $head || $page) {
-               print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "HEAD");
-       } else {
-               print "HEAD";
-       }
-       if ($page > 0) {
-               print " &sdot; " .
-               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash;pg=" . ($page-1)), -accesskey => "p", -title => "Alt-p"}, "prev");
-       } else {
-               print " &sdot; prev";
-       }
-       if ($#revlist >= (100 * ($page+1)-1)) {
-               print " &sdot; " .
-               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash;pg=" . ($page+1)), -accesskey => "n", -title => "Alt-n"}, "next");
-       } else {
-               print " &sdot; next";
-       }
-       print "<br/>\n" .
-             "</div>\n";
+       my $paging_nav = git_get_paging_nav('log', $hash, $head, $page, $#revlist);
+
+       git_header_html();
+       git_page_nav('log','', $hash,undef,undef, $paging_nav);
+
         if (!@revlist) {
         if (!@revlist) {
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
-                     "</div>\n";
                 my %co = git_read_commit($hash);
                 my %co = git_read_commit($hash);
+
+               git_header_div('summary', $project);
                 print "<div class=\"page_body\"> Last change $co{'age_string'}.<br/><br/></div>\n";
         }
         for (my $i = ($page * 100); $i <= $#revlist; $i++) {
                 print "<div class=\"page_body\"> Last change $co{'age_string'}.<br/><br/></div>\n";
         }
         for (my $i = ($page * 100); $i <= $#revlist; $i++) {
@@ -1834,10 +1919,10 @@ sub git_log {
                 my %co = git_read_commit($commit);
                 next if !%co;
                 my %ad = date_str($co{'author_epoch'});
                 my %co = git_read_commit($commit);
                 next if !%co;
                 my %ad = date_str($co{'author_epoch'});
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "title"},
-                     "<span class=\"age\">$co{'age_string'}</span>" . esc_html($co{'title'}) . $ref) . "\n";
-               print "</div>\n";
+               git_header_div('commit',
+                                                                        "<span class=\"age\">$co{'age_string'}</span>" .
+                                                                        esc_html($co{'title'}) . $ref,
+                                                                        $commit);
                 print "<div class=\"title_text\">\n" .
                       "<div class=\"log_link\">\n" .
                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
                 print "<div class=\"title_text\">\n" .
                       "<div class=\"log_link\">\n" .
                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
@@ -1879,16 +1964,14 @@ sub git_commit {
         my %ad = date_str($co{'author_epoch'}, $co{'author_tz'});
         my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'});
  
         my %ad = date_str($co{'author_epoch'}, $co{'author_tz'});
         my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'});
  
-       my @difftree;
-       my $root = "";
         my $parent = $co{'parent'};
         if (!defined $parent) {
         my $parent = $co{'parent'};
         if (!defined $parent) {
-               $root = " --root";
-               $parent = "";
+               $parent = "--root";
         }
         }
-       open my $fd, "-|", "$gitbin/git-diff-tree -r -M $root $parent $hash" or die_error(undef, "Open failed.");
-       @difftree = map { chomp; $_ } <$fd>;
-       close $fd or die_error(undef, "Reading diff-tree failed.");
+       open my $fd, "-|", $GIT, "diff-tree", '-r', '-M', $parent, $hash
+               or die_error(undef, "Open git-diff-tree failed.");
+       my @difftree = map { chomp; $_ } <$fd>;
+       close $fd or die_error(undef, "Reading git-diff-tree failed.");
  
         # non-textual hash id's can be cached
         my $expires;
  
         # non-textual hash id's can be cached
         my $expires;
@@ -1901,24 +1984,19 @@ sub git_commit {
                 $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>";
         }
         git_header_html(undef, $expires);
                 $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>";
         }
         git_header_html(undef, $expires);
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
-             " | commit";
-       if (defined $co{'parent'}) {
-               print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff");
+       my $formats_nav = '';
+       if (defined $file_name && defined $co{'parent'}) {
+               my $parent = $co{'parent'};
+               $formats_nav .= $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;hb=$parent;f=$file_name")}, "blame");
         }
         }
-       print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . "\n" .
-             "<br/><br/></div>\n";
+       git_page_nav('commit', defined $co{'parent'} ? '' : 'commitdiff',
+                                                        $hash, $co{'tree'}, $hash,
+                                                        $formats_nav);
+
         if (defined $co{'parent'}) {
         if (defined $co{'parent'}) {
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" .
-                     "</div>\n";
+               git_header_div('commitdiff', esc_html($co{'title'}) . $ref, $hash);
         } else {
         } else {
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" .
-                     "</div>\n";
+               git_header_div('tree', esc_html($co{'title'}), $co{'tree'}, $hash);
         }
         print "<div class=\"title_text\">\n" .
               "<table cellspacing=\"0\">\n";
         }
         print "<div class=\"title_text\">\n" .
               "<table cellspacing=\"0\">\n";
@@ -1943,7 +2021,7 @@ sub git_commit {
               "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
               "</td>" .
               "</tr>\n";
               "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
               "</td>" .
               "</tr>\n";
-       my $parents  = $co{'parents'};
+       my $parents = $co{'parents'};
         foreach my $par (@$parents) {
                 print "<tr>" .
                       "<td>parent</td>" .
         foreach my $par (@$parents) {
                 print "<tr>" .
                       "<td>parent</td>" .
@@ -2020,7 +2098,7 @@ sub git_commit {
                               "<td><span class=\"file_status deleted\">[deleted " . file_type($from_mode). "]</span></td>\n" .
                               "<td class=\"link\">" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, "blob") .
                               "<td><span class=\"file_status deleted\">[deleted " . file_type($from_mode). "]</span></td>\n" .
                               "<td class=\"link\">" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, "blob") .
-                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash;f=$file")}, "history") .
+                             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;hb=$hash;f=$file")}, "history") .
                               "</td>\n"
                 } elsif ($status eq "M" || $status eq "T") {
                         my $mode_chnge = "";
                               "</td>\n"
                 } elsif ($status eq "M" || $status eq "T") {
                         my $mode_chnge = "";
@@ -2051,7 +2129,7 @@ sub git_commit {
                         if ($to_id ne $from_id) {
                                 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$file")}, "diff");
                         }
                         if ($to_id ne $from_id) {
                                 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$file")}, "diff");
                         }
-                       print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash;f=$file")}, "history") . "\n";
+                       print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;hb=$hash;f=$file")}, "history") . "\n";
                         print "</td>\n";
                 } elsif ($status eq "R") {
                         my ($from_file, $to_file) = split "\t", $file;
                         print "</td>\n";
                 } elsif ($status eq "R") {
                         my ($from_file, $to_file) = split "\t", $file;
@@ -2081,27 +2159,16 @@ sub git_blobdiff {
         mkdir($git_temp, 0700);
         git_header_html();
         if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
         mkdir($git_temp, 0700);
         git_header_html();
         if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
-               print "<div class=\"page_nav\">\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
-                     " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") .
-                     "<br/>\n";
-               print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff_plain;h=$hash;hp=$hash_parent")}, "plain") .
-                     "</div>\n";
-               print "<div>\n" .
-                     $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) . "\n" .
-                     "</div>\n";
+               my $formats_nav =
+                       $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff_plain;h=$hash;hp=$hash_parent")}, "plain");
+               git_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
+               git_header_div('commit', esc_html($co{'title'}), $hash_base);
         } else {
                 print "<div class=\"page_nav\">\n" .
                       "<br/><br/></div>\n" .
                       "<div class=\"title\">$hash vs $hash_parent</div>\n";
         }
         } else {
                 print "<div class=\"page_nav\">\n" .
                       "<br/><br/></div>\n" .
                       "<div class=\"title\">$hash vs $hash_parent</div>\n";
         }
-       if (defined $file_name) {
-               print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b></div>\n";
-       }
+       git_print_page_path($file_name, "blob");
         print "<div class=\"page_body\">\n" .
               "<div class=\"diff_info\">blob:" .
               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash_parent;hb=$hash_base;f=$file_name")}, $hash_parent) .
         print "<div class=\"page_body\">\n" .
               "<div class=\"diff_info\">blob:" .
               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash_parent;hb=$hash_base;f=$file_name")}, $hash_parent) .
@@ -2128,8 +2195,9 @@ sub git_commitdiff {
         if (!defined $hash_parent) {
                 $hash_parent = $co{'parent'};
         }
         if (!defined $hash_parent) {
                 $hash_parent = $co{'parent'};
         }
-       open my $fd, "-|", "$gitbin/git-diff-tree -r $hash_parent $hash" or die_error(undef, "Open failed.");
-       my (@difftree) = map { chomp; $_ } <$fd>;
+       open my $fd, "-|", $GIT, "diff-tree", '-r', $hash_parent, $hash
+               or die_error(undef, "Open git-diff-tree failed.");
+       my @difftree = map { chomp; $_ } <$fd>;
         close $fd or die_error(undef, "Reading diff-tree failed.");
  
         # non-textual hash id's can be cached
         close $fd or die_error(undef, "Reading diff-tree failed.");
  
         # non-textual hash id's can be cached
@@ -2143,18 +2211,10 @@ sub git_commitdiff {
                 $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>";
         }
         git_header_html(undef, $expires);
                 $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>";
         }
         git_header_html(undef, $expires);
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
-             " | commitdiff" .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . "<br/>\n";
-       print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff_plain;h=$hash;hp=$hash_parent")}, "plain") . "\n" .
-             "</div>\n";
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" .
-             "</div>\n";
+       my $formats_nav =
+               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff_plain;h=$hash;hp=$hash_parent")}, "plain");
+       git_page_nav('commitdiff','', $hash,$co{'tree'},$hash, $formats_nav);
+       git_header_div('commit', esc_html($co{'title'}) . $ref, $hash);
         print "<div class=\"page_body\">\n";
         my $comment = $co{'comment'};
         my $empty = 0;
         print "<div class=\"page_body\">\n";
         my $comment = $co{'comment'};
         my $empty = 0;
@@ -2191,7 +2251,7 @@ sub git_commitdiff {
                 my $status = $5;
                 my $file = validate_input(unquote($6));
                 if ($status eq "A") {
                 my $status = $5;
                 my $file = validate_input(unquote($6));
                 if ($status eq "A") {
-                       print "<div class=\"diff_info\">" .  file_type($to_mode) . ":" .
+                       print "<div class=\"diff_info\">" . file_type($to_mode) . ":" .
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, $to_id) . "(new)" .
                               "</div>\n";
                         git_diff_print(undef, "/dev/null", $to_id, "b/$file");
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, $to_id) . "(new)" .
                               "</div>\n";
                         git_diff_print(undef, "/dev/null", $to_id, "b/$file");
@@ -2218,15 +2278,16 @@ sub git_commitdiff {
  
  sub git_commitdiff_plain {
         mkdir($git_temp, 0700);
  
  sub git_commitdiff_plain {
         mkdir($git_temp, 0700);
-       open my $fd, "-|", "$gitbin/git-diff-tree -r $hash_parent $hash" or die_error(undef, "Open failed.");
-       my (@difftree) = map { chomp; $_ } <$fd>;
+       open my $fd, "-|", $GIT, "diff-tree", '-r', $hash_parent, $hash
+               or die_error(undef, "Open git-diff-tree failed.");
+       my @difftree = map { chomp; $_ } <$fd>;
         close $fd or die_error(undef, "Reading diff-tree failed.");
  
         # try to figure out the next tag after this commit
         my $tagname;
         my $refs = read_info_ref("tags");
         close $fd or die_error(undef, "Reading diff-tree failed.");
  
         # try to figure out the next tag after this commit
         my $tagname;
         my $refs = read_info_ref("tags");
-       open $fd, "-|", "$gitbin/git-rev-list HEAD";
-       chomp (my (@commits) = <$fd>);
+       open $fd, "-|", $GIT, "rev-list", "HEAD";
+       my @commits = map { chomp; $_ } <$fd>;
         close $fd;
         foreach my $commit (@commits) {
                 if (defined $refs->{$commit}) {
         close $fd;
         foreach my $commit (@commits) {
                 if (defined $refs->{$commit}) {
@@ -2245,7 +2306,7 @@ sub git_commitdiff_plain {
               "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n".
               "Subject: $co{'title'}\n";
         if (defined $tagname) {
               "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n".
               "Subject: $co{'title'}\n";
         if (defined $tagname) {
-             print "X-Git-Tag: $tagname\n";
+               print "X-Git-Tag: $tagname\n";
         }
         print "X-Git-Url: $my_url?p=$project;a=commitdiff;h=$hash\n" .
               "\n";
         }
         print "X-Git-Url: $my_url?p=$project;a=commitdiff;h=$hash\n" .
               "\n";
@@ -2272,39 +2333,33 @@ sub git_commitdiff_plain {
  }
  
  sub git_history {
  }
  
  sub git_history {
-       if (!defined $hash) {
-               $hash = git_read_head($project);
+       if (!defined $hash_base) {
+               $hash_base = git_read_head($project);
         }
         }
-       my %co = git_read_commit($hash);
+       my $ftype;
+       my %co = git_read_commit($hash_base);
         if (!%co) {
                 die_error(undef, "Unknown commit object.");
         }
         my $refs = read_info_ref();
         git_header_html();
         if (!%co) {
                 die_error(undef, "Unknown commit object.");
         }
         my $refs = read_info_ref();
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
-             "<br/><br/>\n" .
-             "</div>\n";
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" .
-             "</div>\n";
-       print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b><br/></div>\n";
+       git_page_nav('','', $hash_base,$co{'tree'},$hash_base);
+       git_header_div('commit', esc_html($co{'title'}), $hash_base);
+       if (!defined $hash && defined $file_name) {
+               $hash = git_get_hash_by_path($hash_base, $file_name);
+       }
+       if (defined $hash) {
+               $ftype = git_get_type($hash);
+       }
+       git_print_page_path($file_name, $ftype);
  
  
-       open my $fd, "-|", "$gitbin/git-rev-list $hash | $gitbin/git-diff-tree -r --stdin -- \'$file_name\'";
-       my $commit;
+       open my $fd, "-|",
+               $GIT, "rev-list", "--full-history", $hash_base, "--", "\'$file_name\'";
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         while (my $line = <$fd>) {
                 if ($line =~ m/^([0-9a-fA-F]{40})/){
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         while (my $line = <$fd>) {
                 if ($line =~ m/^([0-9a-fA-F]{40})/){
-                       $commit = $1;
-                       next;
-               }
-               if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/ && (defined $commit)) {
+                       my $commit = $1;
                         my %co = git_read_commit($commit);
                         if (!%co) {
                                 next;
                         my %co = git_read_commit($commit);
                         if (!%co) {
                                 next;
@@ -2327,7 +2382,7 @@ sub git_history {
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
                               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") .
                               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=$commit;f=$file_name")}, "blob");
                               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
                               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") .
                               " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=$commit;f=$file_name")}, "blob");
-                       my $blob = git_get_hash_by_path($hash, $file_name);
+                       my $blob = git_get_hash_by_path($hash_base, $file_name);
                         my $blob_parent = git_get_hash_by_path($commit, $file_name);
                         if (defined $blob && defined $blob_parent && $blob ne $blob_parent) {
                                 print " | " .
                         my $blob_parent = git_get_hash_by_path($commit, $file_name);
                         if (defined $blob && defined $blob_parent && $blob ne $blob_parent) {
                                 print " | " .
@@ -2336,7 +2391,6 @@ sub git_history {
                         }
                         print "</td>\n" .
                               "</tr>\n";
                         }
                         print "</td>\n" .
                               "</tr>\n";
-                       undef $commit;
                 }
         }
         print "</table>\n";
                 }
         }
         print "</table>\n";
@@ -2370,24 +2424,14 @@ sub git_search {
                 $pickaxe_search = 1;
         }
         git_header_html();
                 $pickaxe_search = 1;
         }
         git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary;h=$hash")}, "summary") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
-             "<br/><br/>\n" .
-             "</div>\n";
+       git_page_nav('','', $hash,$co{'tree'},$hash);
+       git_header_div('commit', esc_html($co{'title'}), $hash);
  
  
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" .
-             "</div>\n";
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         if ($commit_search) {
                 $/ = "\0";
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         if ($commit_search) {
                 $/ = "\0";
-               open my $fd, "-|", "$gitbin/git-rev-list --header --parents $hash" or next;
+               open my $fd, "-|", $GIT, "rev-list", "--header", "--parents", $hash or next;
                 while (my $commit_text = <$fd>) {
                         if (!grep m/$searchtext/i, $commit_text) {
                                 next;
                 while (my $commit_text = <$fd>) {
                         if (!grep m/$searchtext/i, $commit_text) {
                                 next;
@@ -2437,7 +2481,7 @@ sub git_search {
  
         if ($pickaxe_search) {
                 $/ = "\n";
  
         if ($pickaxe_search) {
                 $/ = "\n";
-               open my $fd, "-|", "$gitbin/git-rev-list $hash | $gitbin/git-diff-tree -r --stdin -S\'$searchtext\'";
+               open my $fd, "-|", "$GIT rev-list $hash | $GIT diff-tree -r --stdin -S\'$searchtext\'";
                 undef %co;
                 my @files;
                 while (my $line = <$fd>) {
                 undef %co;
                 my @files;
                 while (my $line = <$fd>) {
@@ -2498,42 +2542,19 @@ sub git_shortlog {
                 $page = 0;
         }
         my $refs = read_info_ref();
                 $page = 0;
         }
         my $refs = read_info_ref();
-       git_header_html();
-       print "<div class=\"page_nav\">\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
-             " | shortlog" .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
-             " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$hash;hb=$hash")}, "tree") . "<br/>\n";
  
         my $limit = sprintf("--max-count=%i", (100 * ($page+1)));
  
         my $limit = sprintf("--max-count=%i", (100 * ($page+1)));
-       open my $fd, "-|", "$gitbin/git-rev-list $limit $hash" or die_error(undef, "Open failed.");
-       my (@revlist) = map { chomp; $_ } <$fd>;
+       open my $fd, "-|", $GIT, "rev-list", $limit, $hash
+               or die_error(undef, "Open git-rev-list failed.");
+       my @revlist = map { chomp; $_ } <$fd>;
         close $fd;
  
         close $fd;
  
-       if ($hash ne $head || $page) {
-               print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "HEAD");
-       } else {
-               print "HEAD";
-       }
-       if ($page > 0) {
-               print " &sdot; " .
-               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page-1)), -accesskey => "p", -title => "Alt-p"}, "prev");
-       } else {
-               print " &sdot; prev";
-       }
-       if ($#revlist >= (100 * ($page+1)-1)) {
-               print " &sdot; " .
-               $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page+1)), -accesskey => "n", -title => "Alt-n"}, "next");
-       } else {
-               print " &sdot; next";
-       }
-       print "<br/>\n" .
-             "</div>\n";
-       print "<div>\n" .
-             $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
-             "</div>\n";
+       my $paging_nav = git_get_paging_nav('shortlog', $hash, $head, $page, $#revlist);
+
+       git_header_html();
+       git_page_nav('shortlog','', $hash,$hash,$hash, $paging_nav);
+       git_header_div('summary', $project);
+
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         for (my $i = ($page * 100); $i <= $#revlist; $i++) {
         print "<table cellspacing=\"0\">\n";
         my $alternate = 0;
         for (my $i = ($page * 100); $i <= $#revlist; $i++) {