global-functions: $FetchHuge: remove temporary directory

This commit is contained in:
Christian Hesse 2024-04-23 14:20:30 +02:00
parent 57ebcfb41c
commit 4006d07222

View file

@ -406,13 +406,13 @@
:set CheckCert [ $IfThenElse ($CheckCert = false) "no" "yes-without-crl" ]; :set CheckCert [ $IfThenElse ($CheckCert = false) "no" "yes-without-crl" ];
:local FileName ("tmpfs/" . [ $CleanName $ScriptName ]); :local DirName ("tmpfs/" . [ $CleanName $ScriptName ]);
:if ([ $MkDir $FileName ] = false) do={ :if ([ $MkDir $DirName ] = false) do={
$LogPrint error $0 ("Failed creating directory!"); $LogPrint error $0 ("Failed creating directory!");
:return false; :return false;
} }
:set FileName ($FileName . "/" . [ $CleanName $0 ] . "-" . [ $GetRandom20CharAlNum ]); :local FileName ($DirName . "/" . [ $CleanName $0 ] . "-" . [ $GetRandom20CharAlNum ]);
:do { :do {
/tool/fetch check-certificate=$CheckCert $Url dst-path=$FileName \ /tool/fetch check-certificate=$CheckCert $Url dst-path=$FileName \
http-header-field=({ [ $FetchUserAgentStr $ScriptName ] }) as-value; http-header-field=({ [ $FetchUserAgentStr $ScriptName ] }) as-value;
@ -421,6 +421,7 @@
/file/remove $FileName; /file/remove $FileName;
} }
$LogPrint debug $0 ("Failed downloading from: " . $Url); $LogPrint debug $0 ("Failed downloading from: " . $Url);
/file/remove $DirName;
:return false; :return false;
} }
$WaitForFile $FileName; $WaitForFile $FileName;
@ -432,7 +433,7 @@
:set Return ($Return . ([ /file/read offset=$VarSize chunk-size=32768 file=$FileName as-value ]->"data")); :set Return ($Return . ([ /file/read offset=$VarSize chunk-size=32768 file=$FileName as-value ]->"data"));
:set VarSize [ :len $Return ]; :set VarSize [ :len $Return ];
} }
/file/remove $FileName; /file/remove $DirName;
:return $Return; :return $Return;
} }