user/dev discussion of public-inbox itself
 help / color / mirror / code / Atom feed
d2d2ac8bd828340c76194e426c7d0b7b2b9849db blob 1078 bytes (raw)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
#!perl -w
# Copyright (C) 2020 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
eval { require PublicInbox::Gcf2 };
die "libgit2 development package or Inline::C missing for $0: $@\n" if $@;
my @dirs; # may get big (30K-100K)
my $gcf2 = PublicInbox::Gcf2::new();
use IO::Handle; # autoflush
STDERR->autoflush(1);
STDOUT->autoflush(1);

while (<STDIN>) {
	chomp;
	if (m!\A/!) { # +/path/to/git-dir
		push @dirs, $_;
		$gcf2->add_alternate("$_/objects");
	} elsif (!$gcf2->cat_oid(1, $_)) {
		# retry once if missing.  We only get unabbreviated OIDs
		# from SQLite or Xapian DBs, here, so malicious clients
		# can't trigger excessive retries:
		my $oid = $_;
		warn "I: $$ $oid missing, retrying...\n";

		# clients may need to wait a bit for this:
		$gcf2 = PublicInbox::Gcf2::new();
		$gcf2->add_alternate("$_/objects") for @dirs;

		if ($gcf2->cat_oid(1, $oid)) {
			warn "I: $$ $oid found after retry\n";
		} else {
			warn "W: $$ $oid missing after retry\n";
			print "$oid missing\n"; # mimic git-cat-file
		}
	}
}
debug log:

solving d2d2ac8b ...
found d2d2ac8b in public-inbox.git.git

Code repositories for project(s) associated with this inbox:

	https://80x24.org/public-inbox.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).