Perl

Upload to Tumbleweed SecureTransport FTPS Server

See more FTP Examples

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. Perl

use chilkat();

$success = 0;

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# 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);

# Load a certificate from a .pfx
# A PFX may contain several certs, including the certificates
# in a chain of authority.
$certStore = chilkat::CkCertStore->new();
$password = "***";
# Load the certs from a PFX into an in-memory certificate store:
$success = $certStore->LoadPfxFile("my.pfx",$password);
if ($success != 1) {
    print $certStore->lastErrorText() . "\r\n";
    exit;
}

# Find the desired certificate.
$jsonCN = chilkat::CkJsonObject->new();
$jsonCN->UpdateString("CN","cert common name");

$cert = chilkat::CkCert->new();
$success = $certStore->FindCert($jsonCN,$cert);
if ($success == 0) {
    print "Certificate not found!" . "\r\n";
    exit;
}

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

# Connect and authenticate with the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\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!" . "\r\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() . "\r\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() . "\r\n";
    exit;
}

$success = $ftp->Disconnect();