(Perl) Passive FTP Upload
Simple example to upload a file to an FTP server using passive mode.
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("ftp.example.com");
$ftp->put_Username("login");
$ftp->put_Password("password");
# Use Passive mode.
$ftp->put_Passive(1);
# Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
# Change to the remote directory where the file will be uploaded.
$success = $ftp->ChangeRemoteDir("junk");
if ($success != 1) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
# Upload a file.
$localFilename = "hamlet.xml";
$remoteFilename = "hamlet.xml";
$success = $ftp->PutFile($localFilename,$remoteFilename);
if ($success != 1) {
print $ftp->lastErrorText() . "\r\n";
exit;
}
$success = $ftp->Disconnect();
print "File Uploaded!" . "\r\n";
|