permissions for SSLConfig

Author: isc-etamarch

cls/SourceControl/Git/OAuth2/Config.cls

@@ -151,30 +151,7 @@ Method Exchange(authCode As %String, verifier As %String, Output sc As %Status)
 
 ClassMethod CreateSSLConfigIfNonExistent(name As %String)
 {
-       new $namespace
-        set $namespace = "%SYS"
-
-        do ##class(Security.SSLConfigs).Get(name, .p)
-        if $data(p) quit   
-
-        set p("CipherList")="ALL:!aNULL:!eNULL:!EXP:!SSLv2"
-        set p("CAFile")=""
-        set p("CAPath")=""
-        set p("CRLFile")=""
-        set p("CertificateFile")=""
-        set p("CipherList")="ALL:!aNULL:!eNULL:!EXP:!SSLv2"
-        set p("Description")=""
-        set p("Enabled")=1
-        set p("PrivateKeyFile")=""
-        set p("PrivateKeyPassword")=""
-        set p("PrivateKeyType")=2
-        set p("Protocols")=24
-        set p("SNIName")=""
-        set p("Type")=0
-        set p("VerifyDepth")=9
-        set p("VerifyPeer")=0
-
-        do ##class(Security.SSLConfigs).Create(name, .p)
+    do ##class(%zpkg.isc.sc.git.SSLConfig).CreateSSLConfigIfNonExistent(name)
 }
 
 ClassMethod GetURLWithParams(url As %String, ByRef params As %String) As %String

cls/_zpkg/isc/sc/git/SSLConfig.cls

@@ -0,0 +1,41 @@
+Class %zpkg.isc.sc.git.SSLConfig 
+{
+
+    ClassMethod CreateSSLConfigIfNonExistent(name As %String) {
+        try {
+            do ..CheckSSLConfig(name)
+        } catch e {
+            return e.AsStatus()
+        }
+        return $$$OK  
+    }
+
+    ClassMethod CheckSSLConfig(name As %String) [ Private, NotInheritable ] {
+        $$$AddAllRoleTemporary
+        new $namespace
+        set $namespace = "%SYS"
+
+        do ##class(Security.SSLConfigs).Get(name, .p)
+        if $data(p) quit   
+
+        set p("CipherList")="ALL:!aNULL:!eNULL:!EXP:!SSLv2"
+        set p("CAFile")=""
+        set p("CAPath")=""
+        set p("CRLFile")=""
+        set p("CertificateFile")=""
+        set p("CipherList")="ALL:!aNULL:!eNULL:!EXP:!SSLv2"
+        set p("Description")=""
+        set p("Enabled")=1
+        set p("PrivateKeyFile")=""
+        set p("PrivateKeyPassword")=""
+        set p("PrivateKeyType")=2
+        set p("Protocols")=24
+        set p("SNIName")=""
+        set p("Type")=0
+        set p("VerifyDepth")=9
+        set p("VerifyPeer")=0
+
+        do ##class(Security.SSLConfigs).Create(name, .p)
+    }
+
+}