(Perl) REST POST JSON using Gzip Content Encoding

Demonstrates how to send a JSON POST using the gzip Content-Encoding.

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

use chilkat();

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

# Use the online tool at https://tools.chilkat.io/Default.cshtml
# to generate the JSON code that creates this JSON:

# {
#     "lists": [
#         {
#             "id": "1511199999"
#         }
#     ],
#     "confirmed": false,
#     "email_addresses": [
#         {
#             "email_address": "support@chilkatsoft.com"
#         }
#     ],
#     "first_name": "Matt",
#     "last_name": "Smith"
# }
# 

$json = chilkat::CkJsonObject->new();
$json->UpdateString("lists[0].id","1511199999");
$json->UpdateBool("confirmed",0);
$json->UpdateString("email_addresses[0].email_address",'support@chilkatsoft.com');
$json->UpdateString("first_name","Matt");
$json->UpdateString("last_name","Smith");

$rest = chilkat::CkRest->new();

$success = $rest->Connect("api.constantcontact.com",443,1,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$rest->AddHeader("Content-Type","application/json");
$rest->AddHeader("Authorization","Bearer xxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxx");

# Tell the server you'll accept only an application/json response.
$rest->AddHeader("Accept","application/json");

# Indicate that we'll be sending the request body gzipped.
$rest->AddHeader("Content-Encoding","gzip");

$sbReq = chilkat::CkStringBuilder->new();
$json->EmitSb($sbReq);

# Send the POST.
$sbResp = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("POST","/v2/contacts?action_by=ACTION_BY_VISITOR&api_key=xxxxxxx",$sbReq,$sbResp);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

print "Response body:" . "\r\n";
print $sbResp->getAsString() . "\r\n";

if ($rest->get_ResponseStatusCode() != 200) {
    print "Received error response code: " . $rest->get_ResponseStatusCode() . "\r\n";
    exit;
}

$jsonResp = chilkat::CkJsonObject->new();
$jsonResp->LoadSb($sbResp);

# Use the online tool at https://tools.chilkat.io/jsonParse.cshtml
# to generate the JSON code that parses the JSON response..