Upload to Tumbleweed SecureTransport FTPS Server

Demonstrates how to connect, authenticate, and upload file to a Tumbleweed Secure Transport SSL FTP Server. Instead of providing a login name and password, you pass the string "site-auth" for the username, and an empty string for the password. You must also provide a client-side digital certificate -- as the certificate's credentials and validity are used to authenticate.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$ftp = new chilkat::CkFtp2();

#  Any string unlocks the component for the 1st 30-days.
$success = $ftp->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

#  This code has been tested with the Tumbleweed server
#  at sft.wellsfargo.com
$ftp->put_Hostname("sft.wellsfargo.com");

#  Use these exact strings for the username and password:
$ftp->put_Username("site-auth");
$ftp->put_Password("");

#  Establish an AUTH SSL secure channel after connecting.
#  Your client-side certificate is used for authentication when
#  the SSL channel is established.
$ftp->put_AuthSsl(1);

#  The Ssl property is for establishing an implicit SSL connection
#  on port 990.  Do not set it.
$ftp->put_Ssl(0);

$cert = new chilkat::CkCert();

#  It is assumed you've already installed your digital certificate
#  on the system.  If it is located in the Current-User or Local Machine
#  certificate stores located in the Windows Registry, you only
#  need to load it by common name:
$success = $cert->LoadByCommonName("My cert's common name");
if ($success != 1) {
    print $cert->lastErrorText() . "\n";
    exit;
}

#  Tell the Chilkat FTP2 component to use the client-side
#  cert for the SSL connection:
$ftp->SetSslClientCert($cert);

#  Connect and authenticate with the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}
else {
    #  LastErrorText contains information even when
    #  successful. This allows you to visually verify
    #  that the secure connection actually occurred.
    print $ftp->lastErrorText() . "\r\n";
}

print "Secure FTP Channel Established!" . "\n";

#  Change to the remote directory where the file will be
#  uploaded.  If your file is to be uploaded to the FTP user
#  account's home directory, this is not necessary.
$success = $ftp->ChangeRemoteDir("someSubDir");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

#  You may include an absolute or relative path with the
#  local filename.  If no path is included, the file should
#  be present in the current working directory of the calling
#  process.
$localFilename = "someFile.dat";
$remoteFilename = "someFile.dat";

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

$ftp->Disconnect();