(Perl) Automatically Determine FTP Proxy Method

Tries each of the five possible ProxyMethod settings and returns the value (1-5) of the ProxyMethod that succeeded.

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("www.example-code.com");
$ftp->put_Username("example-code.com");
$ftp->put_Password("****");

$ftp->put_ProxyHostname("ftp.myproxyhost.com");
$ftp->put_ProxyPort(21);
# Note: Your FTP Proxy server may or may not require authentication.
$ftp->put_ProxyUsername("myProxyUsername");
$ftp->put_ProxyPassword("myProxyPassword");

# The ProxyMethod should be an integer value between 1 and 5.
# If you know your FTP proxy server's authentication scheme,
# you may set it directly.  To determine the ProxyMethod,
# call DetermineProxyMethod.  A return value of -1 indicates a failure.
# A return value of 0 indicates that nothing worked.
# A return value of 1-5 indicates the ProxyMethod that was 
# successful, and this should be the value used for the ProxyMethod
# property.

$pMethod = $ftp->DetermineProxyMethod();
print $pMethod . "\r\n";

$success = $ftp->Disconnect();