Asynchronous HTTPS Upload

Demonstrates how to do an HTTPS upload asynchronously in a background thread. The Chilkat Upload software is freeware and may be used in both commercial and non-commercial applications and websites.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;

$upload = new chilkat::CkUpload();

#  Specify the page (ASP, ASP.NET, Perl, Python, Ruby, CGI, etc)
#  that will process the HTTP Upload.
#  You must change these values to your hostname/path.
$upload->put_Hostname("www.yourwebserver123.com");
$upload->put_Path("/receiveUpload.asp");

#  To upload via HTTPS, you only need to set the port
#  and "Ssl" property.  All other programming remains the same:
$upload->put_Ssl(1);
$upload->put_Port(443);

#  Add one or more files to be uploaded.
$upload->AddFileReference("file1","dude.gif");
$upload->AddFileReference("file2","pigs.xml");
$upload->AddFileReference("file3","sample.doc");

#  Begin the HTTPS upload in a background thread:
$success = $upload->BeginUpload();
if ($success != 1) {
    print $upload->lastErrorText() . "\n";
}
else {
    print "Files uploaded!" . "\n";
}

#  Wait for the upload to finish.
#  Print the progress as we wait...
while (($upload->get_UploadInProgress() == 1)) {
    #  We can abort the upload at any point by calling:
    #  upload.AbortUpload();

    #  Display the percentage complete and the number of bytes uploaded so far..
    #  The total upload size will become set after the upload begins:
    print $upload->get_PercentUploaded() . "% "
         . $upload->get_NumBytesSent() . "/" . $upload->get_TotalUploadSize() . "\r\n";

    #  Sleep 2/10ths of a second.
    $upload->SleepMs(200);

}

#  Did the upload succeed?
if ($upload->get_UploadSuccess() == 1) {
    print "Files uploaded!" . "\n";
}
else {
    print $upload->lastErrorText() . "\n";
}