(Tcl) Wasabi FTP Upload

See more Wasabi Examples

Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set ftp [new_CkFtp2]

# Use the domain for the bucket you'll be managing.
CkFtp2_put_Hostname $ftp "s3.s3.us-west-1.wasabisys.com"

# Use your root account username (email address) and root account password
CkFtp2_put_Username $ftp "root_account_username"
CkFtp2_put_Password $ftp "root_account_password"
CkFtp2_put_Ssl $ftp 1
CkFtp2_put_Port $ftp 990

# Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
set success [CkFtp2_Connect $ftp]
if {$success == 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

# Upload a file (starfish.jpg) to the bucket named "chilkat"
set localFilePath "qa_data/jpg/starfish.jpg"
set remoteBucketPath "/chilkat/starfish.jpg"
set success [CkFtp2_PutFile $ftp $localFilePath $remoteBucketPath]
if {$success == 0} then {
    puts [CkFtp2_lastErrorText $ftp]
    delete_CkFtp2 $ftp
    exit
}

puts "File uploaded."

delete_CkFtp2 $ftp