Big update: MessageID replaced with Hash of MessageID
This commit is contained in:
Jonathan Jenne
@@ -1,15 +1,20 @@
|
||||
Imports System.ComponentModel
|
||||
Imports System.IO
|
||||
Imports DigitalData.EMLProfiler
|
||||
Imports DigitalData.EMLProfiler.ClassCurrent
|
||||
Imports DigitalData.Modules.Database
|
||||
Imports DigitalData.Modules.Logging
|
||||
Public Class MyService
|
||||
#Region "+++++ variables +++++"
|
||||
Private _threadRunner As BackgroundWorker
|
||||
Private MyLogger As LogConfig
|
||||
Private LogConfig As LogConfig
|
||||
Private Logger As Logger
|
||||
Private _database As clsDatabase
|
||||
'Private _database As clsDatabase
|
||||
Private _workmail As clsWorkEmail
|
||||
|
||||
Private _ConfigManager As ClassConfig
|
||||
Private _Config As ClassConfig.Config
|
||||
|
||||
Private Database As MSSQLServer
|
||||
#End Region
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
@@ -19,22 +24,9 @@ Public Class MyService
|
||||
' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
|
||||
' ausführen, damit der Dienst gestartet werden kann.
|
||||
Try
|
||||
MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "DD EmailProfiler")
|
||||
Logger = MyLogger.GetLogger
|
||||
|
||||
Try
|
||||
Dim directory As New IO.DirectoryInfo(MyLogger.LogDirectory)
|
||||
|
||||
For Each file As IO.FileInfo In directory.GetFiles
|
||||
If (Now - file.CreationTime).Days > 29 Then
|
||||
file.Delete()
|
||||
Else
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Dim oLogPath = Path.Combine(My.Application.Info.DirectoryPath, "Log")
|
||||
LogConfig = New LogConfig(LogConfig.PathType.CustomPath, oLogPath, Nothing, "Digital Data", "DD EmailProfiler", 30)
|
||||
Logger = LogConfig.GetLogger
|
||||
|
||||
Logger.Info("## Service started ## ")
|
||||
|
||||
@@ -43,23 +35,29 @@ Public Class MyService
|
||||
Else
|
||||
If My.Settings.DEBUG = True Then
|
||||
Logger.Info("DEBUG ACTIVATED")
|
||||
MyLogger.Debug = True
|
||||
LogConfig.Debug = True
|
||||
Else
|
||||
MyLogger.Debug = False
|
||||
LogConfig.Debug = False
|
||||
End If
|
||||
|
||||
_database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
|
||||
Database = New MSSQLServer(LogConfig, My.Settings.MyConnectionString)
|
||||
_ConfigManager = New ClassConfig(LogConfig, Database)
|
||||
_Config = _ConfigManager.GetConfig()
|
||||
|
||||
'_database = New clsDatabase(MyLogger, My.Settings.MyConnectionString)
|
||||
Logger.Debug("_database and _email initialized")
|
||||
_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(LogConfig, My.Settings.MyConnectionString, _Config.WindreamConnectionString, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW,
|
||||
My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix)
|
||||
Logger.Debug("_workmail initialized")
|
||||
If _database.Init(My.Settings.MyConnectionString) = False Then
|
||||
|
||||
If Database.DBInitialized = False Then
|
||||
Logger.Warn("ATTENTION: No Connection was established '" & My.Settings.MyConnectionString & "'!")
|
||||
Else
|
||||
'### Thread für das nachträgliche Setzen von Rechten generieren
|
||||
_threadRunner = New BackgroundWorker()
|
||||
_threadRunner.WorkerReportsProgress = True
|
||||
_threadRunner.WorkerSupportsCancellation = True
|
||||
_threadRunner = New BackgroundWorker With {
|
||||
.WorkerReportsProgress = True,
|
||||
.WorkerSupportsCancellation = True
|
||||
}
|
||||
AddHandler _threadRunner.DoWork, AddressOf RUN_THREAD
|
||||
AddHandler _threadRunner.RunWorkerCompleted, AddressOf Thread1_Completed
|
||||
'### Den Timer generieren
|
||||
@@ -67,7 +65,7 @@ Public Class MyService
|
||||
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
|
||||
AddHandler Timer_Durchlauf.Elapsed, AddressOf Thread_Run
|
||||
' Set the Interval
|
||||
Timer_Durchlauf.Interval = (TIMER_INTERVALL * 60000)
|
||||
Timer_Durchlauf.Interval = (_Config.TimerInterval * 60000)
|
||||
Timer_Durchlauf.Enabled = True
|
||||
Logger.Debug("...Timer started.")
|
||||
' Und den Durchlauf das erste Mal starten
|
||||
@@ -86,7 +84,7 @@ Public Class MyService
|
||||
Public Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
|
||||
Try
|
||||
Dim notcompleted As Boolean = False
|
||||
Dim _work As New clsWorker(My.Settings.EML_LIMITATION_SENDER, MyLogger, My.Settings.MyConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix)
|
||||
Dim _work As New clsWorker(My.Settings.EML_LIMITATION_SENDER, LogConfig, My.Settings.MyConnectionString, _Config.WindreamConnectionString, 0, My.Settings.FB_DATASOURCE, My.Settings.FB_DATABASE, My.Settings.FB_USER, My.Settings.FB_PW, My.Settings.USE_WM, My.Settings.EmailAccountID, My.Settings.EmailProfilerPraefix)
|
||||
_work.Start_WorkingProfiles()
|
||||
Catch ex As Exception
|
||||
Logger.Error(ex)
|
||||
|
||||
@@ -48,6 +48,12 @@
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="DigitalData.Modules.Base">
|
||||
<HintPath>..\..\..\DDModules\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Database">
|
||||
<HintPath>..\wisag_check_Att\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DigitalData.Modules.Language">
|
||||
<HintPath>..\..\..\DDModules\Language\bin\Debug\DigitalData.Modules.Language.dll</HintPath>
|
||||
</Reference>
|
||||
|
||||
Reference in New Issue
Block a user