Perl

Delete a Google Calendar Event

See more Google Calendar Examples

Demonstrates how to delete a Google Calendar event. Perl

use chilkat();

$success = 0;

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

# This example uses a previously obtained access token having permission for the 
# Google Calendar scope.

# In this example, Get Google Calendar OAuth2 Access Token, the access
# token was saved to a JSON file.  This example fetches the access token from the file..
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/googleCalendar.json");
if ($jsonToken->HasMember("access_token") == 0) {
    print "No access token found." . "\r\n";
    exit;
}

$http = chilkat::CkHttp->new();
$http->put_AuthToken($jsonToken->stringOf("access_token"));

# Your URL should use the actual calendar ID and the actual event ID for the event to be deleted.
$url = "https://www.googleapis.com/calendar/v3/calendars/your_calendar_id/events/your_event_id";

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpNoBody("DELETE",$url,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

if ($resp->get_StatusCode() == 204) {
    # Success.
    print "Event deleted" . "\r\n";
}
else {
    if ($resp->get_StatusCode() == 401) {
        print "Try refreshing the access token and then retry..." . "\r\n";
    }

    # Failed. 
    print $resp->bodyStr() . "\r\n";
}