From b337e8e9f4f74fda310afe90513b2bdca8a7d59c Mon Sep 17 00:00:00 2001
From: triatic <42704418+triatic@users.noreply.github.com>
Date: Fri, 6 Sep 2019 00:52:39 +0100
Subject: [PATCH] Allow tls verify servercert in imapssl mode

---
 dmarcts-report-parser.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/dmarcts-report-parser.pl b/dmarcts-report-parser.pl
index 410a196..efe5277 100755
--- a/dmarcts-report-parser.pl
+++ b/dmarcts-report-parser.pl
@@ -237,8 +237,13 @@ sub show_usage {
 		}
 	# The whole point of setting this socket arg is so that we don't get the nasty warning
 	} else {
-		print "using ssl without verify servercert.\n" if $debug;
-		$socketargs = [ SSL_verify_mode => SSL_VERIFY_NONE ];
+		if ( $tlsverify == 0 ) {
+			print "use tls without verify servercert.\n" if $debug;
+			$socketargs = [ SSL_verify_mode => SSL_VERIFY_NONE ];
+		} else {
+			print "use tls with verify servercert.\n" if $debug;
+			$socketargs = [ SSL_verify_mode => SSL_VERIFY_PEER ];
+		}
 	}
   
 	print "connection to $imapserver with Ssl => $imapssl, User => $imapuser, Ignoresizeerrors => $imapignoreerror\n" if $debug;