mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Execute any ftp command from command line

Browse source
This commit is contained in:
Alexander Koblov 2015-08-14 18:15:19 +00:00
commit 6e6cef0f64
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
plugins/wfx/ftp/src/ftpfunc.pas
View file

@ -663,7 +663,7 @@ begin
end;
end; // root path
end // Verb = open
else if Pos('chmod', Verb) > 0 then
else if Pos('chmod', Verb) = 1 then
begin
if GetConnectionByPath(RemoteName, FtpSend, sFileName) then
begin
@ -673,6 +673,16 @@ begin
Result := FS_EXEC_ERROR;
end;
end
else if Pos('quote', Verb) = 1 then
begin
if GetConnectionByPath(RemoteName, FtpSend, sFileName) then
begin
if (FtpSend.FTPCommand(Copy(Verb, 7, MaxInt)) div 100) = 2 then
Result:= FS_EXEC_OK
else
Result := FS_EXEC_ERROR;
end;
end
else if Verb = 'properties' then
begin
if (ExtractFileDir(RemoteName) = PathDelim) and not (RemoteName[1] in [#0, '<']) then // connection