(Lianja) SFTP Get/Set File Permission

Demonstrates how to set the permissions of a file on the SFTP server

Chilkat Lianja Extension Download Chilkat Lianja Extension

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loSftp = createobject("CkSFtp")

// Connect to the SSH/SFTP server.  
lcHostname = "sftp.example.com"
lnPort = 22
llSuccess = loSftp.Connect(lcHostname,lnPort)
if (llSuccess <> .T.) then
    ? loSftp.LastErrorText
    release loSftp
    return
endif

// Authenticate with the SSH server.  Chilkat SFTP supports
// both password-based authenication as well as public-key
// authentication.  This example uses password authenication.
llSuccess = loSftp.AuthenticatePw("myLogin","myPassword")
if (llSuccess <> .T.) then
    ? loSftp.LastErrorText
    release loSftp
    return
endif

// After authenticating, the SFTP subsystem must be initialized:
llSuccess = loSftp.InitializeSftp()
if (llSuccess <> .T.) then
    ? loSftp.LastErrorText
    release loSftp
    return
endif

// Get the file permissions for the "hamlet.xml" file on the server.
// The hamlet.xml file is located in the qa_data directory found under the HOME directory of the SSH user account.
// We are passing the remote file path (we are not passing a file handle returned by a previous call to OpenFile).
llIsHandle = .F.
llFollowLinks = .T.
lnPermVal = loSftp.GetFilePermissions("qa_data/hamlet.xml",llFollowLinks,llIsHandle)
if (lnPermVal < 0) then
    ? loSftp.LastErrorText
    release loSftp
    return
endif

// Note: Filesystem permissions on Linux/Unix/MacOSX are typically written in octal (POSIX file permissions).  For example 0644 is octal.
// To convert to decimal: octal 644 = 6*8^2 + 4*8 + 4 = 420 (decimal)
// 
// The server may return a permissions value (in octal) such as 100644.
// The "100" indicates the file type, such as regular file or directory. 

// Show the decimal value of the permissions
? "decimal permissions value: " + str(lnPermVal)

// To set the file permissions, pass the integer value.
// Let's change the permissions to 0664, which is 6*8^2 + 6*8 + 4 = 436 (decimal)
llSuccess = loSftp.SetPermissions("qa_data/hamlet.xml",llIsHandle,436)
if (llSuccess <> .T.) then
    ? loSftp.LastErrorText
    release loSftp
    return
endif

? "Success."


release loSftp