Restart/Resume FTP Upload

Demonstrates how to restart / resume an FTP upload.

Download Chilkat Perl Module

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;
}

$ftp->put_Hostname("ftp.chilkatsoft.com");
$ftp->put_Username("****");
$ftp->put_Password("****");

#  Connect and login to the FTP server.
$success = $ftp->Connect();
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

#  Change to the remote directory where the file will be uploaded.
$success = $ftp->ChangeRemoteDir("temp");
if ($success != 1) {
    print $ftp->lastErrorText() . "\n";
    exit;
}

#  In this example, assume that a previous FTP upload failed,
#  and the incomplete file (bigFile.zip) exists on the FTP server.
#  You only need to set the RestartNext property to resume
#  the upload.  When RestartNext is set, the next call
#  to PutFile (or PutFileFromBinaryData, PutFileFromTextData)
#  will automatically resume the upload from the point of failure.
#  (The way it works is that the FTP component sends a "SIZE"
#  command to the FTP server to find out how many bytes of
#  the file already exist on the server.  It then begins
#  uploading from that point.

#  Note: After PutFile is called, the RestartNext property
#  is automatically set to false.
$ftp->put_RestartNext(1);

#  Upload a file with restart.
$localFilename = "bigFile.zip";
$remoteFilename = "bigFile.zip";

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

$ftp->Disconnect();

print "File Uploaded!" . "\n";