global-functions: $MkDir: clean path

This commit is contained in:
Christian Hesse 2021-01-20 14:03:31 +01:00
parent 6cea5a9f9b
commit dc148065dc

View file

@ -480,8 +480,11 @@
:set MkDir do={
:local Dir [ :tostr $1 ];
:global CleanFilePath;
:global WaitForFile;
:set Dir [ $CleanFilePath $Dir ];
:if ([ :len [ / file find where name=$Dir type="directory" ] ] = 0) do={
:local WwwVal [ / ip service get www ];
/ ip service set www address=127.0.0.1/32 disabled=no port=80;