enh: logging for Git deployments into IRIS

Author: isc-pbarton

CHANGELOG.md

@@ -10,6 +10,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 ### Added
 - LoadProductionsFromDirectory method to help custom deployment scripts load decomposed productions from the repository (#670)
 - Added ability to reset head / revert most recent commit (#586)
+- Changes deployed through Git are now logged in a new table SourceControl_Git.DeploymentLog
 
 ### Fixed
 - Fixed not showing warnings on Studio (#660)

cls/SourceControl/Git/DeploymentLog.cls

@@ -0,0 +1,44 @@
+Class SourceControl.Git.DeploymentLog Extends %Persistent [ Owner = {%Developer} ]
+{
+
+Property Token As %String [ InitialExpression = {$System.Util.CreateGUID()} ];
+
+Property StartTimestamp As %TimeStamp;
+
+Property EndTimestamp As %TimeStamp;
+
+Property HeadRevision As %String;
+
+Property Status As %Status;
+
+Storage Default
+{
+<Data name="DeploymentLogDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Token</Value>
+</Value>
+<Value name="3">
+<Value>StartTimestamp</Value>
+</Value>
+<Value name="4">
+<Value>EndTimestamp</Value>
+</Value>
+<Value name="5">
+<Value>HeadRevision</Value>
+</Value>
+<Value name="6">
+<Value>Status</Value>
+</Value>
+</Data>
+<DataLocation>^SourceContro22B9.DeploymentLogD</DataLocation>
+<DefaultData>DeploymentLogDefaultData</DefaultData>
+<IdLocation>^SourceContro22B9.DeploymentLogD</IdLocation>
+<IndexLocation>^SourceContro22B9.DeploymentLogI</IndexLocation>
+<StreamLocation>^SourceContro22B9.DeploymentLogS</StreamLocation>
+<Type>%Storage.Persistent</Type>
+}
+
+}

cls/SourceControl/Git/PullEventHandler.cls

@@ -24,14 +24,22 @@ Method OnPull() As %Status [ Abstract ]
 /// <var>pullEventClass</var>: if defined, override the configured pull event class
 ClassMethod ForModifications(ByRef files, pullEventClass As %String) As %Status
 {
+    set log = ##class(SourceControl.Git.DeploymentLog).%New()
+    set log.HeadRevision = ##class(SourceControl.Git.Utils).GetCurrentRevision()
+    set log.StartTimestamp = $zdatetime($ztimestamp,3)
+    do log.%Save()
     set event = $classmethod(
         $select(
             $data(pullEventClass)#2: pullEventClass, 
             1: ##class(SourceControl.Git.Utils).PullEventClass())
         ,"%New")
     set event.LocalRoot = ##class(SourceControl.Git.Utils).TempFolder()
     merge event.ModifiedFiles = files
-    quit event.OnPull()
+    set st = event.OnPull()
+    set log.EndTimestamp = $zdatetime($ztimestamp,3)
+    set log.Status = st
+    do log.%Save()
+    quit st
 }
 
 /// <var>InternalName</var> may be a comma-delimited string or $ListBuild list