global-functions: $CertificateNameByCN: use $CleanName

This commit is contained in:
Christian Hesse 2024-01-31 15:31:07 +01:00
parent 09988d9892
commit 821dd02e5e

View file

@ -168,11 +168,10 @@
:set CertificateNameByCN do={
:local CommonName [ :tostr $1 ];
:global CharacterReplace;
:global CleanName;
:local Cert [ /certificate/find where common-name=$CommonName ];
/certificate/set $Cert \
name=[ $CharacterReplace [ $CharacterReplace [ $CharacterReplace $CommonName "'" "-" ] " " "-" ] "---" "-" ];
/certificate/set $Cert name=[ $CleanName $CommonName ];
}
# multiply given character(s)