(Tcl) Get FTP File Permissions

Tcl example showing how to retrieve file permissions (via FTP) for each file in a remote directory.

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]

# Set the various properties to establish the connection.
CkFtp2_put_Hostname $ftp "ftp.example.com"
CkFtp2_put_Username $ftp "login"
CkFtp2_put_Password $ftp "password"

# If SSL/TLS is required..
# See http://www.cknotes.com/determining-ftp2-connection-settings/ 
# for more information.
CkFtp2_put_AuthTls $ftp 1
CkFtp2_put_PassiveUseHostAddr $ftp 1

# Connect to the FTP server:
set success [CkFtp2_ConnectOnly $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Authenticate with the FTP server.
set success [CkFtp2_LoginAfterConnectOnly $ftp]
if {$success != 1} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# To get file permissions in UNIX format, disallow MSLD:
CkFtp2_put_AllowMlsd $ftp 0

# To get file and sub-directory information, simply
# loop from 0 to ftp.GetDirCount() - 1
set i 0
set n [CkFtp2_GetDirCount $ftp]
if {$n < 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Show the type of permissions information that is available.
# The two most common types are "mlsd" and "unix".  See the
# online reference documentation for more information.
if {$n > 0} then {
    puts "The permissions format is: [CkFtp2_getPermType $ftp 0]"
}

while {$i < $n} {

    # Display the permissions and filename
    puts [CkFtp2_getPermissions $ftp $i] [CkFtp2_getFilename $ftp $i]

    set i [expr $i + 1]
}

# Assuming MLSD was possible, let's see the file permissions in MLSD format:
CkFtp2_put_AllowMlsd $ftp 1

# Clear the directory cache so we're forced to re-fetch the directory listing:
CkFtp2_ClearDirCache $ftp

set n [CkFtp2_GetDirCount $ftp]
if {$n < 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Show the type of permissions information that is available.
# The two most common types are "mlsd" and "unix".  See the
# online reference documentation for more information.
if {$n > 0} then {
    puts "----"
    puts "The permissions format is: [CkFtp2_getPermType $ftp 0]"
}

set i 0
while {$i < $n} {

    # Display the permissions and filename
    puts [CkFtp2_getPermissions $ftp $i] [CkFtp2_getFilename $ftp $i]

    set i [expr $i + 1]
}

set success [CkFtp2_Disconnect $ftp]

delete_CkFtp2 $ftp