kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity
Browse Source

v021

maint
Kay Sievers 20 years ago
parent
a7e09a96a8
commit
e334d18cfd
1 changed files with 100 additions and 74 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 174
      gitweb.pl

174
gitweb.pl
Unescape View File

@ -2,7 +2,7 @@


# gitweb.pl - simple web interface to track changes in git repositories # gitweb.pl - simple web interface to track changes in git repositories
# #
# Version 020 # Version 021
# #
# (C) 2005, Kay Sievers <kay.sievers@vrfy.org> # (C) 2005, Kay Sievers <kay.sievers@vrfy.org>
# (C) 2005, Christian Gierke <ch@gierke.de> # (C) 2005, Christian Gierke <ch@gierke.de>
@ -34,13 +34,13 @@ if ($url_parm =~ m#/(.+)/commit/([0-9a-fA-F]+)$#) {
$project = $1; $project = $1;
$action = "commit"; $action = "commit";
$hash = $2; $hash = $2;
} elsif ($url_parm =~ m#/(.+)/treediff/([0-9a-fA-F]+)$#) { } elsif ($url_parm =~ m#/(.+)/commitdiff/([0-9a-fA-F]+)$#) {
$project = $1; $project = $1;
$action = "treediff"; $action = "commitdiff";
$hash = $2; $hash = $2;
} elsif ($url_parm =~ m#/(.+)/diff/([0-9a-fA-F]+)/([0-9a-fA-F]+)$#) { } elsif ($url_parm =~ m#/(.+)/blobdiff/([0-9a-fA-F]+)/([0-9a-fA-F]+)$#) {
$project = $1; $project = $1;
$action = "diff"; $action = "blobdiff";
$hash = $2; $hash = $2;
$hash_parent = $3; $hash_parent = $3;
} elsif ($url_parm =~ m#/(.+)/blob/([0-9a-fA-F]+)$#) { } elsif ($url_parm =~ m#/(.+)/blob/([0-9a-fA-F]+)$#) {
@ -59,6 +59,10 @@ if ($url_parm =~ m#/(.+)/commit/([0-9a-fA-F]+)$#) {
$project = $1; $project = $1;
$action = "log"; $action = "log";
$view_back = 1; $view_back = 1;
} elsif ($url_parm =~ m#/(.+)/rss$#) {
$project = $1;
$action = "rss";
$view_back = 1;
} elsif ($url_parm =~ m#/git-logo.png$#) { } elsif ($url_parm =~ m#/git-logo.png$#) {
print $cgi->header(-type => 'image/png'); print $cgi->header(-type => 'image/png');
print "\211\120\116\107\015\012\032\012\000\000\000\015\111\110\104\122". print "\211\120\116\107\015\012\032\012\000\000\000\015\111\110\104\122".
@ -93,6 +97,7 @@ print <<EOF;
<html> <html>
<head> <head>
<title>git - $project $action</title> <title>git - $project $action</title>
<link rel="alternate" title="$project log" href="$myself/$project/rss" type="application/rss+xml">
<style type="text/css"> <style type="text/css">
body { font-family: sans-serif; font-size: 12px; margin:25px; } body { font-family: sans-serif; font-size: 12px; margin:25px; }
div.body { border-width:1px; border-style:solid; border-color:#D9D8D1; } div.body { border-width:1px; border-style:solid; border-color:#D9D8D1; }
@ -104,7 +109,6 @@ print <<EOF;
div.head2 a:visited { color:#0000cc; } div.head2 a:visited { color:#0000cc; }
div.head2 a:hover { color:#880000; } div.head2 a:hover { color:#880000; }
div.head2 a:active { color:#880000; } div.head2 a:active { color:#880000; }
div.main { padding:8px; font-family: sans-serif; font-size: 12px; }
div.shortlog { padding:8px; background-color: #D9D8D1; font-weight:bold; } div.shortlog { padding:8px; background-color: #D9D8D1; font-weight:bold; }
table { padding:0px; margin:0px; width:100%; } table { padding:0px; margin:0px; width:100%; }
tr { vertical-align:top; } tr { vertical-align:top; }
@ -120,6 +124,7 @@ print <<EOF;
a:hover { color:#880000; } a:hover { color:#880000; }
a:visited { color:#880000; } a:visited { color:#880000; }
a:active { color:#880000; } a:active { color:#880000; }
pre { padding:8px; }
</style> </style>
</head> </head>
<body> <body>
@ -213,20 +218,21 @@ if ($project eq "") {
my (@path) = grep(!/^\./, readdir($fd)); my (@path) = grep(!/^\./, readdir($fd));
closedir($fd); closedir($fd);
git_header(); git_header();
print "<br/><br/><div class=\"main\">\n"; print "<div class=\"head2\">\n";
print "<br/><br/>\n";
foreach my $line (@path) { foreach my $line (@path) {
if (-e "$projectroot/$defaultprojects/$line/.git/HEAD") { if (-e "$projectroot/$defaultprojects/$line/.git/HEAD") {
print $cgi->a({-href => "$myself/$defaultprojects/$line/log"}, $line) . "<br/>\n"; print $cgi->a({-href => "$myself/$defaultprojects/$line/log"}, $line) . "<br/>\n";
} }
} }
print "<br/></div>"; print "</div><br/>";
git_footer(); git_footer();
exit; exit;
} }


if ($action eq "blob") { if ($action eq "blob") {
git_header(); git_header();
print "<br/><br/><div class=\"main\">\n"; print "<br/><br/>\n";
print "<pre>\n"; print "<pre>\n";
open my $fd, "-|", "$gitbin/cat-file", "blob", $hash; open my $fd, "-|", "$gitbin/cat-file", "blob", $hash;
my $nr; my $nr;
@ -236,7 +242,7 @@ if ($action eq "blob") {
} }
close $fd; close $fd;
print "</pre>\n"; print "</pre>\n";
print "<br/></div>"; print "<br/>";
git_footer(); git_footer();
} elsif ($action eq "tree") { } elsif ($action eq "tree") {
if ($hash eq "") { if ($hash eq "") {
@ -250,7 +256,7 @@ if ($action eq "blob") {
my (@entries) = map { chomp; $_ } <$fd>; my (@entries) = map { chomp; $_ } <$fd>;
close $fd; close $fd;
git_header(); git_header();
print "<br/><br/><div class=\"main\">\n"; print "<br/><br/>\n";
print "<pre>\n"; print "<pre>\n";
foreach my $line (@entries) { foreach my $line (@entries) {
#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c' #'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
@ -265,9 +271,9 @@ if ($action eq "blob") {
} }
} }
print "</pre>\n"; print "</pre>\n";
print "<br/></div>"; print "<br/>";
git_footer(); git_footer();
} elsif ($action eq "log") { } elsif ($action eq "log" || $action eq "rss") {
open my $fd, "$projectroot/$project/.git/HEAD"; open my $fd, "$projectroot/$project/.git/HEAD";
my $head = <$fd>; my $head = <$fd>;
chomp $head; chomp $head;
@ -275,20 +281,33 @@ if ($action eq "blob") {
open $fd, "-|", "$gitbin/rev-tree", $head; open $fd, "-|", "$gitbin/rev-tree", $head;
my (@revtree) = reverse sort map { chomp; $_ } <$fd>; my (@revtree) = reverse sort map { chomp; $_ } <$fd>;
close $fd; close $fd;
git_header();
print "<div class=\"head2\">\n"; if ($action eq "log") {
print "view "; git_header();
print $cgi->a({-href => "$myself/$project/log"}, "last day") . " | "; print "<div class=\"head2\">\n";
print $cgi->a({-href => "$myself/$project/log/7"}, "week") . " | "; print "view ";
print $cgi->a({-href => "$myself/$project/log/31"}, "month") . " | "; print $cgi->a({-href => "$myself/$project/log"}, "last day") . " | ";
print $cgi->a({-href => "$myself/$project/log/365"}, "year") . " | "; print $cgi->a({-href => "$myself/$project/log/7"}, "week") . " | ";
print $cgi->a({-href => "$myself/$project/log/0"}, "all") . "<br/>\n"; print $cgi->a({-href => "$myself/$project/log/31"}, "month") . " | ";
print "<br/><br/>\n"; print $cgi->a({-href => "$myself/$project/log/365"}, "year") . " | ";
print "</div>\n"; print $cgi->a({-href => "$myself/$project/log/0"}, "all") . "<br/>\n";
print "<table cellspacing=\"0\" class=\"log\">\n"; print "<br/><br/>\n";
print "</div>\n";
print "<table cellspacing=\"0\" class=\"log\">\n";
} elsif ($action eq "rss") {
print $cgi->header(-type => 'text/xml; charset: utf-8');
print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
"<rss version=\"0.91\">\n";
print "<channel>\n";
print "<title>$project</title>\n".
"<link> " . $cgi->url() . "/$project/log</link>\n".
"<description>$project log</description>\n".
"<language>en</language>\n";
}

for (my $i = 0; $i <= $#revtree; $i++) { for (my $i = 0; $i <= $#revtree; $i++) {
my $rev = $revtree[$i]; my $rev = $revtree[$i];
#foreach my $rev (@revtree) { #foreach my $rev (@revtree) {
# '1114106118 755e3010ee10dadf42a8a80770e1b115fb038d9b:1 2af17b4854036a1c2ec6c101d93c8dd1ed80d24e:1' # '1114106118 755e3010ee10dadf42a8a80770e1b115fb038d9b:1 2af17b4854036a1c2ec6c101d93c8dd1ed80d24e:1'
last if !($rev =~ m/^([0-9]+) ([0-9a-fA-F]+).* ([0-9a-fA-F]+)/); last if !($rev =~ m/^([0-9]+) ([0-9a-fA-F]+).* ([0-9a-fA-F]+)/);
my $time = $1; my $time = $1;
@ -319,6 +338,7 @@ if ($action eq "blob") {
} }
} }
$shortlog = <$fd>; $shortlog = <$fd>;
chomp($shortlog);
$shortlog = escapeHTML($shortlog); $shortlog = escapeHTML($shortlog);
$comment = $shortlog . "<br/>"; $comment = $shortlog . "<br/>";
while (my $line = <$fd>) { while (my $line = <$fd>) {
@ -352,43 +372,55 @@ if ($action eq "blob") {
$age_string = int $age/60; $age_string = int $age/60;
$age_string .= " minutes ago"; $age_string .= " minutes ago";
} }
if ($view_back > 0 && $age > $view_back*60*60*24) { if ($action eq "log") {
if ($i == 0) { if ($view_back > 0 && $age > $view_back*60*60*24) {
if ($i == 0) {
print "<tr>\n";
print "<td class=\"head1\"> Last change $age_string. </td>\n";
print "</tr>\n";
}
last;
}
print "<tr>\n"; print "<tr>\n";
print "<td class=\"head1\"> Last change $age_string. </td>\n"; print "<td class=\"head1\">" . $age_string . "</td>\n";
print "<td class=\"head1\">" . $cgi->a({-href => "$myself/$project/commit/$commit"}, $shortlog) . "</td>";
print "</tr>\n"; print "</tr>\n";
print "<tr>\n";
print "<td class=\"head3\">";
print $cgi->a({-href => "$myself/$project/commitdiff/$commit"}, "view diff") . "<br/>\n";
print $cgi->a({-href => "$myself/$project/commit/$commit"}, "view commit") . "<br/>\n";
print $cgi->a({-href => "$myself/$project/tree/$tree"}, "view tree") . "<br/>\n";
print "</td>\n";
print "<td class=\"head2\">\n";
print "author &nbsp; &nbsp;" . escapeHTML($author) . " [" . gmtime($author_time) . " " . $author_timezone . "]<br/>\n";
print "committer " . escapeHTML($committer) . " [" . gmtime($committer_time) . " " . $committer_timezone . "]<br/>\n";
print "commit &nbsp; &nbsp;$commit<br/>\n";
print "tree &nbsp; &nbsp; &nbsp;$tree<br/>\n";
foreach my $par (@parents) {
print "parent &nbsp; &nbsp;$par<br/>\n";
}
print "</td>";
print "</tr>\n";
print "<tr>\n";
print "<td></td>\n";
print "<td>\n";
print "$comment<br/><br/>\n";
print "</td>";
print "</tr>\n";
} elsif ($action eq "rss") {
if ($i < 12) {
print "<item>\n\t<title>$age_string: $shortlog</title>\n";
print "\t<link> " . $cgi->url() . "/$project/commit/$commit</link>\n";
print "</item>\n";
} }
last;
}
print "<tr>\n";
print "<td class=\"head1\">" . $age_string . "</td>\n";
print "<td class=\"head1\">" . $cgi->a({-href => "$myself/$project/commit/$commit"}, $shortlog) . "</td>";
print "</tr>\n";
print "<tr>\n";
print "<td class=\"head3\">";
print $cgi->a({-href => "$myself/$project/treediff/$commit"}, "view diff") . "<br/>\n";
print $cgi->a({-href => "$myself/$project/commit/$commit"}, "view commit") . "<br/>\n";
print $cgi->a({-href => "$myself/$project/tree/$tree"}, "view tree") . "<br/>\n";
print "</td>\n";
print "<td class=\"head2\">\n";
print "author &nbsp; &nbsp;" . escapeHTML($author) . " [" . gmtime($author_time) . " " . $author_timezone . "]<br/>\n";
print "committer " . escapeHTML($committer) . " [" . gmtime($committer_time) . " " . $committer_timezone . "]<br/>\n";
print "commit &nbsp; &nbsp;$commit<br/>\n";
print "tree &nbsp; &nbsp; &nbsp;$tree<br/>\n";
foreach my $par (@parents) {
print "parent &nbsp; &nbsp;$par<br/>\n";
} }
print "</td>";
print "</tr>\n";
print "<tr>\n";
print "<td></td>\n";
print "<td>\n";
print "$comment<br/><br/>\n";
print "</td>";
print "</tr>\n";
} }
print "</table>\n"; if ($action eq "log") {
git_footer(); print "</table>\n";
git_footer();
} elsif ($action eq "rss") {
print "</channel></rss>";
}
} elsif ($action eq "commit") { } elsif ($action eq "commit") {
my $parent = ""; my $parent = "";
open my $fd, "-|", "$gitbin/cat-file", "commit", $hash; open my $fd, "-|", "$gitbin/cat-file", "commit", $hash;
@ -408,8 +440,8 @@ if ($action eq "blob") {
close $fd; close $fd;


git_header(); git_header();
print "<div class=\"main\">\n"; print "<div class=\"head2\">\n";
print "view " . $cgi->a({-href => "$myself/$project/treediff/$hash"}, "diff") . "<br/><br/><br/>\n"; print "view " . $cgi->a({-href => "$myself/$project/commitdiff/$hash"}, "diff") . "</div><br/><br/>\n";
print "<div class=\"shortlog\">$shortlog<br/></div>\n"; print "<div class=\"shortlog\">$shortlog<br/></div>\n";
print "<pre>\n"; print "<pre>\n";
foreach my $line (@difftree) { foreach my $line (@difftree) {
@ -430,22 +462,22 @@ if ($action eq "blob") {
$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/; $id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
my $old = $1; my $old = $1;
my $new = $2; my $new = $2;
print "changed\t" . $cgi->a({-href => "$myself/$project/diff/$old/$new"}, $file) . "\n"; print "changed\t" . $cgi->a({-href => "$myself/$project/blobdiff/$old/$new"}, $file) . "\n";
} }
} }
} }
print "</pre>\n"; print "</pre>\n";
print "<br/></div>"; print "<br/>";
git_footer(); git_footer();
} elsif ($action eq "diff") { } elsif ($action eq "blobdiff") {
git_header(); git_header();
print "<br/><br/><div class=\"main\">\n"; print "<br/><br/>\n";
print "<pre>\n"; print "<pre>\n";
git_diff($hash, $hash_parent, $hash, $hash_parent); git_diff($hash, $hash_parent, $hash, $hash_parent);
print "</pre>\n"; print "</pre>\n";
print "<br/></div>"; print "<br/>";
git_footer(); git_footer();
} elsif ($action eq "treediff") { } elsif ($action eq "commitdiff") {
my $parent = ""; my $parent = "";
open my $fd, "-|", "$gitbin/cat-file", "commit", $hash; open my $fd, "-|", "$gitbin/cat-file", "commit", $hash;
while (my $line = <$fd>) { while (my $line = <$fd>) {
@ -464,8 +496,8 @@ if ($action eq "blob") {
close $fd; close $fd;


git_header(); git_header();
print "<div class=\"main\">\n"; print "<div class=\"head2\">\n";
print "view " . $cgi->a({-href => "$myself/$project/commit/$hash"}, "commit") . "<br/><br/><br/>\n"; print "view " . $cgi->a({-href => "$myself/$project/commit/$hash"}, "commit") . "</div><br/><br/>\n";
print "<div class=\"shortlog\">$shortlog<br/></div>\n"; print "<div class=\"shortlog\">$shortlog<br/></div>\n";
print "<pre>\n"; print "<pre>\n";
foreach my $line (@difftree) { foreach my $line (@difftree) {
@ -488,12 +520,6 @@ if ($action eq "blob") {
} }
} }
print "</pre>\n"; print "</pre>\n";
print "<br/></div>"; print "<br/>";
git_footer();
} else {
git_header();
print "<br/><br/><div class=\"main\">\n";
print "unknown action\n";
print "<br/></div>";
git_footer(); git_footer();
} }

Write Preview
Loading…
Cancel
Save