#!perl -w # Copyright (C) 2020-2021 all contributors # License: AGPL-3.0+ # # Standalone read-only IMAP server for public-inbox. use strict; use PublicInbox::Daemon; use PublicInbox::IMAPdeflate; # loads PublicInbox::IMAP use PublicInbox::IMAPD; my $imapd = PublicInbox::IMAPD->new; PublicInbox::Daemon::run('0.0.0.0:143', sub { $imapd->refresh_groups(@_) }, # refresh sub ($$$) { PublicInbox::IMAP->new($_[0], $imapd) }, # post_accept $imapd);