11-08-2023

Connectors.Form/Modules/slt/sltSync.vb

@@ -16,7 +16,7 @@ Namespace slt
         Inherits BaseModule
         Implements ISync
 
-        Private ReadOnly FileEx As FileEx
+        Private ReadOnly MimeEx As MimeEx
 
         Public Overrides Property Name As String = "slt Sync"
         Public Overrides Property IsLoggedIn As Boolean = False
@@ -25,7 +25,7 @@ Namespace slt
 
         Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As Config)
             MyBase.New(pLogConfig, pDatabase, pConfig)
-            FileEx = New FileEx()
+            MimeEx = New MimeEx(pLogConfig)
         End Sub
 
         Public Overrides Async Function Run() As Threading.Tasks.Task Implements ISync.Run
@@ -123,7 +123,7 @@ Namespace slt
                     pMimetype = "application/vnd.ms-outlook"
                 End If
 
-                Dim oExtension = FileEx.GetExtension(pMimetype)
+                Dim oExtension = MimeEx.GetExtension(pMimetype)
                 Return StringEx.ConvertTextToSlug(pFilename) & oExtension
 
             Catch ex As Exception
@@ -166,10 +166,10 @@ Namespace slt
 
                 Dim oUrl = "/slt/External/System/Authentication/Json/Login"
                 Dim oParams = New Dictionary(Of String, String) From {
-                {"systemid", pSystemId},
-                {"user", Config.sltConfiguration.Username},
-                {"password", Config.sltConfiguration.Password}
-            }
+                    {"systemid", pSystemId},
+                    {"user", Config.sltConfiguration.Username},
+                    {"password", Config.sltConfiguration.Password}
+                }
 
                 Logger.Debug("Username: [{0}]", Config.sltConfiguration.Username)
                 Logger.Debug("SystemId: [{0}]", pSystemId)