(Perl) Async Task Chain (another example)

Demonstrates using a task chain to run a sequence of FTP tasks asynchronously.

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

use chilkat();

# All Chilkat classes can be unlocked at once at the beginning of a program
# by calling UnlockBundle.  It requires a Bundle unlock code.
$chilkatGlob = chilkat::CkGlobal->new();
$success = $chilkatGlob->UnlockBundle("Anything for 30-day trial.");
if ($success != 1) {
    print $chilkatGlob->lastErrorText() . "\r\n";
    exit;
}

$ftp = chilkat::CkFtp2->new();

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

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

$taskChain = chilkat::CkTaskChain->new();

# Create a task to change to the remote directory where the file will be uploaded.
# task is a Task
$task = $ftp->ChangeRemoteDirAsync("junk");
if ($ftp->get_LastMethodSuccess() == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Add this task to the task chain.
$success = $taskChain->Append($task);

# Create a task to upload a file.
$localFilename = "c:/temp/hamlet.xml";
$remoteFilename = "hamlet.xml";

# task is a Task
$task = $ftp->PutFileAsync($localFilename,$remoteFilename);
if ($ftp->get_LastMethodSuccess() == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

# Add this task to the task chain.
$success = $taskChain->Append($task);

# Start the task chain running in a background thread.
# Each task is run one after the other (on the same background thread) until all tasks have completed.
# The task chain will stop at the first task that fails.
$taskChain->put_StopOnFailedTask(1);
$success = $taskChain->Run();
if (!$success) {
    print $taskChain->lastErrorText() . "\r\n";
    exit;
}

# The application is now free to do anything else
# while the FTP commands are being run...

# For this example, we'll simply sleep and periodically
# check to see if the taskchain if finished. 
while ($taskChain->get_Finished() != 1) {

    # Sleep 100 ms.
    $taskChain->SleepMs(100);

}

# A finished task chain could be one that was canceled, aborted, or truly finished.  

# If the task chain "completed", then it ran to completion.  A "completed" task will
# have a StatusInt equal to 7.   If the task finished, but was not completed, then it must've
# been aborted or canceled:
if ($taskChain->get_StatusInt() != 7) {
    print "Task did not complete." . "\r\n";
    print "task chain status: " . $taskChain->status() . "\r\n";
    exit;
}

# If we got to this point, the ChangeRemoteDir and PutFile were successful.
# We can visually verify by examining the LastErrorText that was recorded for each
# of these method calls..
$numTasks = $taskChain->get_NumTasks();
$taskIdx = 0;

while (($taskIdx < $numTasks)) {

    # task is a Task
    $task = $taskChain->GetTask($taskIdx);

    # Examine the status of this task, and the ResultErrorText
    # (the ResultErrorText is the ftp.LastErrorText captured for FTP method called by the task).
    # Everything should indicate success.
    print "task status: " . $task->status() . "\r\n";
    print "task log: " . $task->resultErrorText() . "\r\n";

    $taskIdx = $taskIdx + 1;
}

$success = $ftp->Disconnect();