Perl

Create an FTP Upload Plan

Demonstrates the Chilkat Ftp2.CreatePlan method, which creates and returns a textual upload plan for a local directory. The only argument is the local directory. The object must be connected, because the plan records the current absolute remote directory together with the local source paths.

Note: The local paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: A plan is a saved, resumable description of an upload — the list of local files and their absolute remote destinations — computed once and executed later (or on another run) with PutPlan. Separating planning from execution suits large or unreliable transfers: the plan can be reviewed, stored, and re-run, and because it records absolute remote paths it stays correct even if the working directory later changes.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the Ftp2.CreatePlan method, which creates and returns a textual upload plan for a
# local directory.  The only argument is the local directory.  The object must be connected,
# because the plan records the current absolute remote directory.

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

$ftp->Hostname('ftp.example.com');
$ftp->Username('myFtpLogin');

# Normally you would not hard-code the password in source.  You should instead obtain it
# from an interactive prompt, environment variable, or a secrets vault.
$ftp->Password('myPassword');

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

$success = $ftp->ChangeRemoteDir('public_html');
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# The plan captures which local files to upload and the absolute remote destination.  Save it so
# the upload can be run (or resumed) later with PutPlan.
my $plan = $ftp->CreatePlan('qa_data/site');
if (!$ftp->LastMethodSuccess) {
    print $ftp->LastErrorText, "\n";
    exit;
}

# Persist the plan text for later use.
my $sbPlan = Chilkat2::StringBuilder->new;
$sbPlan->Append($plan);
$success = $sbPlan->WriteFile('qa_output/upload_plan.txt', 'utf-8', 0);
if (!$success) {
    print $sbPlan->LastErrorText, "\n";
    exit;
}

print "Upload plan created.\n";

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