Add and use setting for private key file

Author: isc-tleavitt

cls/SourceControl/Git/Utils.cls

@@ -79,6 +79,11 @@ ClassMethod GitUserEmail() As %String
     Quit $Get(@..#Storage@("settings","user",$username,"gitUserEmail"))
 }
 
+ClassMethod PrivateKeyFile() As %String
+{
+    Quit $Get(@..#Storage@("settings","ssh","privateKeyFile"))
+}
+
 ClassMethod NeedSettings() As %Boolean [ CodeMode = expression ]
 {
 (..DefaultTemp() = "") ||  (..GitBinPath() = "") ||  (..GitBinPath() = """")
@@ -110,6 +115,7 @@ ClassMethod UpdateSettings(ByRef settings) As %Status
     set @..#Storage@("settings","groupByFolder") = $case(settings("groupByFolder"), "":"", :1)
     set @..#Storage@("settings","user",$username,"gitUserName") = settings("gitUserName")
     set @..#Storage@("settings","user",$username,"gitUserEmail") = settings("gitUserEmail")
+    set @..#Storage@("settings","ssh","privateKeyFile") = settings("privateKeyFile")
 
     quit $$$OK
 }
@@ -306,6 +312,8 @@ ClassMethod Fetch(ByRef diffFiles) As %Status
     while (outStream.AtEnd = 0) {
         set diffFiles = diffFiles_$lb(outStream.ReadLine())
     }
+    do outStream.Rewind()
+    do outStream.OutputToDevice()
 	quit $$$OK
 }
 
@@ -1096,6 +1104,12 @@ ClassMethod RunGitCommandWithInput(command As %String, inFile As %String = "", O
 	set newArgs($i(newArgs)) = "-C"
     set newArgs($i(newArgs)) = ..TempFolder()
 
+    set privateKeyFile = ..PrivateKeyFile()
+    if (privateKeyFile '= "") {
+        set newArgs($i(newArgs)) = "-c"
+        set newArgs($i(newArgs)) = "core.sshCommand=ssh -F /dev/null -i "_privateKeyFile
+    }
+
     set username = ..GitUserName()
 	set email = ..GitUserEmail()
 

csp/gitprojectsettings.csp

@@ -20,7 +20,7 @@
  set $namespace = namespace
  if $Data(%request.Data("gitsettings",1)) {
      kill settings
-     for param="gitBinPath","defaultTemp","namespaceTemp","groupByFolder","gitUserName","gitUserEmail" {
+     for param="gitBinPath","defaultTemp","namespaceTemp","groupByFolder","privateKeyFile","gitUserName","gitUserEmail" {
          set settings(param) = $Get(%request.Data(param,1))
      } 
      do ##class(SourceControl.Git.Utils).UpdateSettings(.settings)
@@ -29,6 +29,7 @@
  set defaultTemp = ##class(SourceControl.Git.Utils).DefaultTemp()
  set namespaceTemp = ##class(SourceControl.Git.Utils).TempFolder()
  set groupByFolder = ##class(SourceControl.Git.Utils).GroupByFolder()
+ set privateKeyFile = ##class(SourceControl.Git.Utils).PrivateKeyFile()
  set gitUserName = ##class(SourceControl.Git.Utils).GitUserName()
  set gitUserEmail = ##class(SourceControl.Git.Utils).GitUserEmail()
  set:defaultTemp="" defaultTemp =  "c:\temp\"
@@ -65,6 +66,13 @@
             </div>
         </div>
 
+        <div class="form-group row">
+            <label for="privateKeyFile" class="col-sm-4 col-form-label">SSH Private Key File</label>
+            <div class="col-sm-8">
+                <input type="text" class="form-control" id="privateKeyFile" name="privateKeyFile" value='#(..EscapeHTML(privateKeyFile))#'/>
+            </div>
+        </div>
+
         <!--
         <div class="form-group row">
             <label for="groupByFolder" class="col-sm-4 col-form-label">Group all items by folders</label>