mirror of
https://github.com/eworm-de/routeros-scripts.git
synced 2026-03-05 05:29:37 +00:00
global-functions: $RmFile: work around restrictions in new file handling
This commit is contained in:
parent
b930137999
commit
ab84670c8e
1 changed files with 11 additions and 9 deletions
|
|
@ -1078,21 +1078,23 @@
|
||||||
|
|
||||||
$LogPrint debug $0 ("Removing file: ". $FileName);
|
$LogPrint debug $0 ("Removing file: ". $FileName);
|
||||||
|
|
||||||
:if ([ :len [ /file/find where name=$FileName (type=directory or type=disk) ] ] > 0) do={
|
:local FileVal;
|
||||||
$LogPrint error $0 ("File '" . $FileName . "' is not a file.");
|
:do {
|
||||||
:return false;
|
:set FileVal [ /file/get $FileName ];
|
||||||
}
|
} on-error={
|
||||||
|
|
||||||
:local File [ /file/find where name=$FileName !(type=directory or type=disk) ];
|
|
||||||
:if ([ :len $File ] = 0) do={
|
|
||||||
$LogPrint debug $0 ("... which does not exist.");
|
$LogPrint debug $0 ("... which does not exist.");
|
||||||
:return true;
|
:return true;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
:if ($FileVal->"type" = "directory" || $FileVal->"type" = "disk") do={
|
||||||
|
$LogPrint error $0 ("File '" . $FileName . "' is not a file.");
|
||||||
|
:return false;
|
||||||
|
}
|
||||||
|
|
||||||
:onerror Err {
|
:onerror Err {
|
||||||
/file/remove $File;
|
/file/remove $FileName;
|
||||||
} do={
|
} do={
|
||||||
$LogPrint error $0 ("Removing file '" . $FileName . "' (" . $File . ") failed: " . $Err);
|
$LogPrint error $0 ("Removing file '" . $FileName . "' failed: " . $Err);
|
||||||
:return false;
|
:return false;
|
||||||
}
|
}
|
||||||
:return true;
|
:return true;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue