Perl

Upgrade an FTP Control Channel to TLS (ConvertToTls)

Demonstrates the Chilkat Ftp2.ConvertToTls method, which upgrades an already-connected clear FTP control channel to explicit TLS. It takes no arguments and is used with a manually staged connection created by ConnectOnly while Ssl is disabled.

Background: This exposes the explicit-FTPS AUTH TLS upgrade as a discrete step for the rare case where you need to do something on the clear connection first — inspect the greeting, apply a workaround — before securing it. In the normal case you simply set AuthTls and let Connect perform the upgrade automatically; this manual path exists for staged control.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Ftp2.ConvertToTls method, which upgrades an already-connected clear FTP control
# channel to explicit TLS.  It takes no arguments.  It is used with a manually staged connection
# created by ConnectOnly while Ssl is disabled.

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

$ftp->Hostname('ftp.example.com');
$ftp->Port(21);

# Connect in clear text first (Ssl is false).
my $success = $ftp->ConnectOnly();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Upgrade the control channel to explicit TLS (AUTH TLS).
$success = $ftp->ConvertToTls();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Now authenticate over the encrypted control channel.
$ftp->Username('myFtpLogin');
$ftp->Password('myPassword');
$success = $ftp->LoginAfterConnectOnly();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

print "Control channel upgraded to TLS and logged in.\n";

$success = $ftp->Disconnect();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}