Perl

Restart/Resume FTP Upload

See more FTP Examples

Demonstrates how to restart / resume an FTP upload. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

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

my $ftp = Chilkat2::Ftp2->new;

$ftp->Hostname('ftp.example.com');
$ftp->Username('login');
$ftp->Password('password');

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

# Change to the remote directory where the file will be uploaded.
$success = $ftp->ChangeRemoteDir('temp');
if (!$success) {
    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->RestartNext(1);

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

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

$success = $ftp->Disconnect();

print "File Uploaded!\n";