(Tcl) AWS Transfer for SFTP (Amazon S3)

Once you've setup your AWS Transfer for SFTP in the AWS Console, interacting with it is no different than any other SSH/SFTP server. AWS will provide a private key in PEM format. It is used for authentication (instead of a password).

For more information, see https://docs.aws.amazon.com/transfer/latest/userguide/getting-started-use-the-service.html

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 AWS SFTP server.
# Change the domain to your value.
set domain "s-123456df999999fab.server.transfer.eu-west-2.amazonaws.com"
set port 22
set success [CkSFtp_Connect $sftp $domain $port]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Load your AWS SFTP private key PEM file..
set sshKey [new_CkSshKey]

set keyText [CkSshKey_loadText $sshKey "qa_data/pem/s3_sftp_privateKey.pem"]
if {[CkSshKey_get_LastMethodSuccess $sshKey] != 1} then {
    puts [CkSshKey_lastErrorText $sshKey]
    delete_CkSFtp $sftp
    delete_CkSshKey $sshKey
    exit
}

set success [CkSshKey_FromOpenSshPrivateKey $sshKey $keyText]
if {$success == 0} then {
    puts [CkSshKey_lastErrorText $sshKey]
    delete_CkSFtp $sftp
    delete_CkSshKey $sshKey
    exit
}

# Authenticate with the SSH server using the private key.
set success [CkSFtp_AuthenticatePk $sftp "myUsername" $sshKey]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    delete_CkSshKey $sshKey
    exit
}

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

# Upload from the local file to the SSH server.
# Important -- the remote filepath is the 1st argument,
# the local filepath is the 2nd argument;
set remoteFilePath "hamlet.xml"
set localFilePath "c:/temp/hamlet.xml"

set success [CkSFtp_UploadFileByName $sftp $remoteFilePath $localFilePath]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    delete_CkSshKey $sshKey
    exit
}

puts "Success."

delete_CkSFtp $sftp
delete_CkSshKey $sshKey