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. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $ftp = Chilkat2::Ftp2->new;

$ftp->Hostname('www.authtls-ftps-server.com');
$ftp->Username('FTP_LOGIN');
$ftp->Password('FTP_PASSWORD');
$ftp->AuthTls(1);
$ftp->Port(21);

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

# Get the FTP server's certificate.
my $serverCert = Chilkat2::Cert->new;
$success = $ftp->GetServerCert($serverCert);
if (!$success) {
    print $ftp->LastErrorText, "\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) {
    print $ftp->LastErrorText, "\n";
    exit;
}

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

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