From 703ac7102fb66f748f9a636f57852909b4425496 Mon Sep 17 00:00:00 2001
From: Kay Sievers <kay.sievers@suse.de>
Date: Sun, 7 Aug 2005 20:03:14 +0200
Subject: [PATCH] v021

---
 gitweb.pl | 50 +++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 45 insertions(+), 5 deletions(-)

diff --git a/gitweb.pl b/gitweb.pl
index dd5fbdc2..6d604d73 100755
--- a/gitweb.pl
+++ b/gitweb.pl
@@ -157,6 +157,47 @@ sub git_head {
 	return $head;
 }
 
+sub git_commit {
+	my $commit = shift;
+	my %co;
+	my @parents;
+
+	open my $fd, "-|", "$gitbin/cat-file", "commit", $commit;
+	while (my $line = <$fd>) {
+		chomp($line);
+		last if $line eq "";
+		if ($line =~ m/^tree (.*)$/) {
+			$co{'tree'} = $1;
+		} elsif ($line =~ m/^parent (.*)$/) {
+			push @parents, $1;
+		} elsif ($line =~ m/^committer (.*>) ([0-9]+) (.*)$/) {
+			$co{'committer'} = $1;
+			$co{'committer_time'} = $2;
+			$co{'committer_timezone'} = $3;
+		} elsif ($line =~ m/^author (.*>) ([0-9]+) (.*)$/) {
+			$co{'$author'} = $1;
+			$co{'$author_time'} = $2;
+			$co{'$author_timezone'} = $3;
+		}
+	}
+	my $shortlog = <$fd>;
+	chomp($shortlog);
+	$co{'shortlog'} = escapeHTML($shortlog);
+	my $comment = $shortlog . "<br/>";
+	while (my $line = <$fd>) {
+			chomp($line);
+			if ($line =~ m/signed-off-by:/i) {
+				$comment .= '<div class="signed_off">' . escapeHTML($line) . "<br/></div>\n";
+			} else {
+				$comment .= escapeHTML($line) . "<br/>\n";
+			}
+	}
+	$co{'comment'} = $comment;
+	close $fd;
+
+	return %co;
+}
+
 sub git_diff {
 	my $old_name = shift || "/dev/null";
 	my $new_name = shift || "/dev/null";
@@ -408,11 +449,10 @@ if ($action eq "blob") {
 			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 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";
 		}
 	}
 	if ($action eq "log") {
-- 
2.11.0