diff options
Diffstat (limited to 'lib/PublicInbox/LeiNoteEvent.pm')
-rw-r--r-- | lib/PublicInbox/LeiNoteEvent.pm | 133 |
1 files changed, 133 insertions, 0 deletions
diff --git a/lib/PublicInbox/LeiNoteEvent.pm b/lib/PublicInbox/LeiNoteEvent.pm new file mode 100644 index 00000000..8d900d0c --- /dev/null +++ b/lib/PublicInbox/LeiNoteEvent.pm @@ -0,0 +1,133 @@ +# Copyright (C) all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> + +# internal command for dealing with inotify, kqueue vnodes, etc +# it is a semi-persistent worker +package PublicInbox::LeiNoteEvent; +use strict; +use v5.10.1; +use parent qw(PublicInbox::IPC); +use PublicInbox::DS; +use Errno qw(ENOENT); + +our $to_flush; # { cfgpath => $lei } + +sub flush_lei ($;$) { + my ($lei, $manual) = @_; + my $lne = delete $lei->{cfg}->{-lei_note_event} // return; + $lne->{lei_sock} = $lei->{sock} if $manual; + $lne->wq_close; # runs _lei_wq_eof; +} + +# we batch up writes and flush every 5s (matching Linux default +# writeback behavior) since MUAs can trigger a storm of inotify events +sub flush_task { # PublicInbox::DS timer callback + my $todo = $to_flush // return; + $to_flush = undef; + for my $lei (values %$todo) { flush_lei($lei) } +} + +sub eml_event ($$$$) { + my ($self, $eml, $vmd, $state) = @_; + my $sto = $self->{lei}->{sto}; + if ($state =~ /\Aimport-(?:rw|ro)\z/) { + $sto->wq_do('set_eml', $eml, $vmd); + } elsif ($state =~ /\Aindex-(?:rw|ro)\z/) { + my $xoids = $self->{lei}->ale->xoids_for($eml); + $sto->wq_do('index_eml_only', $eml, $vmd, $xoids); + } elsif ($state =~ /\Atag-(?:rw|ro)\z/) { + my $docids = []; + my $c = eval { + $self->{lse}->kw_changed($eml, $vmd->{kw}, $docids); + } // 1; # too new, assume changed since still to-be-committed. + if (scalar @$docids) { # already in lei/store + $sto->wq_do('set_eml_vmd', undef, $vmd, $docids) if $c; + } elsif (my $xoids = $self->{lei}->ale->xoids_for($eml)) { + # it's in an external, only set kw, here + $sto->wq_do('set_xvmd', $xoids, $eml, $vmd); + } # else { totally unknown: ignore + } else { + warn "unknown state: $state (in $self->{lei}->{cfg}->{'-f'})\n"; + } +} + +sub maildir_event { # via wq_nonblock_do + my ($self, $fn, $vmd, $state) = @_; + if (my $eml = PublicInbox::InboxWritable::eml_from_path($fn)) { + eml_event($self, $eml, $vmd, $state); + } elsif ($! == ENOENT) { + $self->{lms}->clear_src(@{$vmd->{sync_info}}); + } # else: eml_from_path already warns +} + +sub _mh_cb { # mh_read_one cb + my ($dir, $bn, $kw, $eml, $self, $state) = @_; +} + +sub mh_event { # via wq_nonblock_do + my ($self, $folder, $bn, $state) = @_; + my $dir = substr($folder, 3); + require PublicInbox::MHreader; # if we forked early + my $mhr = PublicInbox::MHreader->new($dir, $self->{lei}->{3}); + $mhr->mh_read_one($bn, \&_mh_cb, $self, $state); +} + +sub lei_note_event { + my ($lei, $folder, $new_cur, $bn, $fn, @rest) = @_; + die "BUG: unexpected: @rest" if @rest; + my $cfg = $lei->_lei_cfg or return; # gone (race) + my $sto = $lei->_lei_store or return; # gone + return flush_lei($lei, 1) if $folder eq 'done'; # special case + my $lms = $lei->lms or return; + $lms->lms_write_prepare if $new_cur eq ''; # for ->clear_src below + $lei->{opt}->{quiet} = 1; + $lms->arg2folder($lei, [ $folder ]); + my $state = $cfg->get_1("watch.$folder.state") // 'tag-rw'; + return if $state eq 'pause'; + if ($new_cur eq '') { + my $id = $folder =~ /\Amaildir:/ ? \$bn : $bn + 0; + return $lms->clear_src($folder, $id); + } + $lms->lms_pause; + $lei->ale; # prepare + $sto->write_prepare($lei); + require PublicInbox::MHreader if $folder =~ /\Amh:/; # optimistic + my $self = $cfg->{-lei_note_event} //= do { + my $wq = bless { lms => $lms }, __PACKAGE__; + # MUAs such as mutt can trigger massive rename() storms so + # use some CPU, but don't overwhelm slower storage, either + my $jobs = $wq->detect_nproc // 1; + $jobs = 4 if $jobs > 4; # same default as V2Writable + my ($op_c, $ops) = $lei->workers_start($wq, $jobs); + $lei->wait_wq_events($op_c, $ops); + PublicInbox::DS::add_uniq_timer('flush_timer', 5, \&flush_task); + $to_flush->{$lei->{cfg}->{'-f'}} //= $lei; + $wq->prepare_nonblock; + $lei->{lne} = $wq; + }; + if ($folder =~ /\Amaildir:/i) { + require PublicInbox::MdirReader; + my $fl = PublicInbox::MdirReader::maildir_basename_flags($bn) + // return; + return if index($fl, 'T') >= 0; + my $kw = PublicInbox::MdirReader::flags2kw($fl); + my $vmd = { kw => $kw, sync_info => [ $folder, \$bn ] }; + $self->wq_nonblock_do('maildir_event', $fn, $vmd, $state); + } elsif ($folder =~ /\Amh:/) { + $self->wq_nonblock_do('mh_event', $folder, $bn, $state); + } # else: TODO: imap +} + +sub ipc_atfork_child { + my ($self) = @_; + $self->{lei}->_lei_atfork_child(1); # persistent, for a while + $self->{lms}->lms_write_prepare; + $self->{lse} = $self->{lei}->{sto}->search; + $self->SUPER::ipc_atfork_child; +} + +sub _lei_wq_eof { # EOF callback for main lei daemon + $_[0]->wq_eof('lne'); +} + +1; |