From 821dd02e5e5c5274ee5d80a742859447c2f79d17 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 31 Jan 2024 15:31:07 +0100
Subject: global-functions: $CertificateNameByCN: use $CleanName

---
 global-functions.rsc | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'global-functions.rsc')

diff --git a/global-functions.rsc b/global-functions.rsc
index 3c3e2e1..d37b34b 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -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)
-- 
cgit v1.2.3-54-g00ecf