(Perl) SFTP SymLink - Create Symbolic Link on Server
Demonstrates how to create a symbolic link on the SFTP server.
use chilkat();
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$sftp = chilkat::CkSFtp->new();
# Pass a domain or IP address..
$success = $sftp->Connect("my-sftp-server.com",22);
if ($success == 1) {
$success = $sftp->AuthenticatePw("mySFtpLogin","mySFtpPassword");
}
if ($success == 1) {
$success = $sftp->InitializeSftp();
}
if ($success != 1) {
print $sftp->lastErrorText() . "\r\n";
exit;
}
# Create a symbolic link on the server.
# We'll create a link in our HOME directory named "sshd_config"
# which points to the file /etc/ssh/sshd_config.
$success = $sftp->SymLink("/etc/ssh/sshd_config","sshd_config");
if ($success != 1) {
print $sftp->lastErrorText() . "\r\n";
exit;
}
print "Successfully created symbolic link." . "\r\n";
|