From 17b263c49df682fc45f0e50cceb01db4366ad9a7 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Thu, 10 Dec 2020 14:28:29 +0100
Subject: libinterimap: show the matching pinned SPKI in --debug mode.

---
 lib/Net/IMAP/InterIMAP.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/Net/IMAP')

diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index 1a71f59..849dc0f 100644
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -1635,6 +1635,7 @@ sub _ssl_verify($$$) {
 
                 my $pkey = Net::SSLeay::X509_get_X509_PUBKEY($cert);
                 if (defined $pkey and Net::SSLeay::EVP_Digest($pkey, $type) eq $digest) {
+                    $self->log('Peer certificate matches pinned SPKI digest ', $algo .'$'. $fpr) if $self->{debug};
                     $rv = 1;
                     last;
                 }
-- 
cgit v1.2.3