mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: FTP modified files are stored with unchanged date (fixes #218)

Browse source
This commit is contained in:
Alexander Koblov 2021-10-23 14:13:48 +03:00
commit b1269ed4d0
1 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/ushowform.pas
View file

@ -109,7 +109,7 @@ procedure ShowViewerByGlobList(const FilesToView: TStringList;
implementation
uses
SysUtils, Process, DCProcessUtf8, Dialogs, LCLIntf,
SysUtils, Process, DCProcessUtf8, Dialogs, LCLIntf, DCDateTimeUtils,
uShellExecute, uGlobs, uOSUtils, fEditor, fViewer, uDCUtils,
uTempFileSystemFileSource, uLng, fDiffer, uDebug, DCOSUtils, uShowMsg,
DCStrUtils, uFileSourceProperty, uWfxPluginCopyOutOperation,
@ -475,16 +475,25 @@ end;
procedure TEditorWaitData.Done;
var
Msg: string;
I: Integer;
Operation: TFileSourceCopyOperation;
Msg: String;
FileTime: TFileTime;
DoNotFreeYet: Boolean = False;
Operation: TFileSourceCopyOperation;
begin
try
for I := Files.Count - 1 downto 0 do
if (mbFileAge(Files[I].FullPath) = FileTimes[I]) or
not msgYesNo(Format(rsMsgCopyBackward, [GetRelativeFileName(Files[I].FullPath)]) + LineEnding + LineEnding + GetFromPath) then
begin
FileTime:= mbFileAge(Files[I].FullPath);
if (FileTime = FileTimes[I]) or
(not msgYesNo(Format(rsMsgCopyBackward, [GetRelativeFileName(Files[I].FullPath)]) + LineEnding + LineEnding + GetFromPath)) then
begin
Files.Delete(I);
end
else begin
Files[I].ModificationTime:= FileTimeToDateTime(FileTime);
end;
end;
// Files were modified
if Files.Count > 0 then