MS Changes Firebird due to wisag

App/DigitalData.EMLProfiler/ClassCurrent.vb

@@ -0,0 +1,60 @@
+Imports Independentsoft.Email.Mime
+Imports WINDREAMLib
+
+Public Class ClassCurrent
+    Public Shared LOG_ERRORS_ONLY As Boolean = True
+    Public Shared WM_CON_STRING As String
+    Public Shared WM_DRIVE As String
+    Public Shared TIMER_INTERVALL As Integer = 5
+
+    Public Shared LOG_INITIALIZED As Boolean = False
+    Public Shared CURRENT_FILEIN_WD As String
+    Public Shared CURRENT_IMPORT_ID As Integer
+
+    Public Shared CURRENT_EMAIL_GUID As Integer
+    Public Shared CURRENT_PROFILE_GUID As Integer
+    Public Shared DTCONFIG As DataTable
+    Public Shared DT_ECM_BASE_CONFIG As DataTable
+    Public Shared PATH_TEMP As String
+    Public Shared PATH_ERROR As String
+
+    Public Shared MAIL_BODY_FONT As String = ""
+    Public Shared MAIL_FROM As String = ""
+    Public Shared MAIL_SERVER As String = ""
+    Public Shared MAIL_USER As String = ""
+    Public Shared MAIL_USER_PW As String = ""
+    Public Shared MAIL_PORT As Integer = 995
+    Public Shared DT_POLL_PROCESS As DataTable
+    Public Shared DT_STEPS As DataTable
+    Public Shared DT_INDEXING_STEPS As DataTable
+
+    Public Shared MAIL_LIST As New ArrayList()
+
+    Public Shared CURRENT_MAIL_MESSAGE As Message
+    Public Shared CURRENT_TEMP_MAIL_PATH As String
+    Public Shared CURRENT_MAIL_BODY As String
+    Public Shared CURRENT_MAIL_BODY_Substr1 As String = ""
+    Public Shared CURRENT_MAIL_BODY_Substr2 As String = ""
+    Public Shared CURRENT_MAIL_SUBJECT As String = ""
+    Public Shared CURRENT_MAIL_PROCESS_NAME As String
+
+    Public Shared CURRENT_POLL_TYPE As String
+
+    Public Shared POLL_STEP_GUID As Integer
+    Public Shared POLL_STEP_PROCESS_ID As Integer
+    Public Shared POLL_KEYWORDS As String
+    Public Shared KEYWORDS_SPLIT As String()
+
+    Public Shared WM_REFERENCE_INDEX As String
+    Public Shared WM_VECTOR_LOG As String
+    Public Shared WM_OBJEKTTYPE As String
+    Public Shared WM_IDX_BODY_TEXT As String
+    Public Shared WM_IDX_BODY_SUBSTR_LENGTH As String
+
+    Public Shared CURRENT_WM_DOC As WMObject
+    Public Shared CURRENT_DOC_ID As Integer
+    Public Shared CURRENT_DOC_PATH As String
+    Public Shared MessageError As Boolean = False
+
+    Public Shared TEMP_FILES As List(Of String) = New List(Of String)
+End Class