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: Sftp - determine link to directory

Browse source
This commit is contained in:
Alexander Koblov 2017-07-16 12:43:06 +00:00
commit ebfef248c9
2 changed files with 37 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
plugins/wfx/ftp/src/ftp.lpi
View file

@ -16,6 +16,7 @@
<VersionInfo>
<UseVersionInfo Value="True"/>
<MinorVersionNr Value="3"/>
<RevisionNr Value="1"/>
<StringTable FileDescription="FTP WFX plugin for Double Commander" LegalCopyright="Copyright (C) 2006-2017 Alexander Koblov" ProductVersion=""/>
</VersionInfo>
<BuildModes Count="2">
@ -83,7 +84,7 @@ end;"/>
<RunParams>
<local>
<FormatVersion Value="1"/>
<HostApplicationFilename Value="D:\totalcmd\totalcmd.exe"/>
<HostApplicationFilename Value="D:\Development\DC\subversion\trunk\doublecmd.exe"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>

38
plugins/wfx/ftp/src/sftp/sftpsend.pas
View file

@ -78,6 +78,13 @@ uses
const
SMB_BUFFER_SIZE = 131072;
type
PFindRec = ^TFindRec;
TFindRec = record
Path: String;
Handle: PLIBSSH2_SFTP_HANDLE;
end;
procedure userauth_kbdint(const name: PAnsiChar; name_len: cint;
const instruction: PAnsiChar; instruction_len: cint;
num_prompts: cint; const prompts: PLIBSSH2_USERAUTH_KBDINT_PROMPT;
@ -482,19 +489,29 @@ begin
end;
function TSftpSend.FsFindFirstW(const Path: String; var FindData: TWin32FindDataW): Pointer;
var
FindRec: PFindRec;
begin
Result := libssh2_sftp_opendir(FSFTPSession, PAnsiChar(Path));
if Assigned(Result) then FsFindNextW(Result, FindData);
if Assigned(Result) then
begin
New(FindRec);
FindRec.Path:= Path;
FindRec.Handle:= Result;
FsFindNextW(FindRec, FindData);
Result:= FindRec;
end;
end;
function TSftpSend.FsFindNextW(Handle: Pointer; var FindData: TWin32FindDataW): BOOL;
var
Return: Integer;
FindRec: PFindRec absolute Handle;
Attributes: LIBSSH2_SFTP_ATTRIBUTES;
AFileName: array[0..1023] of AnsiChar;
AFullData: array[0..2047] of AnsiChar;
begin
Return:= libssh2_sftp_readdir_ex(Handle, AFileName, SizeOf(AFileName),
Return:= libssh2_sftp_readdir_ex(FindRec.Handle, AFileName, SizeOf(AFileName),
AFullData, SizeOf(AFullData), @Attributes);
Result:= (Return > 0);
if Result then
@ -510,12 +527,27 @@ begin
StrPLCopy(FindData.cFileName, ServerToClient(AFileName), MAX_PATH - 1);
FindData.ftLastWriteTime:= TWfxFileTime(UnixFileTimeToWinTime(Attributes.mtime));
FindData.ftLastAccessTime:= TWfxFileTime(UnixFileTimeToWinTime(Attributes.atime));
if (Attributes.permissions and S_IFMT) = S_IFLNK then
begin
if libssh2_sftp_stat(FSFTPSession, PAnsiChar(FindRec.Path + AFileName), @Attributes) = 0 then
begin
if (Attributes.permissions and S_IFMT) = S_IFDIR then
begin
FindData.nFileSizeLow:= 0;
FindData.nFileSizeHigh:= 0;
FindData.dwFileAttributes:= FindData.dwFileAttributes or FILE_ATTRIBUTE_REPARSE_POINT;
end;
end;
end;
end;
end;
function TSftpSend.FsFindClose(Handle: Pointer): Integer;
var
FindRec: PFindRec absolute Handle;
begin
Result:= libssh2_sftp_closedir(Handle);
Result:= libssh2_sftp_closedir(FindRec.Handle);
Dispose(FindRec);
end;
function TSftpSend.FsSetTime(const FileName: String; LastAccessTime,