about summary refs log tree commit homepage
path: root/lib/PublicInbox/TLS.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-06-24 02:52:38 +0000
committerEric Wong <e@80x24.org>2019-06-24 05:26:26 +0000
commitb70cf61f0c1f70621b88fe6420083a576d47f19f (patch)
tree88b4cd6fb40e983d7b9a536456067e42b7d890ba /lib/PublicInbox/TLS.pm
parent93fc0336d39ba3ef07b479877e64371f07c86eab (diff)
downloadpublic-inbox-b70cf61f0c1f70621b88fe6420083a576d47f19f.tar.gz
It kinda, barely works, and I'm most happy I got it working
without any modifications to the main NNTP::event_step callback
thanks to the DS->write(CODE) support we inherited from
Danga::Socket.
Diffstat (limited to 'lib/PublicInbox/TLS.pm')
-rw-r--r--lib/PublicInbox/TLS.pm24
1 files changed, 24 insertions, 0 deletions
diff --git a/lib/PublicInbox/TLS.pm b/lib/PublicInbox/TLS.pm
new file mode 100644
index 00000000..576c11d7
--- /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;