(Tcl) chmod (Setting File Permissions)

This example assumes your FTP server supports the "chmod" command, which typically means it must be a server running on a Linux or Unix system. The SendCommand method may be called to send arbitrary commands to the FTP server. This example sends a "chmod" command to set the file permissions.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ftp [new_CkFtp2]

CkFtp2_put_Hostname $ftp "ftp.cknotes.com"
CkFtp2_put_Username $ftp "myLogin"
CkFtp2_put_Password $ftp "myPassword"

# Connect and login to the FTP server.
set success [CkFtp2_Connect $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Send a chmod command to the FTP server to set
# the permissions of a file to 0644:
set resp [CkFtp2_sendCommand $ftp "chmod 0644 hamlet.xml"]

if {[CkFtp2_get_LastMethodSuccess $ftp] != 1} then {
    # Failed.
    puts [CkFtp2_lastErrorText $ftp]
} else {
    # You should write code to examine the response to
    # the SendCommand.  As an example, the FTP server
    # used for testing responds with this for success:
    # 200 Permissions changed on hamlet.xml
    puts "$resp"
}

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp