(Perl) Shippo Create a New Manifest

Demonstrates how to create a manifest for your shipments.

For more information, see https://goshippo.com/docs/manifests/

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

use chilkat();

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

$http = chilkat::CkHttp->new();

# Implements the following CURL command:

# curl https://api.goshippo.com/manifests/
#     -H "Authorization: ShippoToken shippo_test_831a7a042784f523b95db65444e6e084b636764b" \
#     -H "Content-Type: application/json"  \
#     -d '{
#           "carrier_account": "b741b99f95e841639b54272834bc478c",
#           "shipment_date": "2014-05-16T23:59:59Z",
#           "address_from": "28828839a2b04e208ac2aa4945fbca9a",
#           "transactions": [
#             "64bba01845ef40d29374032599f22588", 
#             "c169aa586a844cc49da00d0272b590e1"
#             ],
#           "async": false
#         }'

# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON

# The following JSON is sent in the request body.

# {
#   "carrier_account": "b741b99f95e841639b54272834bc478c",
#   "shipment_date": "2014-05-16T23:59:59Z",
#   "address_from": "28828839a2b04e208ac2aa4945fbca9a",
#   "transactions": [
#     "64bba01845ef40d29374032599f22588",
#     "c169aa586a844cc49da00d0272b590e1"
#   ],
#   "async": false
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("carrier_account","b741b99f95e841639b54272834bc478c");
$json->UpdateString("shipment_date","2014-05-16T23:59:59Z");
$json->UpdateString("address_from","28828839a2b04e208ac2aa4945fbca9a");
$json->UpdateString("transactions[0]","64bba01845ef40d29374032599f22588");
$json->UpdateString("transactions[1]","c169aa586a844cc49da00d0272b590e1");
$json->UpdateBool("async",0);

$http->SetRequestHeader("Authorization","ShippoToken shippo_test_831a7a042784f523b95db65444e6e084b636764b");
$http->SetRequestHeader("Content-Type","application/json");

# resp is a HttpResponse
$resp = $http->PostJson3("https://api.goshippo.com/manifests/","application/json",$json);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$sbResponseBody = chilkat::CkStringBuilder->new();
$resp->GetBodySb($sbResponseBody);
$jResp = chilkat::CkJsonObject->new();
$jResp->LoadSb($sbResponseBody);
$jResp->put_EmitCompact(0);

print "Response Body:" . "\r\n";
print $jResp->emit() . "\r\n";

$respStatusCode = $resp->get_StatusCode();
print "Response Status Code = " . $respStatusCode . "\r\n";
if ($respStatusCode >= 400) {
    print "Response Header:" . "\r\n";
    print $resp->header() . "\r\n";
    print "Failed." . "\r\n";

    exit;
}

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "address_from": "28828839a2b04e208ac2aa4945fbca9a",
#   "carrier_account": "b741b99f95e841639b54272834bc478c",
#   "documents": [
#     "https://shippo-delivery.s3.amazonaws.com/0fadebf6f60c4aca95fa01bcc59c79ae.pdf?Signature=tlQU3RECwdHUQJQadwqg5bAzGFQ%3D&Expires=1402803835&AWSAccessKeyId=AKIAJTHP3LLFMYAWALIA"
#   ],
#   "object_created": "2014-05-16T03:43:52.765Z",
#   "object_id": "0fadebf6f60c4aca95fa01bcc59c79ae",
#   "object_owner": "mrhippo@goshippo.com",
#   "object_updated": "2014-05-16T03:43:55.445Z",
#   "shipment_date": "2014-05-16T23:59:59Z",
#   "status": "SUCCESS",
#   "transactions": [
#     "64bba01845ef40d29374032599f22588",
#     "c169aa586a844cc49da00d0272b590e1"
#   ]
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

$address_from = $jResp->stringOf("address_from");
$carrier_account = $jResp->stringOf("carrier_account");
$object_created = $jResp->stringOf("object_created");
$object_id = $jResp->stringOf("object_id");
$object_owner = $jResp->stringOf("object_owner");
$object_updated = $jResp->stringOf("object_updated");
$shipment_date = $jResp->stringOf("shipment_date");
$status = $jResp->stringOf("status");
$i = 0;
$count_i = $jResp->SizeOfArray("documents");
while ($i < $count_i) {
    $jResp->put_I($i);
    $strVal = $jResp->stringOf("documents[i]");
    $i = $i + 1;
}

$i = 0;
$count_i = $jResp->SizeOfArray("transactions");
while ($i < $count_i) {
    $jResp->put_I($i);
    $strVal = $jResp->stringOf("transactions[i]");
    $i = $i + 1;
}