groove/routeros-scripts-main
1
0
Fork 0
mirror of https://github.com/eworm-de/routeros-scripts.git synced 2026-06-02 08:42:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

dhcp-to-dns: make ToLower a local function, no global-functions dependency

Browse source
This commit is contained in:
Łukasz Witkowski 2026-05-05 22:08:34 +02:00
parent 6b2ec93ee6
commit 418ede0ae4
2 changed files with 16 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

17
dhcp-to-dns.rsc
View file

@ -27,13 +27,28 @@
:global LogPrintOnce; :global LogPrintOnce;
:global ParseKeyValueStore; :global ParseKeyValueStore;
:global ScriptLock; :global ScriptLock;
:global ToLower;
:if ([ $ScriptLock $ScriptName 10 ] = false) do={ :if ([ $ScriptLock $ScriptName 10 ] = false) do={
:set ExitOK true; :set ExitOK true;
:error false; :error false;
} }
:local ToLower do={
:local Input [ :tostr $1 ];
:local Upper "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
:local Lower "abcdefghijklmnopqrstuvwxyz";
:local Return "";
:for I from=0 to=([ :len $Input ] - 1) do={
:local Char [ :pick $Input $I ];
:local Pos [ :find $Upper $Char ];
:if ([ :typeof $Pos ] != "nil") do={
:set Char [ :pick $Lower $Pos ($Pos + 1) ];
}
:set Return ($Return . $Char);
}
:return $Return;
}
:local Ttl 5m; :local Ttl 5m;
:local CommentPrefix ("managed by " . $ScriptName); :local CommentPrefix ("managed by " . $ScriptName);
:local CommentString ("--- " . $ScriptName . " above ---"); :local CommentString ("--- " . $ScriptName . " above ---");

19
global-functions.rsc
View file

@ -81,7 +81,6 @@
:global SendNotification2; :global SendNotification2;
:global SymbolByUnicodeName; :global SymbolByUnicodeName;
:global SymbolForNotification; :global SymbolForNotification;
:global ToLower;
:global Unix2Dos; :global Unix2Dos;
:global UrlEncode; :global UrlEncode;
:global ValidateSyntax; :global ValidateSyntax;
@ -303,24 +302,6 @@
:return $Path; :return $Path;
} }
# convert string to lower case
:set ToLower do={
:local Input [ :tostr $1 ];
:local Upper "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
:local Lower "abcdefghijklmnopqrstuvwxyz";
:local Return "";
:for I from=0 to=([ :len $Input ] - 1) do={
:local Char [ :pick $Input $I ];
:local Pos [ :find $Upper $Char ];
:if ([ :typeof $Pos ] != "nil") do={
:set Char [ :pick $Lower $Pos ($Pos + 1) ];
}
:set Return ($Return . $Char);
}
:return $Return;
}
# clean name for DNS, file and more # clean name for DNS, file and more
:set CleanName do={ :set CleanName do={
:local Input [ :tostr $1 ]; :local Input [ :tostr $1 ];