(Perl) FTP through HTTP Tunnel (FTP over HTTP Proxy)

Note: This example requires Chilkat v9.5.0.51 or greater.

FTP through an HTTP tunnel (via an HTTP proxy server that supports HTTP tunneling).

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

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.example.com");
$ftp->put_Username("login");
$ftp->put_Password("password");

# Set the HTTP proxy server properties.
# This is to connect via HTTP/1.1 using CONNECT method
$ftp->put_HttpProxyHostname("192.168.1.127");
$ftp->put_HttpProxyPort(8080);

# If the proxy server requires authentication...
$ftp->put_HttpProxyUsername("myProxyUsername");
$ftp->put_HttpProxyPassword("myProxyPassword");

# FTP over an HTTP proxy requires that FTP Passive mode be used
# for data transfers. It is not possible to use non-passive (active) mode
# for FTP over HTTP.
$ftp->put_Passive(1);

# Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Change to the remote directory where the file will be uploaded.
$success = $ftp->ChangeRemoteDir("junk");
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Upload a file.
$localFilename = "c:/temp/hamlet.xml";
$remoteFilename = "hamlet.xml";

$success = $ftp->PutFile($localFilename,$remoteFilename);
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

$success = $ftp->Disconnect();

print "File Uploaded!" . "\r\n";