Much stuff

This commit is contained in:
Jonathan Jenne
2019-04-04 16:29:18 +02:00
parent 7ebd07cf14
commit 9010ad4139
52 changed files with 1482 additions and 83 deletions

View File

@@ -0,0 +1,3 @@
Public Class ADSyncArgs
End Class

View File

@@ -0,0 +1,9 @@
Imports DigitalData.Modules.Jobs
Public Class ADSyncJob
Implements IJob(Of ADSyncArgs)
Public Sub Start(Arguments As ADSyncArgs) Implements IJob(Of ADSyncArgs).Start
End Sub
End Class

View File

@@ -0,0 +1,5 @@
Public Class EmailData
Public Attachment As String
Public Subject As String
Public From As String
End Class

View File

@@ -5,6 +5,7 @@ Imports System.Linq
Imports System.Text.RegularExpressions
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Interfaces
Imports DigitalData.Modules.Jobs
Imports DigitalData.Modules.Jobs.Exceptions
Imports DigitalData.Modules.Logging
Imports FirebirdSql.Data.FirebirdClient
@@ -24,36 +25,6 @@ Public Class ImportZUGFeRDFiles
Private _firebird As Firebird
Private _filesystem As Filesystem.File
Public Class WorkerArgs
Public WatchDirectories As List(Of String)
Public SuccessDirectory As String
Public ErrorDirectory As String
Public OriginalEmailDirectory As String
Public RejectedEmailDirectory As String
Public PropertyMap As Dictionary(Of String, XmlItemProperty)
Public Sub New()
WatchDirectories = New List(Of String)
SuccessDirectory = Nothing
ErrorDirectory = Nothing
OriginalEmailDirectory = Nothing
RejectedEmailDirectory = Nothing
PropertyMap = New Dictionary(Of String, XmlItemProperty)
End Sub
End Class
Public Class EmailData
Public Attachment As String
Public Subject As String
Public From As String
End Class
Public Class XmlItemProperty
Public TableName As String
Public Description As String
Public IsRequired As Boolean
End Class
Public Sub New(LogConfig As LogConfig, Firebird As Firebird)
_logConfig = LogConfig
_logger = LogConfig.GetLogger()

View File

@@ -0,0 +1,19 @@
Imports System.Collections.Generic
Public Class WorkerArgs
Public WatchDirectories As List(Of String)
Public SuccessDirectory As String
Public ErrorDirectory As String
Public OriginalEmailDirectory As String
Public RejectedEmailDirectory As String
Public PropertyMap As Dictionary(Of String, XmlItemProperty)
Public Sub New()
WatchDirectories = New List(Of String)
SuccessDirectory = Nothing
ErrorDirectory = Nothing
OriginalEmailDirectory = Nothing
RejectedEmailDirectory = Nothing
PropertyMap = New Dictionary(Of String, XmlItemProperty)
End Sub
End Class

View File

@@ -0,0 +1,5 @@
Public Class XmlItemProperty
Public TableName As String
Public Description As String
Public IsRequired As Boolean
End Class