Perl

Connect to FTP Through an HTTP Proxy

Demonstrates connecting through an HTTP proxy using HttpProxyHostname, HttpProxyPort, HttpProxyUsername, HttpProxyPassword, HttpProxyAuthMethod, and HttpProxyDomain.

Background: Many corporate networks force outbound traffic through an HTTP proxy, which reaches the FTP control connection via the CONNECT method — so the proxy must permit CONNECT to the FTP port. HttpProxyAuthMethod is Basic or NTLM, with HttpProxyDomain supplying the Windows domain for NTLM. This is distinct from a traditional FTP proxy, which speaks FTP itself.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

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

$ftp->put_Hostname("ftp.example.com");
$ftp->put_Username("myFtpLogin");

#  The HTTP proxy through which the FTP control connection is made.  Common ports are 8080 and
#  3128.
$ftp->put_HttpProxyHostname("proxy.example.com");
$ftp->put_HttpProxyPort(8080);

#  Proxy authentication, if required.  HttpProxyAuthMethod is "Basic" or "NTLM"; HttpProxyDomain
#  is the Windows domain used for NTLM.
$ftp->put_HttpProxyUsername("myProxyLogin");
$ftp->put_HttpProxyPassword("myProxyPassword");
$ftp->put_HttpProxyAuthMethod("NTLM");
$ftp->put_HttpProxyDomain("CORP");

#  Normally you would not hard-code the password in source.  You should instead obtain it
#  from an interactive prompt, environment variable, or a secrets vault.
$ftp->put_Password("myPassword");

$success = $ftp->Connect();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

print "Connected through the HTTP proxy." . "\r\n";

$success = $ftp->Disconnect();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}