AppStd/EmailProfiler
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj

Browse Source
This commit is contained in:
Jonathan Jenne 2019-09-20 16:19:20 +02:00
parent d04c3ab202
commit 6e8c2fb825
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
App/DigitalData.EMLProfiler/clsDatabase.vb
View File

@ -29,7 +29,7 @@ Public Class clsDatabase
TIMER_INTERVALL = DTCONFIG.Rows(0).Item("CHECK_INTERVALL_MINUTES") TIMER_INTERVALL = DTCONFIG.Rows(0).Item("CHECK_INTERVALL_MINUTES")
End If End If
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") DT_ECM_BASE_CONFIG = Return_Datatable("select * from TBDD_BASECONFIG")
Try Try
WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE") WM_DRIVE = DT_ECM_BASE_CONFIG.Rows(0).Item("WM_DRIVE")

4
App/DigitalData.EMLProfiler/clsEmail.IMAP.vb
View File

@ -10,8 +10,10 @@ Imports System.IO
Public Class clsEmailIMAP Public Class clsEmailIMAP
Private Shared Logger As DigitalData.Modules.Logging.Logger Private Shared Logger As DigitalData.Modules.Logging.Logger
Private Shared LogConfig As DigitalData.Modules.Logging.LogConfig
Sub New(LogConf As LogConfig) Sub New(LogConf As LogConfig)
LogConfig = LogConf
Logger = LogConf.GetLogger Logger = LogConf.GetLogger
End Sub End Sub
'Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs) 'Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs)
@ -94,7 +96,7 @@ Public Class clsEmailIMAP
End Try End Try
End Function End Function
Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs) Private Shared Sub OnWriteLog(ByVal sender As Object, ByVal e As WriteLogEventArgs)
Console.Write(e.Log) Logger.Debug(e.Log)
End Sub 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 = "") 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 Try

13
App/SERV_EMAIL/MyService.vb
View File

@ -29,6 +29,13 @@ Public Class MyService
If My.Settings.MyConnectionString = String.Empty Then If My.Settings.MyConnectionString = String.Empty Then
Logger.Warn("NO CONNECTIONSTRING CONFIGURED.") Logger.Warn("NO CONNECTIONSTRING CONFIGURED.")
Else 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) _database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
_email = New clsEmail(MyLogger) _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) _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 If _database.Init(My.Settings.MyConnectionString) = False Then
Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!") Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
Else 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 '### Thread für das nachträgliche Setzen von Rechten generieren
_threadRunner = New BackgroundWorker() _threadRunner = New BackgroundWorker()
_threadRunner.WorkerReportsProgress = True _threadRunner.WorkerReportsProgress = True