mirror/eworm-de-routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2024-05-11 05:55:19 +00:00
Code Releases Activity

global-functions: introduce and use $CertificateNameByCN

Browse Source
This commit is contained in:
Christian Hesse
2020-02-06 18:09:52 +01:00
parent 38b23ddc10
commit e376845b12
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
global-functions
View File

@@ -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!";