Perl

Set a Multipart Part Body from a String

Demonstrates Rest.SetMultipartBodyString, which sets the text body of the currently selected multipart part.

Background. A multipart request is assembled part by part: the part selector chooses the part being built, header fields describe it, and a SetMultipartBody method supplies its content. The request is then sent with a multipart send or full-request method.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$rest = chilkat::CkRest->new();
$bTls = 1;
$bAutoReconnect = 1;
$success = $rest->Connect("example.com",443,$bTls,$bAutoReconnect);
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

#  Select the multipart part to build, and set its header fields.
$rest->put_PartSelector("1");
$rest->AddHeader("Content-Disposition","form-data; name=\"field1\"");
$rest->AddHeader("Content-Type","text/plain");

#  Set the text body of the selected multipart part.
$success = $rest->SetMultipartBodyString("value1");
if ($success == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

#  Send the multipart request using the configured part(s).
$responseText = $rest->fullRequestMultipart("POST","/api/upload");
if ($rest->get_LastMethodSuccess() == 0) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print $responseText . "\r\n";