From 24a956e6cbfe3b6e9ef8a90d07aca6272455a13b Mon Sep 17 00:00:00 2001
From: Daniel Lehman <dlehman25@gmail.com>
Date: Mon, 20 May 2024 20:23:17 -0700
Subject: [PATCH] bcrypt: Allow overriding GnuTLS debug level.

---
 dlls/bcrypt/gnutls.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dlls/bcrypt/gnutls.c b/dlls/bcrypt/gnutls.c
index 18ef70a7722..582b868a36e 100644
--- a/dlls/bcrypt/gnutls.c
+++ b/dlls/bcrypt/gnutls.c
@@ -466,7 +466,9 @@ static NTSTATUS gnutls_process_attach( void *args )
 
     if (TRACE_ON( bcrypt ))
     {
-        pgnutls_global_set_log_level( 4 );
+        char *env = getenv("GNUTLS_DEBUG_LEVEL");
+        int level = env ? atoi(env) : 4;
+        pgnutls_global_set_log_level(level);
         pgnutls_global_set_log_function( gnutls_log );
     }