diff options
author | Eric Wong <e@80x24.org> | 2019-01-01 10:18:46 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-01-02 08:33:35 +0000 |
commit | bd06b22c9fa498d72808cebfa3987718288ce5db (patch) | |
tree | e193ceb2c034b7ec7eb776e8d8331db639ae5df9 /lib | |
parent | cf35d38e7f845393659dfce0249a76d529a2c92c (diff) | |
download | public-inbox-bd06b22c9fa498d72808cebfa3987718288ce5db.tar.gz |
No need to reach into PublicInbox::Config internals and iterate through the hashref by hand
Diffstat (limited to 'lib')
-rw-r--r-- | lib/PublicInbox/WatchMaildir.pm | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/lib/PublicInbox/WatchMaildir.pm b/lib/PublicInbox/WatchMaildir.pm index 13dea168..b558cda1 100644 --- a/lib/PublicInbox/WatchMaildir.pm +++ b/lib/PublicInbox/WatchMaildir.pm @@ -45,30 +45,27 @@ sub new { my $spamcheck = PublicInbox::Spamcheck::get($config, $k, $default); $spamcheck = _spamcheck_cb($spamcheck) if $spamcheck; - # need to make all inboxes writable for spam removal: - $config->each_inbox(sub { PublicInbox::InboxWritable->new($_[0]) }); + $config->each_inbox(sub { + # need to make all inboxes writable for spam removal: + my $ibx = $_[0] = PublicInbox::InboxWritable->new($_[0]); - foreach $k (keys %$config) { - $k =~ /\Apublicinbox\.([^\.]+)\.watch\z/ or next; - my $name = $1; - my $watch = $config->{$k}; + my $watch = $ibx->{watch} or return; if ($watch =~ s/\Amaildir://) { $watch =~ s!/+\z!!; - my $inbox = $config->lookup_name($name); - if (my $wm = $inbox->{watchheader}) { + if (my $wm = $ibx->{watchheader}) { my ($k, $v) = split(/:/, $wm, 2); - $inbox->{-watchheader} = [ $k, qr/\Q$v\E/ ]; + $ibx->{-watchheader} = [ $k, qr/\Q$v\E/ ]; } my $new = "$watch/new"; my $cur = "$watch/cur"; push @mdir, $new, $cur; die "$new already in use\n" if $mdmap{$new}; die "$cur already in use\n" if $mdmap{$cur}; - $mdmap{$new} = $mdmap{$cur} = $inbox; + $mdmap{$new} = $mdmap{$cur} = $ibx; } else { warn "watch unsupported: $k=$watch\n"; } - } + }); return unless @mdir; my $mdre = join('|', map { quotemeta($_) } @mdir); |