diff options
Diffstat (limited to 'script')
-rwxr-xr-x | script/public-inbox-gcf2 | 31 | ||||
-rwxr-xr-x | script/public-inbox-httpd | 1 |
2 files changed, 1 insertions, 31 deletions
diff --git a/script/public-inbox-gcf2 b/script/public-inbox-gcf2 deleted file mode 100755 index 4a44b654..00000000 --- a/script/public-inbox-gcf2 +++ /dev/null @@ -1,31 +0,0 @@ -#!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 $gcf2 = PublicInbox::Gcf2::new(); -use IO::Handle; # autoflush -STDERR->autoflush(1); -STDOUT->autoflush(1); - -while (<STDIN>) { - chomp; - my ($oid, $git_dir) = split(/ /, $_, 2); - $gcf2->add_alternate("$git_dir/objects"); - if (!$gcf2->cat_oid(1, $oid)) { - # retry once if missing. We only get unabbreviated OIDs - # from SQLite or Xapian DBs, here, so malicious clients - # can't trigger excessive retries: - warn "I: $$ $oid missing, retrying in $git_dir...\n"; - - $gcf2 = PublicInbox::Gcf2::new(); - $gcf2->add_alternate("$git_dir/objects"); - - 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 - } - } -} diff --git a/script/public-inbox-httpd b/script/public-inbox-httpd index b8159f3a..3befdab8 100755 --- a/script/public-inbox-httpd +++ b/script/public-inbox-httpd @@ -13,6 +13,7 @@ BEGIN { require PublicInbox::HTTP; require PublicInbox::HTTPD; } + my %httpds; my $app; my $refresh = sub { |