From 90923561734f17ad777237bed5e7b40e682344eb Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Sun, 26 Mar 2006 02:30:44 +0000
Subject: added --getctime

---
 IkiWiki/Rcs/SVN.pm  | 34 +++++++++++++++++++++++++++++++---
 IkiWiki/Rcs/Stub.pm |  6 +++++-
 2 files changed, 36 insertions(+), 4 deletions(-)

(limited to 'IkiWiki/Rcs')

diff --git a/IkiWiki/Rcs/SVN.pm b/IkiWiki/Rcs/SVN.pm
index 946412320..083b869df 100644
--- a/IkiWiki/Rcs/SVN.pm
+++ b/IkiWiki/Rcs/SVN.pm
@@ -1,10 +1,12 @@
-#!/usr/bin/perl -T
+#!/usr/bin/perl
 # For subversion support.
 
 use warnings;
 use strict;
 
 package IkiWiki;
+		
+my $svn_log_infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
 
 sub svn_info ($$) { #{{{
 	my $field=shift;
@@ -107,7 +109,6 @@ sub rcs_recentchanges ($) { #{{{
 		my ($svn_base)=$svn_url=~m!(/trunk(?:/.*)?)$!;
 		
 		my $div=qr/^--------------------+$/;
-		my $infoline=qr/^r(\d+)\s+\|\s+([^\s]+)\s+\|\s+(\d+-\d+-\d+\s+\d+:\d+:\d+\s+[-+]?\d+).*/;
 		my $state='start';
 		my ($rev, $user, $when, @pages, @message);
 		foreach (`LANG=C svn log --limit $num -v '$svn_url'`) {
@@ -115,7 +116,7 @@ sub rcs_recentchanges ($) { #{{{
 			if ($state eq 'start' && /$div/) {
 				$state='header';
 			}
-			elsif ($state eq 'header' && /$infoline/) {
+			elsif ($state eq 'header' && /$svn_log_infoline/) {
 				$rev=$1;
 				$user=$2;
 				$when=concise(ago(time - str2time($3)));
@@ -166,4 +167,31 @@ sub rcs_recentchanges ($) { #{{{
 	return @ret;
 } #}}}
 
+sub rcs_getctime () { #{{{
+	eval q{use Date::Parse};
+	foreach my $page (keys %pagectime) {
+		my $file="$config{srcdir}/$pagesources{$page}";
+		my $child = open(SVNLOG, "-|");
+		if (! $child) {
+			exec("svn", "log", $file) || error("svn log $file failed to run");
+		}
+
+		my $date;
+		while (<SVNLOG>) {
+			if (/$svn_log_infoline/) {
+				$date=$3;
+		    	}
+		}
+		close SVNLOG || warn "svn log $file exited $?";
+
+		if (! defined $date) {
+			warn "failed to parse svn log for $file\n";
+			next;
+		}
+		
+		$pagectime{$page}=$date=str2time($date);
+		debug("found ctime ".localtime($date)." for $page");
+	}
+} #}}}
+
 1
diff --git a/IkiWiki/Rcs/Stub.pm b/IkiWiki/Rcs/Stub.pm
index d3b72b5ea..d2a6ad003 100644
--- a/IkiWiki/Rcs/Stub.pm
+++ b/IkiWiki/Rcs/Stub.pm
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -T
+#!/usr/bin/perl
 # Stubs for no revision control.
 
 use warnings;
@@ -23,4 +23,8 @@ sub rcs_add ($) {
 sub rcs_recentchanges ($) {
 }
 
+sub rcs_getctime () {
+	error "getctime not implemented";
+}
+
 1
-- 
cgit v1.2.3