lib/PublicInbox/IMAPD.pm

   1 # Copyright (C) 2020 all contributors <meta@public-inbox.org>
   2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
   3
   4 # represents an IMAPD (currently a singleton),
   5 # see script/public-inbox-imapd for how it is used
   6 package PublicInbox::IMAPD;
   7 use strict;
   8 use parent qw(PublicInbox::NNTPD);
   9 use PublicInbox::InboxIdle;
  10
  11 sub new {
  12         my ($class) = @_;
  13         bless {
  14                 groups => {},
  15                 err => \*STDERR,
  16                 out => \*STDOUT,
  17                 grouplist => [],
  18                 # accept_tls => { SSL_server => 1, ..., SSL_reuse_ctx => ... }
  19                 # pi_config => PublicInbox::Config
  20                 # idler => PublicInbox::InboxIdle
  21         }, $class;
  22 }
  23
  24 sub refresh_groups {
  25         my ($self) = @_;
  26         my $pi_config = $self->{pi_config} = PublicInbox::Config->new;
  27         $self->SUPER::refresh_groups($pi_config);
  28         if (my $idler = $self->{idler}) {
  29                 $idler->refresh($pi_config);
  30         }
  31 }
  32
  33 sub idler_start {
  34         $_[0]->{idler} //= PublicInbox::InboxIdle->new($_[0]->{pi_config});
  35 }
  36
  37 1;