From: Eric Wong <e@80x24.org>
Date: Wed, 24 Nov 2021 15:45:39 +0000 (+0000)
Subject: eliminate some unused subs
X-Git-Tag: v1.8.0~38
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=99a78c2ac51f63de41ccfc27e504d9b0e54d0592;p=public-inbox.git

eliminate some unused subs

->newsgroup_matches was never used, and ->shard_over_check
was dropped in 89193578d21f (extindex: --gc checkpoints, 2021-10-06).
---

diff --git a/lib/PublicInbox/MiscSearch.pm b/lib/PublicInbox/MiscSearch.pm
index 6b575b0d..c6d2a062 100644
--- a/lib/PublicInbox/MiscSearch.pm
+++ b/lib/PublicInbox/MiscSearch.pm
@@ -81,41 +81,6 @@ sub mset {
 	retry_reopen($self, \&misc_enquire_once, $qr, $opt);
 }
 
-sub ibx_matches_once { # retry_reopen callback
-	my ($self, $qr, $by_newsgroup) = @_;
-	# double in case no newsgroups are configured:
-	my $limit = scalar(keys %$by_newsgroup) * 2;
-	my $opt = { limit => $limit, offset => 0, relevance => -1 };
-	my $ret = {}; # newsgroup => $ibx of matches
-	while (1) {
-		my $mset = misc_enquire_once($self, $qr, $opt);
-		for my $mi ($mset->items) {
-			my ($eidx_key) = xap_terms('Q', $mi->get_document);
-			if (defined($eidx_key)) {
-				if (my $ibx = $by_newsgroup->{$eidx_key}) {
-					$ret->{$eidx_key} = $ibx;
-				}
-			} else {
-				warn <<EOF;
-W: docid=${\$mi->get_docid} has no `Q' (eidx_key) term
-EOF
-			}
-		}
-		my $nr = $mset->size;
-		return $ret if $nr < $limit;
-		$opt->{offset} += $nr;
-	}
-}
-
-# returns a newsgroup => PublicInbox::Inbox mapping
-sub newsgroup_matches {
-	my ($self, $qs, $pi_cfg) = @_;
-	my $qp = $self->{qp} //= mi_qp_new($self);
-	$qs .= ' type:inbox';
-	my $qr = $qp->parse_query($qs, $PublicInbox::Search::QP_FLAGS);
-	retry_reopen($self, \&ibx_matches_once, $qr, $pi_cfg->{-by_newsgroup});
-}
-
 sub ibx_data_once {
 	my ($self, $ibx) = @_;
 	my $xdb = $self->{xdb};
diff --git a/lib/PublicInbox/SearchIdxShard.pm b/lib/PublicInbox/SearchIdxShard.pm
index 8635f585..000abd94 100644
--- a/lib/PublicInbox/SearchIdxShard.pm
+++ b/lib/PublicInbox/SearchIdxShard.pm
@@ -75,14 +75,4 @@ sub shard_close {
 	$self->ipc_worker_stop;
 }
 
-sub shard_over_check {
-	my ($self, $over) = @_;
-	if ($self->{-ipc_req} && $over->{dbh}) {
-		# can't send DB handles over IPC, and use read-only to avoid
-		# create_tables lock conflict:
-		$over = PublicInbox::Over->new($over->{dbh}->sqlite_db_filename)
-	}
-	$self->ipc_do('over_check', $over);
-}
-
 1;