jj

App/DigitalData.EMLProfiler/clsDatabase.vb

@@ -29,7 +29,7 @@ Public Class clsDatabase
                     TIMER_INTERVALL = DTCONFIG.Rows(0).Item("CHECK_INTERVALL_MINUTES")
                 End If
             End If
-            MyLogger.Debug = LOG_ERRORS_ONLY
+            MyLogger.Debug = Not LOG_ERRORS_ONLY
             DT_ECM_BASE_CONFIG = Return_Datatable("select * from TBDD_BASECONFIG")
             Try
                 WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE")

App/DigitalData.EMLProfiler/clsEmail.IMAP.vb

@@ -10,8 +10,10 @@ Imports System.IO
 
 Public Class clsEmailIMAP
     Private Shared Logger As DigitalData.Modules.Logging.Logger
+    Private Shared LogConfig As DigitalData.Modules.Logging.LogConfig
 
     Sub New(LogConf As LogConfig)
+        LogConfig = LogConf
         Logger = LogConf.GetLogger
     End Sub
     'Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs)
@@ -94,7 +96,7 @@ Public Class clsEmailIMAP
         End Try
     End Function
     Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs)
-        Console.Write(e.Log)
+        Logger.Debug(e.Log)
     End Sub
     Public Function FetchIMAPMessagesIsoft(Server As String, Port As Integer, Username As String, Password As String, Inbox As String, Optional IsTest As Boolean = False, Optional DeleteinTest As Boolean = False, Optional MoveMailTo As String = "", Optional IsoftLog As String = "")
         Try

App/SERV_EMAIL/MyService.vb

@@ -29,6 +29,13 @@ Public Class MyService
             If My.Settings.MyConnectionString = String.Empty Then
                 Logger.Warn("NO CONNECTIONSTRING CONFIGURED.")
             Else
+                If LOG_ERRORS_ONLY = False Then
+                    Logger.Info("DEBUG ACTIVATED")
+                    MyLogger.Debug = True
+                Else
+                    MyLogger.Debug = False
+                End If
+
                 _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
                 _email = New clsEmail(MyLogger)
                 _workmail = New clsWorkEmail(MyLogger, My.Settings.MyConnectionString, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW)
@@ -36,12 +43,6 @@ Public Class MyService
                 If _database.Init(My.Settings.MyConnectionString) = False Then
                     Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
                 Else
-                    If LOG_ERRORS_ONLY = False Then
-                        Logger.Info("DEBUG ACTIVATED")
-                        MyLogger.Debug = True
-                    Else
-                        MyLogger.Debug = False
-                    End If
                     '### Thread für das nachträgliche Setzen von Rechten generieren
                     _threadRunner = New BackgroundWorker()
                     _threadRunner.WorkerReportsProgress = True