(Perl) Use Explicit FTP over TLS
Demonstrates how to connect to an FTP server using explicit FTP over TLS.
use chilkat();
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$ftp = chilkat::CkFtp2->new();
$ftp->put_Hostname("ftp.your-ftp-server.com");
$ftp->put_Username("ftpAccountLogin");
$ftp->put_Password("ftpAccountPassword");
# Indicate that the "AUTH TLS" command should be use to convert the connection to TLS
# after the initial TCP connection to port 21 is established.
$ftp->put_AuthTls(1);
# Connect and convert the connection to TLS automatically.
$success = $ftp->ConnectOnly();
if ($success != 1) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
$success = $ftp->LoginAfterConnectOnly();
if ($success != 1) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
print "TLS connection established and successfully authenticated." . "\r\n";
|