]> Sergey Matveev's repositories - public-inbox.git/blobdiff - lib/PublicInbox/MiscIdx.pm
extindex: support `--gc' to remove dead inboxes
[public-inbox.git] / lib / PublicInbox / MiscIdx.pm
index 642d920baf608104bbcce29c527970b3718a89db..64591d0516ddcfef135ee77c697f61b85012f583 100644 (file)
@@ -53,6 +53,22 @@ sub commit_txn {
        delete($self->{xdb})->commit_transaction;
 }
 
+sub remove_eidx_key {
+       my ($self, $eidx_key) = @_;
+       my $xdb = $self->{xdb};
+       my $head = $xdb->postlist_begin('Q'.$eidx_key);
+       my $tail = $xdb->postlist_end('Q'.$eidx_key);
+       my @docids; # only one, unless we had bugs
+       for (; $head != $tail; $head++) {
+               push @docids, $head->get_docid;
+       }
+       for my $docid (@docids) {
+               $xdb->delete_document($docid);
+               warn "I: remove inbox docid #$docid ($eidx_key)\n";
+       }
+}
+
+# adds or updates according to $eidx_key
 sub index_ibx {
        my ($self, $ibx) = @_;
        my $eidx_key = $ibx->eidx_key;