(Perl) GetHarvest - Update Contact

Updates the specific contact by setting the values of the parameters passed. Any parameters not provided will be left unchanged. Returns a contact object and a 200 OK response code if the call succeeded.

For more information, see https://help.getharvest.com/api-v2/clients-api/clients/contacts/

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.harvestapp.com/v2/contacts/CONTACT_ID" \
#   -H "Authorization: Bearer ACCESS_TOKEN" \
#   -H "Harvest-Account-Id: ACCOUNT_ID" \
#   -H "User-Agent: MyApp (yourname@example.com)" \
#   -X PATCH \
#   -H "Content-Type: application/json" \
#   -d '{"title":"Owner"}'

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

# The following JSON is sent in the request body.

# {
#   "title": "Owner"
# }

$json = chilkat::CkJsonObject->new();
$json->UpdateString("title","Owner");

$http->SetRequestHeader("User-Agent",'MyApp (yourname@example.com)');
$http->SetRequestHeader("Content-Type","application/json");
$http->SetRequestHeader("Authorization","Bearer ACCESS_TOKEN");
$http->SetRequestHeader("Harvest-Account-Id","ACCOUNT_ID");

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

# resp is a HttpResponse
$resp = $http->PTextSb("PATCH","https://api.harvestapp.com/v2/contacts/CONTACT_ID",$sbRequestBody,"utf-8","application/json",0,0);
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:

# {
#   "id": 4706510,
#   "title": "Owner",
#   "first_name": "George",
#   "last_name": "Frank",
#   "email": "georgefrank@example.com",
#   "phone_office": "",
#   "phone_mobile": "",
#   "fax": "",
#   "created_at": "2017-06-26T21:44:57Z",
#   "updated_at": "2017-06-26T21:46:48Z",
#   "client": {
#     "id": 5735776,
#     "name": "123 Industries"
#   }
# }

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

$id = $jResp->IntOf("id");
$title = $jResp->stringOf("title");
$first_name = $jResp->stringOf("first_name");
$last_name = $jResp->stringOf("last_name");
$email = $jResp->stringOf("email");
$phone_office = $jResp->stringOf("phone_office");
$phone_mobile = $jResp->stringOf("phone_mobile");
$fax = $jResp->stringOf("fax");
$created_at = $jResp->stringOf("created_at");
$updated_at = $jResp->stringOf("updated_at");
$clientId = $jResp->IntOf("client.id");
$clientName = $jResp->stringOf("client.name");