nntp: NNTPS and NNTP+STARTTLS working

[public-inbox.git] / lib / PublicInbox / TLS.pm

diff --git a/lib/PublicInbox/TLS.pm b/lib/PublicInbox/TLS.pm
new file mode 100644 (file)
index 0000000..576c11d
--- /dev/null
+++ b/lib/PublicInbox/TLS.pm
@@ -0,0 +1,24 @@
+# Copyright (C) 2019 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+
+# IO::Socket::SSL support code
+package PublicInbox::TLS;
+use strict;
+use IO::Socket::SSL;
+require Carp;
+use Errno qw(EAGAIN);
+use PublicInbox::Syscall qw(EPOLLIN EPOLLOUT);
+
+sub err () { $SSL_ERROR }
+
+# returns the EPOLL event bit which matches the existing SSL error
+sub epollbit () {
+       if ($! == EAGAIN) {
+               return EPOLLIN if $SSL_ERROR == SSL_WANT_READ;
+               return EPOLLOUT if $SSL_ERROR == SSL_WANT_WRITE;
+               die "unexpected SSL error: $SSL_ERROR";
+       }
+       0;
+}
+
+1;