From dd58294b1663a2381439e2d5463f516bcca7465a Mon Sep 17 00:00:00 2001
From: Dendraspis <dendraspis@gmx.net>
Date: Tue, 8 Sep 2020 13:47:53 +0200
Subject: [PATCH] Extend log by printing configurations (template, profile)

---
 General/GlobalClass.vb |  2 ++
 General/LogBuilder.vb  | 16 ++++++++++++++++
 2 files changed, 18 insertions(+)

diff --git a/General/GlobalClass.vb b/General/GlobalClass.vb
index ef418fca..0884bb2e 100644
--- a/General/GlobalClass.vb
+++ b/General/GlobalClass.vb
@@ -245,6 +245,8 @@ Public Class GlobalClass
 
             g.RaiseAppEvent(ApplicationEvent.BeforeProcessing)
 
+            Log.WriteConfiguration()
+
             Log.WriteHeader($"{p.Script.Engine} Script")
             Log.WriteLine(p.Script.GetFullScript)
 
diff --git a/General/LogBuilder.vb b/General/LogBuilder.vb
index b97e32df..984d6a97 100644
--- a/General/LogBuilder.vb
+++ b/General/LogBuilder.vb
@@ -105,6 +105,22 @@ Public Class LogBuilder
         WriteLine(EnvironmentString.FormatColumn(":"))
     End Sub
 
+    Shared ConfigurationString As String 'cached due to bug report
+
+    Sub WriteConfiguration()
+        If ToString.Contains("- Configuration -") Then
+            Exit Sub
+        End If
+
+        WriteHeader("Configuration")
+
+        If ConfigurationString = "" Then ConfigurationString =
+            $"Template: {p.TemplateName}{BR}" +
+            $"Profile: {p.VideoEncoder.Name}{BR}"
+
+        WriteLine(ConfigurationString.FormatColumn(":"))
+    End Sub
+
     Sub WriteStats()
         WriteStats(StartTime)
     End Sub