apply 1 minute timeout to file listing

This commit is contained in:
Massimo Melina 2020-06-29 00:03:38 +02:00
parent 4b5bffbd83
commit d43983e986

View File

@ -1,4 +1,4 @@
{ {
Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com) Copyright (C) 2002-2020 Massimo Melina (www.rejetto.com)
This file is part of HFS ~ HTTP File Server. This file is part of HFS ~ HTTP File Server.
@ -1383,6 +1383,7 @@ type
constructor TfileListing.create(); constructor TfileListing.create();
begin begin
dir:=NIL; dir:=NIL;
timeout:=Now()+1/MINUTES;
end; // create end; // create
destructor TfileListing.destroy; destructor TfileListing.destroy;
@ -5039,7 +5040,6 @@ var
listing:=TfileListing.create(); listing:=TfileListing.create();
try try
listing.ignoreConnFilter:=ignoreConnFilters; listing.ignoreConnFilter:=ignoreConnFilters;
listing.timeout:= now()+1/MINUTES;
listing.fromFolder( f, data, shouldRecur(data)); listing.fromFolder( f, data, shouldRecur(data));
fIsTemp:=f.isTemp(); fIsTemp:=f.isTemp();
ofs:=length(f.resource)-length(f.name)+1; ofs:=length(f.resource)-length(f.name)+1;