(Perl) Restart/Resume FTP Upload

Demonstrates how to restart / resume an FTP upload.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

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

# 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("temp");
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\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() . "\r\n";
    exit;
}

$success = $ftp->Disconnect();

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