user/dev discussion of public-inbox itself
 help / color / Atom feed
* [PATCH] git: calculate modified time of repository
@ 2019-04-17 11:39 Eric Wong
  0 siblings, 0 replies; only message in thread
From: Eric Wong @ 2019-04-17 11:39 UTC (permalink / raw)
  To: meta

This will be used for generating an HTML listing for v1 inboxes,
at least.  The logic for this follows that of grokmirror,
and we may dynamically generate manifest.js.gz natively...
---
 lib/PublicInbox/Git.pm | 18 ++++++++++++++++++
 t/git.fast-import-data |  2 +-
 t/git.t                |  5 +++++
 3 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm
index 8a96e10..236f70c 100644
--- a/lib/PublicInbox/Git.pm
+++ b/lib/PublicInbox/Git.pm
@@ -312,6 +312,24 @@ ($$)
 	($$buf =~ /\r?\n\r?\n([^\r\n]+)\r?\n?/)[0]
 }
 
+# returns the modified time of a git repo, same as the "modified" field
+# of a grokmirror manifest
+sub modified ($) {
+	my ($self) = @_;
+	my $modified = 0;
+	my $fh = popen($self, qw(rev-parse --branches));
+	defined $fh or return $modified;
+	local $/ = "\n";
+	foreach my $oid (<$fh>) {
+		chomp $oid;
+		my $buf = cat_file($self, $oid) or next;
+		$$buf =~ /^committer .*?> (\d+) [\+\-]?\d+/sm or next;
+		my $cmt_time = $1;
+		$modified = $cmt_time if $cmt_time > $modified;
+	}
+	$modified || time;
+}
+
 1;
 __END__
 =pod
diff --git a/t/git.fast-import-data b/t/git.fast-import-data
index 4a105ee..6d5159d 100644
--- a/t/git.fast-import-data
+++ b/t/git.fast-import-data
@@ -90,7 +90,7 @@ data 78
 commit refs/heads/master
 mark :13
 author AU Thor <e@example.com> 0 +0000
-committer AU Thor <e@example.com> 0 +0000
+committer AU Thor <e@example.com> 749520000 +0000
 data 18
 add git submodule
 from :11
diff --git a/t/git.t b/t/git.t
index d637e63..5b612b8 100644
--- a/t/git.t
+++ b/t/git.t
@@ -23,6 +23,7 @@ use_ok 'PublicInbox::Git';
 
 {
 	my $gcf = PublicInbox::Git->new($dir);
+	is($gcf->modified, 749520000, 'modified time detected from commit');
 	my $f = 'HEAD:foo.txt';
 	my @x = $gcf->check($f);
 	is(scalar @x, 3, 'returned 3 element array for existing file');
@@ -146,6 +147,10 @@ if ('alternates reloaded') {
 	ok($gcf->cleanup(time - 30), 'cleanup did not expire');
 	ok(!$gcf->cleanup(time + 30), 'cleanup can expire');
 	ok(!$gcf->cleanup, 'cleanup idempotent');
+
+	my $t = $gcf->modified;
+	ok($t <= time, 'repo not modified in the future');
+	isnt($t, 0, 'repo not modified in 1970')
 }
 
 use_ok 'PublicInbox::Git', qw(git_unquote git_quote);
-- 
EW


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, back to index

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2019-04-17 11:39 [PATCH] git: calculate modified time of repository Eric Wong

user/dev discussion of public-inbox itself

Archives are clonable:
	git clone --mirror http://public-inbox.org/meta
	git clone --mirror http://czquwvybam4bgbro.onion/meta
	git clone --mirror http://hjrcffqmbrq6wope.onion/meta
	git clone --mirror http://ou63pmih66umazou.onion/meta

Newsgroups are available over NNTP:
	nntp://news.public-inbox.org/inbox.comp.mail.public-inbox.meta
	nntp://ou63pmih66umazou.onion/inbox.comp.mail.public-inbox.meta
	nntp://czquwvybam4bgbro.onion/inbox.comp.mail.public-inbox.meta
	nntp://hjrcffqmbrq6wope.onion/inbox.comp.mail.public-inbox.meta
	nntp://news.gmane.org/gmane.mail.public-inbox.general

 note: .onion URLs require Tor: https://www.torproject.org/

AGPL code for this site: git clone https://public-inbox.org/ public-inbox