package PublicInbox::POP3;
use v5.12;
use parent qw(PublicInbox::DS);
-use PublicInbox::Syscall qw(EPOLLIN EPOLLONESHOT);
use PublicInbox::GitAsyncCat;
use PublicInbox::DS qw(now);
use Errno qw(EAGAIN);
printf { $self->{pop3d}->{out} } $fmt."\n", @args;
}
-sub zflush {} # noop
-
-sub requeue_once ($) {
- my ($self) = @_;
- # COMPRESS users all share the same DEFLATE context.
- # Flush it here to ensure clients don't see
- # each other's data
- $self->zflush;
-
- # no recursion, schedule another call ASAP,
- # but only after all pending writes are done.
- # autovivify wbuf:
- my $new_size = push(@{$self->{wbuf}}, \&long_step);
-
- # wbuf may be populated by $cb, no need to rearm if so:
- $self->requeue if $new_size == 1;
-}
-
sub long_step {
my ($self) = @_;
# wbuf is unset or empty, here; {long} may add to it
undef;
}
-sub _greet ($) {
+sub do_greet {
my ($self) = @_;
my $s = $self->{salt} = sprintf('%x.%x', int(rand(0x7fffffff)), time);
$self->write("+OK POP3 server ready <$s\@public-inbox>\r\n");
}
-sub new ($$$) {
- my ($class, $sock, $pop3d) = @_;
- my $self = bless { pop3d => $pop3d }, __PACKAGE__;
- my $ev = EPOLLIN;
- my $wbuf;
- if ($sock->can('accept_SSL') && !$sock->accept_SSL) {
- return CORE::close($sock) if $! != EAGAIN;
- $ev = PublicInbox::TLS::epollbit() or return CORE::close($sock);
- $wbuf = [ \&PublicInbox::DS::accept_tls_step, \&_greet ];
- }
- $self->SUPER::new($sock, $ev | EPOLLONESHOT);
- if ($wbuf) {
- $self->{wbuf} = $wbuf;
- } else {
- _greet($self);
- }
- $self;
+sub new {
+ my ($cls, $sock, $pop3d) = @_;
+ (bless { pop3d => $pop3d }, $cls)->greet($sock)
}
# POP user is $UUID1@$NEWSGROUP.$SLICE