(Perl) Wasabi FTP Upload
Demonstrates how to upload a file to Wasabi using FTP.
Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
use chilkat();
# This example assumes the Chilkat HTTP API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$ftp = chilkat::CkFtp2->new();
# Use the domain for the bucket you'll be managing.
$ftp->put_Hostname("s3.s3.us-west-1.wasabisys.com");
# Use your root account username (email address) and root account password
$ftp->put_Username("root_account_username");
$ftp->put_Password("root_account_password");
$ftp->put_Ssl(1);
$ftp->put_Port(990);
# Note: Because of problems specific to Wasabi's FTP server, Chilkat v9.5.0.89 or later is needed for FTP access to Wasabi.
$success = $ftp->Connect();
if ($success == 0) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
# Upload a file (starfish.jpg) to the bucket named "chilkat"
$localFilePath = "qa_data/jpg/starfish.jpg";
$remoteBucketPath = "/chilkat/starfish.jpg";
$success = $ftp->PutFile($localFilePath,$remoteBucketPath);
if ($success == 0) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
print "File uploaded." . "\r\n";
|