bugfixes

WiDigShared/ClassConfig.vb

@@ -11,6 +11,7 @@ Public Class ClassConfig
     Public Property WMServer As String = ""
     Public Property Domain As String = ""
     Public Property LOG_DEBUG As Boolean = False
+    Public Property Arguments As String = "-Mode@IMPV|-Source@E:\TEMP\TEST.pdf|-Target@W:\ImportWIDIG\Testfile.pdf|-WMOT@DIGITAL DATA - Entwicklung|-index@{Integer 23=4711;String 38=WeDigNoWIDig;Boolean 04=0}"
 
 
 End Class

WiDigShared/ClassWIDig.vb

@@ -121,7 +121,7 @@ Public Class ClassWIDig
                     SourceFile = oArg.Replace(PARAM_SOURCE, "")
                     If IsNumeric(SourceFile) Then
                         Logger.Info($"SourceFile seems to be a DocID [{SourceFile}]")
-                        Dim oSQL = $"SELECT [dbo].[FNDD_GET_WINDREAM_FILE_PATH] ({SourceFile})"
+                        Dim oSQL = $"SELECT [dbo].[FNDD_GET_WINDREAM_FILE_PATH] ({SourceFile}, 0)"
                         SourceFile = Database.GetScalarValue(oSQL)
                     End If
                     If System.IO.File.Exists(SourceFile) = False Then
@@ -272,6 +272,13 @@ Public Class ClassWIDig
 
                     If oResult = False Then
                         Logger.Warn("Indexing failed. Exiting.")
+
+                        If Windream.RemoveFile(oFilePathToIndex) = True Then
+                            Logger.Debug("File [{0}] removed after error.", oFilePathToIndex)
+                        Else
+                            Logger.Warn("File [{0}] could not be removed!", oFilePathToIndex)
+                        End If
+
                         Exit For
                     End If
                 Next
@@ -344,6 +351,12 @@ Public Class ClassWIDig
 
             Return oResult
         Catch ex As Exception
+            If Windream.RemoveFile(TargetPath) = True Then
+                Logger.Debug("File [{0}] removed after error.", TargetPath)
+            Else
+                Logger.Warn("File [{0}] could not be removed!", TargetPath)
+            End If
+
             Logger.Warn($"Unexpected Error in StreamORIndexFile: {ex.Message}")
             Logger.Error(ex)
             Return False

WiDigShared/WiDigShared.vbproj

@@ -53,6 +53,10 @@
     <Reference Include="DigitalData.Modules.Encryption">
       <HintPath>..\..\DDMonorepo\Encryption\bin\Debug\DigitalData.Modules.Encryption.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.Language, Version=1.3.2.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\DDMonorepo\Modules.Language\bin\Release\DigitalData.Modules.Language.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Logging">
       <HintPath>..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>