AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Skip indexing of empty mail properties

Browse Source
This commit is contained in:
Jonathan Jenne 2022-02-01 15:41:26 +01:00
parent 03c8d5267e
commit 9b8a780f06
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Global_Indexer/frmIndex.vb
View File

@ -905,6 +905,8 @@ Public Class frmIndex
Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath) Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
Dim oMessageId As String = oMail.MessageID Dim oMessageId As String = oMail.MessageID
LOGGER.Debug("MessageId: [{0}]", oMessageId)
Dim oMessageFrom As String = EMAIL.Get_MessageSender(oMail) Dim oMessageFrom As String = EMAIL.Get_MessageSender(oMail)
Dim oMessageTo As String = EMAIL.Get_MessageReceiver(oMail) Dim oMessageTo As String = EMAIL.Get_MessageReceiver(oMail)
Dim oDateIn As Date = EMAIL.Get_MessageDate(oMail) Dim oDateIn As Date = EMAIL.Get_MessageDate(oMail)
@ -935,17 +937,16 @@ Public Class frmIndex
Try Try
If oIndex.Value Is Nothing Then If oIndex.Value Is Nothing Then
LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key) LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key)
Return False Continue For
End If End If
If TypeOf oIndex.Value Is String AndAlso oIndex.Value = String.Empty Then If TypeOf oIndex.Value Is String AndAlso oIndex.Value = String.Empty Then
LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key) LOGGER.Warn("Value for Index [{0}] was empty. Skipping.", oIndex.Key)
Return False Continue For
End If End If
Dim oIndexingSuccessful = WriteIndex2File(oRow.Item(oIndex.Key), oIndex.Value) Dim oIndexingSuccessful = WriteIndex2File(oRow.Item(oIndex.Key), oIndex.Value)
If oIndexingSuccessful = False Then If oIndexingSuccessful = False Then