aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Net/IMAP/InterIMAP.pm
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2020-12-10 14:28:29 +0100
committerGuilhem Moulin <guilhem@fripost.org>2020-12-11 11:20:37 +0100
commit17b263c49df682fc45f0e50cceb01db4366ad9a7 (patch)
tree06f0d963294aa426deeebc046713263d90c6c072 /lib/Net/IMAP/InterIMAP.pm
parentc011e17d4f238882686e3f0e59c444a1c53ac8e3 (diff)
libinterimap: show the matching pinned SPKI in --debug mode.
Diffstat (limited to 'lib/Net/IMAP/InterIMAP.pm')
-rw-r--r--lib/Net/IMAP/InterIMAP.pm1
1 files changed, 1 insertions, 0 deletions
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;
}