Perl

GetHarvest - Delete Contact

See more GetHarvest Examples

Delete a contact. Returns a 200 OK response code if the call succeeded. Perl

use chilkat();

$success = 0;

# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("DELETE","https://api.harvestapp.com/v2/contacts/CONTACT_ID",$resp);
if ($success == 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";