www: sort all /$INBOX/ topics by Received: timestamp

[public-inbox.git] / lib / PublicInbox / LeiStore.pm

diff --git a/lib/PublicInbox/LeiStore.pm b/lib/PublicInbox/LeiStore.pm
index 8e710540f0345cc27f5aa127c60801df32523f70..fce15a724b511d15c49a3a2c196eb4d9e68291d7 100644 (file)
--- a/lib/PublicInbox/LeiStore.pm
+++ b/lib/PublicInbox/LeiStore.pm
@@ -344,6 +344,15 @@ sub _reindex_1 { # git->cat_async callback
                my $eml = PublicInbox::Eml->new($bref);
                $smsg->{-merge_vmd} = 1; # preserve existing keywords
                $eidx->idx_shard($smsg->{num})->index_eml($eml, $smsg);
+       } elsif ($type eq 'missing') {
+               # pre-release/buggy lei may've indexed external-only msgs,
+               # try to correct that, here
+               warn("E: missing $hex, culling (ancient lei artifact?)\n");
+               $smsg->{to} = $smsg->{cc} = $smsg->{from} = '';
+               $smsg->{bytes} = 0;
+               $eidx->{oidx}->update_blob($smsg, '');
+               my $eml = PublicInbox::Eml->new("\r\n\r\n");
+               $eidx->idx_shard($smsg->{num})->index_eml($eml, $smsg);
        } else {
                warn("E: $type $hex\n");
        }
@@ -595,9 +604,8 @@ sub recv_and_run {
        $self->SUPER::recv_and_run(@args);
 }
 
-sub _sto_atexit { # dwaitpid callback
-       my ($args, $pid) = @_;
-       my $self = $args->[0];
+sub _sto_atexit { # awaitpid cb
+       my ($pid) = @_;
        warn "lei/store PID:$pid died \$?=$?\n" if $?;
 }
 
@@ -616,8 +624,7 @@ sub write_prepare {
                                        lei => $lei,
                                        -err_wr => $w,
                                        to_close => [ $r ],
-                               });
-               $self->wq_wait_async(\&_sto_atexit); # outlives $lei
+                               }, \&_sto_atexit);
                require PublicInbox::LeiStoreErr;
                PublicInbox::LeiStoreErr->new($r, $lei);
        }