From e0389bd7f23cd49f46c82bb764fdc898b91fadc5 Mon Sep 17 00:00:00 2001 From: Kay Sievers Date: Sun, 7 Aug 2005 19:54:31 +0200 Subject: [PATCH] v001 --- gitweb.pl | 132 ++++++++++++++++++++++++++++++------------------------ 1 file changed, 73 insertions(+), 59 deletions(-) diff --git a/gitweb.pl b/gitweb.pl index fe44b188c..fd038355d 100755 --- a/gitweb.pl +++ b/gitweb.pl @@ -57,9 +57,7 @@ print <\"git\""; 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 { } 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 { 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 { 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 '
===== '; - 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 ' =====
'; + 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 '
' if $char eq '+'; print '
' if $char eq '-'; - print '
' if $char eq '@'; + print '
' if $char eq '@'; print escapeHTML($line); print '
' 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 "") { } 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") { 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") { print "

\n"; print "
\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 "
\n"; @@ -225,16 +212,18 @@ if ($action eq "blob") { git_header(); print "
\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") . "
\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") . "
\n"; print "

\n"; print "
\n"; print "\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") { 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") { $comment .= escapeHTML($line) . "
\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") { } print "\n"; print "\n"; - print ""; + print ""; print "\n"; print "\n"; print "\n"; print "
" . $age_string . "" . $cgi->a({-href => "$myself?project=$project;action=commit;hash=$commit;parent=$parent"}, $shortlog) . "" . $shortlog . "
"; - print $cgi->a({-href => "$myself?project=$project;action=diffs;hash=$commit;parent=$parent"}, "view diff") . "
\n"; - print $cgi->a({-href => "$myself?project=$project;action=commit;hash=$commit;parent=$parent"}, "view commit") . "
\n"; - print $cgi->a({-href => "$myself?project=$project;action=tree;hash=$tree"}, "view tree") . "
\n"; + print $cgi->a({-href => "$myself?project=$project&action=diffs&hash=$commit&parent=$parent"}, "view diff") . "
\n"; + print $cgi->a({-href => "$myself?project=$project&action=commit&hash=$commit&parent=$parent"}, "view commit") . "
\n"; + print $cgi->a({-href => "$myself?project=$project&action=tree&hash=$tree"}, "view tree") . "
\n"; print "
\n"; print "author    " . escapeHTML($author) . " [" . gmtime($author_time) . " " . $author_timezone . "]
\n"; @@ -330,17 +323,26 @@ if ($action eq "blob") { print "
\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 "
\n"; - print "view " . $cgi->a({-href => "$myself?project=$project;action=diffs;hash=$hash;parent=$parent"}, "diff") . "

\n"; + print "

\n"; print "
\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") {
 		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") {
 	print "
"; 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 "
\n"; - print "view " . $cgi->a({-href => "$myself?project=$project;action=commit;hash=$hash;parent=$parent"}, "commit") . "

\n"; + print "

\n"; print "
\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") {
 				git_diff($file, $file, $1, $2);
 			}
 		}
+		print "
\n"; } print "
\n"; print "
"; + print "
"; git_footer(); } else { git_header(); -- 2.30.2