From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Fri, 10 Nov 2023 21:46:05 +0000 (+0100)
Subject: Cache SSL parameters between runs.
X-Git-Url: https://git.sesse.net/?a=commitdiff_plain;h=625900659e0db4e08c29010527c6fc68e711cf4b;p=skvidarsync

Cache SSL parameters between runs.
---

diff --git a/bin/sync.pl b/bin/sync.pl
index 7e0317e..703b0c5 100644
--- a/bin/sync.pl
+++ b/bin/sync.pl
@@ -10,12 +10,18 @@ use POSIX;
 use Time::HiRes;
 use IO::Select;
 use Unicode::Collate;
+use IO::Socket::SSL;
 binmode STDOUT, ':utf8';
 binmode STDERR, ':utf8';
 use utf8;
 
 require '../include/config.pm';
 
+my $global_ctx = IO::Socket::SSL::SSL_Context->new(
+	SSL_session_cache_size => 100,  # Probably overkill.
+);
+IO::Socket::SSL::set_default_context($global_ctx);
+
 my @log = ();
 my $uca = Unicode::Collate->new(level => 1);