Enable name passing

This fixes a bug where the SSL connection name was always being set as "DIscord Webhook SSL",

Which was using for testing some features.

Author: Rubens F. N. da Silva

cls/Frontier/Shared/Utilities.cls

@@ -7,7 +7,7 @@ ClassMethod RandomString(size, lowerCase As %Boolean = 0, extras = "") As %Strin
   set alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   if lowerCase = 1 set alpha = alpha_$$$lcase(alpha)
   if extras '= "" set alpha = alpha_extras
-  
+
   while $length(key) < size {
     set next = $select($random(2) = 1 : $extract(alpha, $random($length(alpha))), 1: $random(9))
     set key = key_next
@@ -19,28 +19,28 @@ ClassMethod SanitizeFilename(fileName) As %String
 {
   if fileName [ "/" set fileName = $piece(fileName, "/", *)
   if fileName [ "\" set fileName = $piece(fileName, "\", *)
-  
+
   set fileName = $translate(fileName, "àáÁÀÂâÃÁÂÃãèéÉÈêÊÉìíÍÌÎîòóÓÒÔôÕÓÔõùúÚÙÛûÇçÖöÜüÑ ", "aaAAAaAAAAaeeEEeEEiiIIIiooOOOOOoOouuUUUuCcOoUuN-")
   return $zstrip(fileName, "*E'N'A", "", "_-@.")
 }
 
 ClassMethod ReplacePlaceholders(definitions As %DynamicObject) As %String
 {
   set text = definitions.text
-    
+
   set it = definitions.placeholders.%GetIterator()
-  while it.%GetNext(.key, .value) { set text = $replace(text, key, value) }  
-  
+  while it.%GetNext(.key, .value) { set text = $replace(text, key, value) }
+
   return text
 }
 
 ClassMethod DeepExtend(sources... As %DynamicObject) As %DynamicObject
 {
-  
+
   #dim result As %DynamicObject
-    
-  set result = {}    
-  
+
+  set result = {}
+
   for i=1:1:sources {
     set iterator = sources(i).%GetIterator()
     while iterator.%GetNext(.property, .value) {
@@ -53,7 +53,7 @@ ClassMethod DeepExtend(sources... As %DynamicObject) As %DynamicObject
         }
       } elseif 'result.%IsDefined(property) {
         set $property(result, property) = value
-      }      
+      }
     }
   }
   return result
@@ -63,7 +63,7 @@ ClassMethod SafeClassMethodCall(expression As %String, args... As %String) As %S
 {
   set sc = $$$OK
   if expression = "" return sc
-  
+
   set class = $piece(expression, ":")
   set method = $piece(expression, ":", 2)
   try {
@@ -77,7 +77,7 @@ ClassMethod SafeClassMethodCall(expression As %String, args... As %String) As %S
 ClassMethod SafeMethodCallAndReturn(sc As %Status = {$$$OK}, instance As %RegisteredObject, method As %String, args...)
 {
   set ret = ""
-  
+
   try {
     set ret = $method(instance, method, args...)
     if $extract(ret, 1, 2) = "0 " && $lv($p(ret, " ", 2)) {
@@ -106,36 +106,36 @@ ClassMethod URLBase64Decode(value As %String) As %String
 ClassMethod CallAndCapture(object, method As %String, Output str As %Stream.GlobalCharacter = "", args... As %String) As %Status [ ProcedureBlock = 0 ]
 {
   new oldMnemonic, alreadyRedirected, sc
-  
+
   set sc = $$$OK
-  set isRedirected = 0  
-  
+  set isRedirected = 0
+
   set str = ##class(%Stream.GlobalCharacter).%New()
   set alreadyRedirected = ##class(%Device).ReDirectIO()
   set oldMnemonic = ##class(%Device).GetMnemonicRoutine()
-  set initIO = $io  
-  
-  try {   
-    use $io::("^"_$zname)    
+  set initIO = $io
+
+  try {
+    use $io::("^"_$zname)
     do ##class(%Device).ReDirectIO(1)
     if $isobject(object) set sc = $method(object, method, args...)
     else  set class = object set sc = $classmethod(class, method, args...)
     do str.Rewind()
   } catch ex {
     set str = ""
     set sc = ex.AsStatus()
-  }     
-  
+  }
+
   if oldMnemonic '= "" {
     use initIO::("^"_oldMnemonic)
   } else {
     use oldMnemonic
   }
-  
+
   do ##class(%Device).ReDirectIO(alreadyRedirected)
-      
+
   return sc
-  
+
 wstr(s) Do str.Write(s) Quit
 wchr(a) Do str.Write($char(a)) Quit
 wnl Do str.Write($char(13,10)) Quit
@@ -145,14 +145,14 @@ rstr(len,time) Quit ""
 rchr(time) Quit ""
 }
 
-ClassMethod CreateSSLConfigurationIfNoneExists(name As %String) [ Private ]
+ClassMethod CreateSSLConfigurationIfNoneExists(name As %String)
 {
    new $namespace
    set $namespace = "%SYS"
-      
+
    do ##class(Security.SSLConfigs).Get("Discord Webhook SSL", .p)
-   if $data(p) quit   
-   
+   if $data(p) quit
+
    set p("CipherList")="ALL:!aNULL:!eNULL:!EXP:!SSLv2"
    set p("CAFile")=""
    set p("CAPath")=""
@@ -169,7 +169,7 @@ ClassMethod CreateSSLConfigurationIfNoneExists(name As %String) [ Private ]
    set p("Type")=0
    set p("VerifyDepth")=9
    set p("VerifyPeer")=0
-   
+
    do ##class(Security.SSLConfigs).Create(name, .p)
 }