From: Joey Hess <joey@gnu.kitenet.net>
Date: Mon, 12 Oct 2009 02:38:42 +0000 (-0400)
Subject: git: --getctime will now follow renames back to the original creation of a file.
X-Git-Tag: 3.20091017~33
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=33f42db2ea0422551223c255d85d9f4e45ee404b;p=ikiwiki.git

git: --getctime will now follow renames back to the original creation of a file.

This will be a bit more expensive, but --getctime does not need to be fast.
And getting the real creation time a very useful when untangling blog
histories that involve renames.
---

diff --git a/IkiWiki/Plugin/git.pm b/IkiWiki/Plugin/git.pm
index ad58231e0..e10283f59 100644
--- a/IkiWiki/Plugin/git.pm
+++ b/IkiWiki/Plugin/git.pm
@@ -613,9 +613,11 @@ sub rcs_getctime ($) {
 	# Remove srcdir prefix
 	$file =~ s/^\Q$config{srcdir}\E\/?//;
 
-	my @sha1s = run_or_non('git', 'rev-list', 'HEAD', '--', $file);
-	my $ci    = git_commit_info($sha1s[$#sha1s], 1);
-	my $ctime = $ci->{'author_epoch'};
+	my @raw_lines = run_or_die('git', 'log', '--reverse', '--follow',
+		'--pretty=raw', '--raw', '--abbrev=40', '--always', '-c',
+		'-r', '--', $file);
+	my $first = parse_diff_tree("", \@raw_lines);
+	my $ctime = $first->{'author_epoch'};
 	debug("ctime for '$file': ". localtime($ctime));
 
 	return $ctime;
diff --git a/debian/changelog b/debian/changelog
index 22935955a..76094e7a6 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -2,6 +2,8 @@ ikiwiki (3.20091010) UNRELEASED; urgency=low
 
   * ikiwiki-calendar: New command automates creation of archive pages
     using the calendar plugin.
+  * git: --getctime will now follow renames back to the original creation
+    of a file.
 
  -- Joey Hess <joeyh@debian.org>  Sun, 11 Oct 2009 15:54:45 -0400