From 75539c686f40f00c9638d5bfff0531210d2a9255 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 2 Oct 2020 14:50:54 +0200
Subject: [PATCH] fix debug logging and ldap query testing

---
 DDUserManager/DDUserManager/frmMain.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb
index 6ffd9a0..7d17043 100644
--- a/DDUserManager/DDUserManager/frmMain.vb
+++ b/DDUserManager/DDUserManager/frmMain.vb
@@ -40,6 +40,7 @@ Public Class frmMain
 
             MyLogger.Info("Starting UserManager v" & CurrentVersion)
             MyLogger.Info($"Current Username: {Environment.UserName}")
+            MyLogConfig.Debug = Not MyConfig.Config.LogErrorsOnly
 
             If MyConnectionString = "" Then
                 frmConfigDatabase.ShowDialog()
@@ -1093,12 +1094,14 @@ Public Class frmMain
         Dim oActiveDirectory As New ActiveDirectoryInterface(MyLogConfig, ldapPAth)
 
         If oActiveDirectory.Authenticate() Then
-            MsgBox("Verbindung erfolgreich aufgebaut!", MsgBoxStyle.Information)
+            MsgBox("Verbindung erfolgreich aufgebaut!", MsgBoxStyle.Information, Text)
 
             MyConfig.Config.AdRootPath = txtADRootNode.Text
             MyConfig.Save()
 
             MyLogger.Info($"New ActiveDirectory Path saved: {txtADRootNode.Text}")
+        Else
+            MsgBox("Verbindung konnte nicht hergestellt werden. Bitte überprüfen Sie Ihre Eingabe!", MsgBoxStyle.Critical, Text)
         End If
     End Sub