Perl Requires Chilkat v11.0.0+

FTP Connect, Examine Server Certificate, and then Authenticate

See more FTP Examples

Demonstrates how to connect to an FTP server, examine the server's SSL/TLS certificate, and then, if it meets the application's security requirements, proceed to authenticate. Perl

use chilkat();

$success = 0;

#  This example assumes Chilkat Ftp2 to have been previously unlocked.
#  See Unlock Ftp2 for sample code.

$ftp = chilkat::CkFtp2->new();

$ftp->put_Hostname("www.authtls-ftps-server.com");
$ftp->put_Username("FTP_LOGIN");
$ftp->put_Password("FTP_PASSWORD");
$ftp->put_AuthTls(1);
$ftp->put_Port(21);

#  Connect to the FTP server using explicit TLS (AUTH TLS).
$success = $ftp->ConnectOnly();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

#  Get the FTP server's certificate.
$serverCert = chilkat::CkCert->new();
$success = $ftp->GetServerCert($serverCert);
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

#  Now that we have the certificate, we can check it in any way we desire.
#  (See the online reference documentation for the certificate object's methods
#  and properties)...

#  Assuming the certificate is OK, proceed to authenticate with the FTP server.
$success = $ftp->LoginAfterConnectOnly();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

#  Proceed with uploading/download files, etc...
#  

$ftp->Disconnect();
print "Success." . "\r\n";