(Tcl) SFTP Get/Set File Permission

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set sftp [new_CkSFtp]

# Connect to the SSH/SFTP server.  
set hostname "sftp.example.com"
set port 22
set success [CkSFtp_Connect $sftp $hostname $port]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Authenticate with the SSH server.  Chilkat SFTP supports
# both password-based authenication as well as public-key
# authentication.  This example uses password authenication.
set success [CkSFtp_AuthenticatePw $sftp "myLogin" "myPassword"]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# After authenticating, the SFTP subsystem must be initialized:
set success [CkSFtp_InitializeSftp $sftp]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# 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).
set isHandle 0
set followLinks 1
set permVal [CkSFtp_GetFilePermissions $sftp "qa_data/hamlet.xml" $followLinks $isHandle]
if {$permVal < 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# 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
puts "decimal permissions value: $permVal"

# 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)
set success [CkSFtp_SetPermissions $sftp "qa_data/hamlet.xml" $isHandle 436]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

puts "Success."

delete_CkSFtp $sftp