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

v001

maint
Kay Sievers 20 years ago
parent
ecb378f5b5
commit
e0389bd7f2
1 changed files with 73 additions and 59 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 132
      gitweb.pl

132
gitweb.pl
Unescape View File

@ -57,9 +57,7 @@ print <<EOF; @@ -57,9 +57,7 @@ print <<EOF;
td.head3 { background-color: #EDECE6; font-size:10px; }
div.add { color: #008800; }
div.subtract { color: #CC0000; }
div.diff_head { color: #000099; }
div.diff_head a:visited { color:#0000cc; }
div.diff_line { color: #990099; }
div.diff_head { color: #990099; }
a { color:#0000cc; }
a:hover { color:#880000; }
a:visited { color:#880000; }
@ -73,7 +71,7 @@ EOF @@ -73,7 +71,7 @@ EOF
print "<a href=\"http://kernel.org/pub/software/scm/git/\"><img src=\"git_logo.png\" width=\"72\" height=\"27\" alt=\"git\" style=\"float:right; border-width:0px;\"/></a>";
print $cgi->a({-href => "$myself"}, "projects");
if ($project ne "") {
print " / " . $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24}, $project);
print " / " . $cgi->a({-href => "$myself?project=$project&action=log&view_back=" . 60*60*24}, $project);
}
if ($action ne "") {
print " / $action";
@ -87,17 +85,16 @@ sub git_footer { @@ -87,17 +85,16 @@ sub git_footer {
}

sub git_diff {
my $old_name = shift || "/dev/null";
my $new_name = shift || "/dev/null";
my $old_name = shift;
my $new_name = shift;
my $old = shift;
my $new = shift;

my $label_old = "/dev/null";
my $label_new = "/dev/null";
my $tmp_old = "/dev/null";
my $tmp_new = "/dev/null";
my $old_label = "/dev/null";
my $new_label = "/dev/null";

# create temp from-file
if ($old ne "") {
open my $fd2, "> $gittmp/$old";
open my $fd, "-|", "$gitbin/cat-file", "blob", $old;
@ -107,10 +104,9 @@ sub git_diff { @@ -107,10 +104,9 @@ sub git_diff {
close $fd2;
close $fd;
$tmp_old = "$gittmp/$old";
$old_label = "a/$old_name";
$label_old = "a/$old_name";
}

# create tmp to-file
if ($new ne "") {
open my $fd2, "> $gittmp/$new";
open my $fd, "-|", "$gitbin/cat-file", "blob", $new;
@ -120,34 +116,21 @@ sub git_diff { @@ -120,34 +116,21 @@ sub git_diff {
close $fd2;
close $fd;
$tmp_new = "$gittmp/$new";
$new_label = "a/$new_name";
$label_new = "b/$new_name";
}

open my $fd, "-|", "/usr/bin/diff", "-L", $old_label, "-L", $new_label, "-u", "-p", $tmp_old, $tmp_new;
print '<div class="diff_head">===== ';
if ($old ne "") {
print $cgi->a({-href => "$myself?project=$project;action=blob;hash=$old"}, $old);
} else {
print $old_name;
}
print " vs ";
if ($new ne "") {
print $cgi->a({-href => "$myself?project=$project;action=blob;hash=$new"}, $new);
} else {
print $new_name;
}
print ' =====</div>';
open my $fd, "-|", "/usr/bin/diff", "-L", $label_old, "-L", $label_new, "-u", "-p", $tmp_old, $tmp_new;
while (my $line = <$fd>) {
my $char = substr($line,0,1);
print '<div class="add">' if $char eq '+';
print '<div class="subtract">' if $char eq '-';
print '<div class="diff_line">' if $char eq '@';
print '<div class="diff_head">' if $char eq '@';
print escapeHTML($line);
print '</div>' if $char eq '+' or $char eq '-' or $char eq '@';
}
close $fd;
unlink("$gittmp/$new");
unlink("$gittmp/$old");
#unlink("$gittmp/$new");
#unlink("$gittmp/$old");
}

if ($project eq "") {
@ -167,7 +150,7 @@ if ($project eq "") { @@ -167,7 +150,7 @@ if ($project eq "") {
}

if ($action eq "") {
print $cgi->redirect("$myself?project=$project;action=log;view_back=$view_back");
print $cgi->redirect("$myself?project=$project&action=log&view_back=$view_back");
exit;
}

@ -191,7 +174,12 @@ if ($action eq "blob") { @@ -191,7 +174,12 @@ if ($action eq "blob") {
my $head = <$fd>;
chomp $head;
close $fd;
$hash = $head;
open $fd, "-|", "$gitbin/cat-file", "commit", $head;
my $tree = <$fd>;
chomp $tree;
$tree =~ s/tree //;
close $fd;
$hash = $tree;
}
open my $fd, "-|", "$gitbin/ls-tree", $hash;
my (@entries) = map { chomp; $_ } <$fd>;
@ -200,15 +188,14 @@ if ($action eq "blob") { @@ -200,15 +188,14 @@ if ($action eq "blob") {
print "<br/><br/><div class=\"main\">\n";
print "<pre>\n";
foreach my $line (@entries) {
#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
$line =~ m/^([0-9]+)\t(.*)\t(.*)\t(.*)$/;
my $t_type = $2;
my $t_hash = $3;
my $t_name = $4;
if ($t_type eq "blob") {
print "BLOB\t" . $cgi->a({-href => "$myself?project=$project;action=blob;hash=$3"}, $4) . "\n";
print "BLOB\t" . $cgi->a({-href => "$myself?project=$project&action=blob&hash=$3"}, $4) . "\n";
} elsif ($t_type eq "tree") {
print "TREE\t" . $cgi->a({-href => "$myself?project=$project;action=tree;hash=$3"}, $4) . "\n";
print "TREE\t" . $cgi->a({-href => "$myself?project=$project&action=tree&hash=$3"}, $4) . "\n";
}
}
print "</pre>\n";
@ -225,16 +212,18 @@ if ($action eq "blob") { @@ -225,16 +212,18 @@ if ($action eq "blob") {
git_header();
print "<div class=\"head2\">\n";
print "view ";
print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24}, "last day") . " | ";
print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24*7}, "week") . " | ";
print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24*30}, "month") . " | ";
print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24*365}, "year") . " | ";
print $cgi->a({-href => "$myself?project=$project;action=log;view_back=-1"}, "all") . "<br/>\n";
print $cgi->a({-href => "$myself?project=$project&action=log&view_back=" . 60*60*24}, "last day") . " | ";
print $cgi->a({-href => "$myself?project=$project&action=log&view_back=" . 60*60*24*7}, "week") . " | ";
print $cgi->a({-href => "$myself?project=$project&action=log&view_back=" . 60*60*24*30}, "month") . " | ";
print $cgi->a({-href => "$myself?project=$project&action=log&view_back=" . 60*60*24*365}, "year") . " | ";
print $cgi->a({-href => "$myself?project=$project&action=log&view_back=-1"}, "all") . "<br/>\n";
print "<br/><br/>\n";
print "</div>\n";
print "<table cellspacing=\"0\" class=\"log\">\n";
foreach my $rev (reverse sort @revtree) {
last if !($rev =~ m/^([0-9]+) ([0-9a-fA-F]+).* ([0-9a-fA-F]+)/);
if (!($rev =~ m/^([0-9]+) ([0-9a-fA-F]+).* ([0-9a-fA-F]+)/)) {
last;
}
my $time = $1;
my $commit = $2;
my $parent = $3;
@ -252,7 +241,9 @@ if ($action eq "blob") { @@ -252,7 +241,9 @@ if ($action eq "blob") {
open my $fd, "-|", "$gitbin/cat-file", "commit", $commit;
while (my $line = <$fd>) {
chomp($line);
last if $line eq "";
if ($line eq "") {
last;
}
if ($line =~ m/^tree (.*)$/) {
$tree = $1;
} elsif ($line =~ m/^parent (.*)$/) {
@ -277,8 +268,10 @@ if ($action eq "blob") { @@ -277,8 +268,10 @@ if ($action eq "blob") {
$comment .= escapeHTML($line) . "<br/>\n";
}
close $fd;
my $age = time-$committer_time;
last if ($view_back > 0 && $age > $view_back);
my $age = time-$author_time;
if ($view_back > 0 && $age > $view_back) {
last;
}

my $age_string;
if ($age > 60*60*24*365*2) {
@ -302,13 +295,13 @@ if ($action eq "blob") { @@ -302,13 +295,13 @@ if ($action eq "blob") {
}
print "<tr>\n";
print "<td class=\"head1\">" . $age_string . "</td>\n";
print "<td class=\"head1\">" . $cgi->a({-href => "$myself?project=$project;action=commit;hash=$commit;parent=$parent"}, $shortlog) . "</td>";
print "<td class=\"head1\"><a href=\"$myself?project=$project&amp;action=commit&amp;hash=$commit&amp;parent=$parent\">" . $shortlog . "</a></td>";
print "</tr>\n";
print "<tr>\n";
print "<td class=\"head3\">";
print $cgi->a({-href => "$myself?project=$project;action=diffs;hash=$commit;parent=$parent"}, "view diff") . "<br/>\n";
print $cgi->a({-href => "$myself?project=$project;action=commit;hash=$commit;parent=$parent"}, "view commit") . "<br/>\n";
print $cgi->a({-href => "$myself?project=$project;action=tree;hash=$tree"}, "view tree") . "<br/>\n";
print $cgi->a({-href => "$myself?project=$project&action=diffs&hash=$commit&parent=$parent"}, "view diff") . "<br/>\n";
print $cgi->a({-href => "$myself?project=$project&action=commit&hash=$commit&parent=$parent"}, "view commit") . "<br/>\n";
print $cgi->a({-href => "$myself?project=$project&action=tree&hash=$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";
@ -330,17 +323,26 @@ if ($action eq "blob") { @@ -330,17 +323,26 @@ if ($action eq "blob") {
print "</table>\n";
git_footer();
} elsif ($action eq "commit") {
open my $fd, "-|", "$gitbin/diff-tree", "-r", $parent, $hash;
open my $fd, "-|", "$gitbin/cat-file", "commit", $hash;
my $tree = <$fd>;
chomp $tree;
$tree =~ s/tree //;
close $fd;

open $fd, "-|", "$gitbin/cat-file", "commit", $parent;
my $parent_tree = <$fd>;
chomp $parent_tree;
$parent_tree =~ s/tree //;
close $fd;

open $fd, "-|", "$gitbin/diff-tree", "-r", $parent_tree, $tree;
my (@difftree) = map { chomp; $_ } <$fd>;
close $fd;

git_header();
print "<div class=\"head2\">\n";
print "view " . $cgi->a({-href => "$myself?project=$project;action=diffs;hash=$hash;parent=$parent"}, "diff") . "<br/><br/>\n";
print "<br/><br/><div class=\"main\">\n";
print "<pre>\n";
foreach my $line (@difftree) {
# '*100644->100644 blob 9f91a116d91926df3ba936a80f020a6ab1084d2b->bb90a0c3a91eb52020d0db0e8b4f94d30e02d596 net/ipv4/route.c'
# '+100644 blob 4a83ab6cd565d21ab0385bac6643826b83c2fcd4 arch/arm/lib/bitops.h'
$line =~ m/^(.)(.*)\t(.*)\t(.*)\t(.*)$/;
my $op = $1;
my $mode = $2;
@ -349,14 +351,14 @@ if ($action eq "blob") { @@ -349,14 +351,14 @@ if ($action eq "blob") {
my $file = $5;
if ($type eq "blob") {
if ($op eq "+") {
print "NEW\t" . $cgi->a({-href => "$myself?project=$project;action=blob;hash=$id"}, $file) . "\n";
print "NEW\t" . $cgi->a({-href => "$myself?project=$project&action=blob&hash=$id"}, $file) . "\n";
} elsif ($op eq "-") {
print "DEL\t" . $cgi->a({-href => "$myself?project=$project;action=blob;hash=$id"}, $file) . "\n";
print "DEL\t" . $cgi->a({-href => "$myself?project=$project&action=blob&hash=$id"}, $file) . "\n";
} elsif ($op eq "*") {
$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
my $old = $1;
my $new = $2;
print "CHANGED\t" . $cgi->a({-href => "$myself?project=$project;action=diff;hash=$old;parent=$new"}, $file) . "\n";
print "CHANGED\t" . $cgi->a({-href => "$myself?project=$project&action=diff&hash=$old&parent=$new"}, $file) . "\n";
}
}
}
@ -372,16 +374,26 @@ if ($action eq "blob") { @@ -372,16 +374,26 @@ if ($action eq "blob") {
print "<br/></div>";
git_footer();
} elsif ($action eq "diffs") {
open my $fd, "-|", "$gitbin/diff-tree", "-r", $parent, $hash;
open my $fd, "-|", "$gitbin/cat-file", "commit", $hash;
my $tree = <$fd>;
chomp $tree;
$tree =~ s/tree //;
close $fd;

open $fd, "-|", "$gitbin/cat-file", "commit", $parent;
my $parent_tree = <$fd>;
chomp $parent_tree;
$parent_tree =~ s/tree //;
close $fd;

open $fd, "-|", "$gitbin/diff-tree", "-r", $parent_tree, $tree;
my (@difftree) = map { chomp; $_ } <$fd>;
close $fd;

git_header();
print "<div class=\"head2\">\n";
print "view " . $cgi->a({-href => "$myself?project=$project;action=commit;hash=$hash;parent=$parent"}, "commit") . "<br/><br/>\n";
print "<br/><br/><div class=\"main\">\n";
print "<pre>\n";
foreach my $line (@difftree) {
# '*100644->100644 blob 8e5f9bbdf4de94a1bc4b4da8cb06677ce0a57716->8da3a306d0c0c070d87048d14a033df02f40a154 Makefile'
$line =~ m/^(.)(.*)\t(.*)\t(.*)\t(.*)$/;
my $op = $1;
my $mode = $2;
@ -398,9 +410,11 @@ if ($action eq "blob") { @@ -398,9 +410,11 @@ if ($action eq "blob") {
git_diff($file, $file, $1, $2);
}
}
print "<br/>\n";
}
print "</pre>\n";
print "<br/></div>";
print "<br/></div>";
git_footer();
} else {
git_header();

Write Preview
Loading…
Cancel
Save