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

ADD: FTP - CLNT command support

Browse source
This commit is contained in:
Alexander Koblov 2025-06-27 22:54:38 +03:00
commit bf062ab594
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
plugins/wfx/ftp/src/ftpadv.pas
View file

@ -686,6 +686,7 @@ end;
function TFTPSendEx.Login: Boolean;
var
Index: Integer;
Client: Boolean = False;
begin
Result:= inherited Login;
if Result then
@ -700,11 +701,17 @@ begin
begin
for Index:= 0 to FFullResult.Count - 1 do
begin
if not Client then Client := Pos('CLNT', FFullResult[Index]) > 0;
if not FMachine then FMachine:= Pos('MLST', FFullResult[Index]) > 0;
if not FMachine then FMachine:= Pos('MLSD', FFullResult[Index]) > 0;
if not FUnicode then FUnicode:= Pos('UTF8', FFullResult[Index]) > 0;
if not FSetTime then FSetTime:= Pos('MFMT', FFullResult[Index]) > 0;
end;
// Some servers refuse to enable UTF-8 if client does not send CLNT command
if Client then
begin
FTPCommand('CLNT Double Commander (UTF-8)');
end;
if FUnicode and FAuto then
begin
ConvertToUtf8:= @Dummy;