diff options
author | Eric Wong <e@80x24.org> | 2022-07-23 04:41:48 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2022-07-23 14:22:29 +0000 |
commit | b5371f1053676a4a551140739582070df773dc9c (patch) | |
tree | 7276ab3b42205a2454774adb6446bcd20473a590 /lib/PublicInbox/POP3.pm | |
parent | 806b83f28401901daaf9170b030fca6fd2fd930e (diff) | |
download | public-inbox-b5371f1053676a4a551140739582070df773dc9c.tar.gz |
We can share some common code between IMAP, NNTP, and POP3 without too much trouble, so cut down our LoC.
Diffstat (limited to 'lib/PublicInbox/POP3.pm')
-rw-r--r-- | lib/PublicInbox/POP3.pm | 23 |
1 files changed, 4 insertions, 19 deletions
diff --git a/lib/PublicInbox/POP3.pm b/lib/PublicInbox/POP3.pm index ec73893c..c368615d 100644 --- a/lib/PublicInbox/POP3.pm +++ b/lib/PublicInbox/POP3.pm @@ -33,7 +33,6 @@ 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); @@ -113,29 +112,15 @@ sub long_response ($$;@) { 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 |