EDMIService: Automatic indexing, more consolidation of globix logic

Modules.Patterns/Modules/FileInformation.vb

@@ -0,0 +1,67 @@
+Imports System.IO
+Imports DigitalData.Modules.Logging
+
+Namespace Modules
+    Public Class FileInformation
+        Inherits BaseModule
+        Implements IModule
+
+        Public Const FILE_VALUE_FILEINFO = "FILEINFO"
+        Public Const FILE_VALUE_FILENAME = "FILENAME"
+        Public Const FILE_VALUE_EXTENSION = "EXTENSION"
+        Public Const FILE_VALUE_FILENAME_EXT = "FILENAME_EXT"
+        Public Const FILE_VALUE_DATE_CREATED = "DATE_CREATED"
+        Public Const FILE_VALUE_DATE_MODIFIED = "DATE_MODIFIED"
+
+        Public Property PatternIdentifier As String = "FILE" Implements IModule.PatternIdentifier
+        Public Property IsComplex As Boolean = False Implements IModule.IsComplex
+
+        Public Sub New(pLogConfig As LogConfig)
+            MyBase.New(pLogConfig)
+        End Sub
+
+        Public Function Replace(pInput As String, pReplaceMap As Dictionary(Of String, Object)) As String Implements IModule.Replace
+            Dim oResult = pInput
+            Dim oCounter = 0
+            Dim oFileInfo As FileInfo = pReplaceMap.Item(FILE_VALUE_FILEINFO)
+
+            ' Replace Filename without extension
+            While ContainsPatternAndValue(oResult, PatternIdentifier, FILE_VALUE_FILENAME)
+                Dim oFilenameWithoutExtension = Path.GetFileNameWithoutExtension(oFileInfo.Name)
+                oResult = ReplacePattern(oResult, PatternIdentifier, oFilenameWithoutExtension)
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace Filename with extension
+            While ContainsPatternAndValue(oResult, PatternIdentifier, FILE_VALUE_FILENAME_EXT)
+                Dim oFilename As String = oFileInfo.Name
+                oResult = ReplacePattern(oResult, PatternIdentifier, oFilename)
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace Extension
+            While ContainsPatternAndValue(oResult, PatternIdentifier, FILE_VALUE_FILENAME_EXT)
+                Dim oExtension As String = oFileInfo.Extension.Substring(1)
+                oResult = ReplacePattern(oResult, PatternIdentifier, oExtension)
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace creation date
+            While ContainsPatternAndValue(oResult, PatternIdentifier, FILE_VALUE_DATE_CREATED)
+                Dim oDateCreated = oFileInfo.CreationTime.ToString("yyyy-MM-dd")
+                oResult = ReplacePattern(oResult, PatternIdentifier, oDateCreated)
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace last modification date
+            While ContainsPatternAndValue(oResult, PatternIdentifier, FILE_VALUE_DATE_CREATED)
+                Dim oDateModified = oFileInfo.LastWriteTime.ToString("yyyy-MM-dd")
+                oResult = ReplacePattern(oResult, PatternIdentifier, oDateModified)
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            Return oResult
+        End Function
+    End Class
+
+End Namespace

Modules.Patterns/Modules/Internal.vb

@@ -12,6 +12,9 @@ Namespace Modules
         Public Const INT_VALUE_MACHINE = "MACHINE"
         Public Const INT_VALUE_DOMAIN = "DOMAIN"
         Public Const INT_VALUE_DATE = "DATE"
+        Public Const INT_VALUE_DATE_YYYY = "DATE_YYYY"
+        Public Const INT_VALUE_DATE_MM = "DATE_MM"
+        Public Const INT_VALUE_DATE_DD = "DATE_DD"
 
         Public Property PatternIdentifier As String = "INT" Implements IModule.PatternIdentifier
         Public Property IsComplex As Boolean = False Implements IModule.IsComplex
@@ -23,30 +26,29 @@ Namespace Modules
         Public Function Replace(pInput As String, pReplaceMap As Dictionary(Of String, Object)) As String Implements IModule.Replace
             Dim oResult = pInput
             Dim oCounter = 0
-
-            ' Replace Username(s)
-            While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_USERNAME)
-                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_USERNAME))
-                IncrementCounterOrThrow(oCounter)
-            End While
-
-            ' Replace Machinename(s)
-            While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_MACHINE)
-                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_MACHINE))
-                IncrementCounterOrThrow(oCounter)
-            End While
-
-
-            ' Replace Domainname(s)
-            While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DOMAIN)
-                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_DOMAIN))
-                IncrementCounterOrThrow(oCounter)
-            End While
-
+            Dim oNow As Date = Now
 
             ' Replace CurrentDate(s)
             While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DATE)
-                oResult = ReplacePattern(oResult, PatternIdentifier, pReplaceMap.Item(INT_VALUE_DATE))
+                oResult = ReplacePattern(oResult, PatternIdentifier, oNow.ToString("yyyy-MM-dd"))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace Year(s)
+            While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DATE_YYYY)
+                oResult = ReplacePattern(oResult, PatternIdentifier, oNow.ToString("yyyy"))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace Month(s)
+            While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DATE_MM)
+                oResult = ReplacePattern(oResult, PatternIdentifier, oNow.ToString("MM"))
+                IncrementCounterOrThrow(oCounter)
+            End While
+
+            ' Replace Day(s)
+            While ContainsPatternAndValue(oResult, PatternIdentifier, INT_VALUE_DATE_DD)
+                oResult = ReplacePattern(oResult, PatternIdentifier, oNow.ToString("dd"))
                 IncrementCounterOrThrow(oCounter)
             End While