(Tcl) SFTP HardLink - Create a Hard Link using the hardlink@openssh.com Extension

Demonstrates how to create a hard link on the SFTP server using the hardlink@openssh.com extension. Note: This only works on servers supporting the hardlink@openssh.com extension.

Note: This example requires Chilkat v9.5.0.71 or greater.

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]

# Pass a domain or IP address..
set success [CkSFtp_Connect $sftp "my-sftp-server.com" 22]
if {$success == 1} then {
    set success [CkSFtp_AuthenticatePw $sftp "mySFtpLogin" "mySFtpPassword"]
}

if {$success == 1} then {
    set success [CkSFtp_InitializeSftp $sftp]
}

if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

# Create a hard link on the server.
# We'll create the hard link named "somefile2.txt" in our HOME directory
# which links to the file somefile.txt also in our HOME directory.
set success [CkSFtp_HardLink $sftp "somefile.txt" "somefile2.txt"]
if {$success != 1} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

puts "Successfully created hard link."

delete_CkSFtp $sftp