From 9467c0b044c11d57d2cba189d4e9ffd7e709d467 Mon Sep 17 00:00:00 2001
From: Amos Jeffries <squid3@treenet.co.nz>
Date: Fri, 27 Jan 2017 13:37:07 +1300
Subject: [PATCH] squidclient: link GnuTLS library debug to -v level display

---
 tools/squidclient/Transport.cc | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/tools/squidclient/Transport.cc b/tools/squidclient/Transport.cc
index 43923a6e63..a388714bb9 100644
--- a/tools/squidclient/Transport.cc
+++ b/tools/squidclient/Transport.cc
@@ -341,6 +341,14 @@ verifyTlsCertificate(gnutls_session_t session)
 }
 #endif
 
+#if USE_GNUTLS
+static void
+gnutlsDebugHandler(int level, const char *msg)
+{
+    debugVerbose(level, "GnuTLS: " << msg);
+}
+#endif
+
 void
 Transport::InitTls()
 {
@@ -355,6 +363,11 @@ Transport::InitTls()
 
     Config.tlsEnabled = true;
 
+#if USE_GNUTLS
+    gnutls_global_set_log_function(&gnutlsDebugHandler);
+    gnutls_global_set_log_level(scParams.verbosityLevel);
+#endif
+
     // Initialize for anonymous TLS
     gnutls_anon_allocate_client_credentials(&Config.anonCredentials);
 
-- 
2.47.3