Jobs: Add option to start jobs immediately

Modules.Jobs/JobConfig.vb

@@ -2,6 +2,7 @@
 
 Public Class JobConfig
     Public Enabled As Boolean
+    Public StartImmediately As Boolean
     Public CronExpression As String
     Public Arguments As Dictionary(Of String, String)
 End Class

Modules.Jobs/JobConfigParser.vb

@@ -2,7 +2,7 @@
 Imports System.Text.RegularExpressions
 
 Public Class JobConfigParser
-    Private Shared JobOptionsRegex As New Regex("(?<enabled>True|False)\|(?<cron>[\w\d\s,\?*-/]*)(?:\|(?<args>(?:\w*::[^,\n]+,?)*))?")
+    Private Shared JobOptionsRegex As New Regex("(?<enabled>True|False|Debug)\|(?<cron>[\w\d\s,\?*-/]*)(?:\|(?<args>(?:\w*::[^,\n]+,?)*))?")
     Private Shared JobArgumentsRegex As New Regex("(?:(?:\w+::[^,\n]+,?)?)+")
     Private Const ARGS_ITEM_DELIMITER As String = ","
     Private Const ARGS_KEYVALUE_DELIMITER As String = "::"
@@ -21,11 +21,11 @@ Public Class JobConfigParser
             Dim oSplitOptions As String() = ConfigString.Split(ARGS_LIST_DELIMITER)
 
             If oSplitOptions.Length = 3 Then
-                oOptions.Enabled = CBool(oSplitOptions(0))
+                oOptions = ParseEnabled(oSplitOptions(0), oOptions)
                 oOptions.CronExpression = oSplitOptions(1)
                 oOptions.Arguments = ParseOptionalArguments(oSplitOptions(2))
             ElseIf oSplitOptions.Length = 2 Then
-                oOptions.Enabled = CBool(oSplitOptions(0))
+                oOptions = ParseEnabled(oSplitOptions(0), oOptions)
                 oOptions.CronExpression = oSplitOptions(1)
                 oOptions.Arguments = New Dictionary(Of String, String)
             Else
@@ -38,6 +38,22 @@ Public Class JobConfigParser
         End If
     End Function
 
+    Public Shared Function ParseEnabled(EnabledValue As String, Options As JobConfig) As JobConfig
+        Select Case EnabledValue
+            Case "True"
+                Options.Enabled = True
+                Options.StartImmediately = False
+            Case "Debug"
+                Options.Enabled = True
+                Options.StartImmediately = True
+            Case Else
+                Options.Enabled = False
+                Options.StartImmediately = False
+        End Select
+
+        Return Options
+    End Function
+
     Private Shared Function ParseOptionalArguments(ArgsString As String) As Dictionary(Of String, String)
         Dim oArgsDictionary As New Dictionary(Of String, String)