diff options
| -rw-r--r-- | global-functions | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/global-functions b/global-functions index caaf0a5..d4b8801 100644 --- a/global-functions +++ b/global-functions @@ -17,6 +17,7 @@ # global functions :global UrlEncode; :global CharacterReplace; +:global CertificateNameByCN; :global CertificateDownload; :global CertificateAvailable; :global SendEMail; @@ -79,6 +80,16 @@ :return ($Return . $String); } +# name a certificate by its common-name +:set CertificateNameByCN do={ + :local CommonName [ :tostr $1 ]; + + :global CharacterReplace; + + :local Cert [ / certificate find where common-name=$CommonName ]; + / certificate set $Cert name=[ $CharacterReplace [ $CharacterReplace $CommonName " " "-" ] "---" "-" ]; +} + # download and import certificate :set CertificateDownload do={ :local CommonName [ :tostr $1 ]; @@ -86,7 +97,7 @@ :global ScriptUpdatesBaseUrl; :global ScriptUpdatesUrlSuffix; - :global CharacterReplace; + :global CertificateNameByCN; :global UrlEncode; :global WaitForFile; @@ -104,7 +115,7 @@ / file remove $LocalFileName; :foreach Cert in=[ / certificate find where name~("^" . $LocalFileName . "_[0-9]+\$") ] do={ - / certificate set $Cert name=[ $CharacterReplace [ $CharacterReplace [ get $Cert common-name ] " " "-" ] "---" "-" ]; + $CertificateNameByCN [ / certificate get $Cert common-name ]; } } on-error={ :log warning "Failed imprting certificate!"; |