mirror.MikroTik/eworm-de.routeros-scripts
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2025-08-29 14:28:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

global-functions: introduce $CharacterMultiply

Browse source
This commit is contained in:
Christian Hesse 2023-12-04 10:56:48 +01:00
parent 15e347303b
commit 8f24b4c490
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
global-functions.rsc
View file

@ -24,6 +24,7 @@
:global CertificateAvailable; :global CertificateAvailable;
:global CertificateDownload; :global CertificateDownload;
:global CertificateNameByCN; :global CertificateNameByCN;
:global CharacterMultiply;
:global CharacterReplace; :global CharacterReplace;
:global CleanFilePath; :global CleanFilePath;
:global DeviceInfo; :global DeviceInfo;
@ -172,6 +173,15 @@
name=[ $CharacterReplace [ $CharacterReplace [ $CharacterReplace $CommonName "'" "-" ] " " "-" ] "---" "-" ]; name=[ $CharacterReplace [ $CharacterReplace [ $CharacterReplace $CommonName "'" "-" ] " " "-" ] "---" "-" ];
} }
# multiply given character(s)
:set CharacterMultiply do={
:local Return "";
:for I from=1 to=$2 do={
:set Return ($Return . $1);
}
:return $Return;
}
# character replace # character replace
:set CharacterReplace do={ :set CharacterReplace do={
:local String [ :tostr $1 ]; :local String [ :tostr $1 ];