script/public-inbox-gcf2

   1 #!perl -w
   2 # Copyright (C) 2020 all contributors <meta@public-inbox.org>
   3 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   4 eval { require PublicInbox::Gcf2 };
   5 die "libgit2 development package or Inline::C missing for $0: $@\n" if $@;
   6 my $gcf2 = PublicInbox::Gcf2::new();
   7 use IO::Handle; # autoflush
   8 STDERR->autoflush(1);
   9 STDOUT->autoflush(1);
  10
  11 while (<STDIN>) {
  12         chomp;
  13         my ($oid, $git_dir) = split(/ /, $_, 2);
  14         $gcf2->add_alternate("$git_dir/objects");
  15         if (!$gcf2->cat_oid(1, $oid)) {
  16                 # retry once if missing.  We only get unabbreviated OIDs
  17                 # from SQLite or Xapian DBs, here, so malicious clients
  18                 # can't trigger excessive retries:
  19                 warn "I: $$ $oid missing, retrying in $git_dir...\n";
  20
  21                 $gcf2 = PublicInbox::Gcf2::new();
  22                 $gcf2->add_alternate("$git_dir/objects");
  23
  24                 if ($gcf2->cat_oid(1, $oid)) {
  25                         warn "I: $$ $oid found after retry\n";
  26                 } else {
  27                         warn "W: $$ $oid missing after retry\n";
  28                         print "$oid missing\n"; # mimic git-cat-file
  29                 }
  30         }
  31 }