(Perl) GetHarvest - Delete Contact

Delete a contact. Returns 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 DELETE

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

# resp is a HttpResponse
$resp = $http->QuickRequest("DELETE","https://api.harvestapp.com/v2/contacts/CONTACT_ID");
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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

    exit;
}

print "Success." . "\r\n";