From e2fefb8304a0efec5a0bd56337f7d487cd3964b7 Mon Sep 17 00:00:00 2001
From: jupyter <jupyter@notebooks.hpedev.io>
Date: Fri, 29 Jul 2022 19:20:26 +0200
Subject: [PATCH 1/2] Adds a delete_event method to API::Google::GCal object

---
 lib/API/Google/GCal.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/lib/API/Google/GCal.pm b/lib/API/Google/GCal.pm
index 95a550d..049cbea 100755
--- a/lib/API/Google/GCal.pm
+++ b/lib/API/Google/GCal.pm
@@ -34,6 +34,7 @@ use parent 'API::Google';
     $event_data->{start}{timeZone} = $event_data->{end}{timeZone} = $timeZone; # not obligatory
 
     $gapi->add_event($user, $calendar_id, $event_data);
+    $gapi->delete_event($user, $calendar_id, $event_id);
 
     my $freebusy_data = {
       user => $user,
@@ -101,6 +102,24 @@ sub get_calendar_id_by_name {
 }
 
 
+=head2 add_event
+
+  $gapi->add_event($user, $calendar_id, $event_data)
+
+# https://developers.google.com/google-apps/calendar/v3/reference/events/delete
+
+=cut
+
+sub delete_event {
+    my ($self, $user, $calendar_id, $event_id) = @_;
+    $self->api_query({ 
+      method => 'delete', 
+      route => $self->{api_base}.'/calendars/'.$calendar_id.'/events/'.$event_id,
+      user => $user
+    });
+}
+
+
 =head2 add_event
 
   $gapi->add_event($user, $calendar_id, $event_data)

From abbb54ea449e5239fa6d8072bcec1043baec74ed Mon Sep 17 00:00:00 2001
From: jupyter <jupyter@notebooks.hpedev.io>
Date: Fri, 29 Jul 2022 20:03:49 +0200
Subject: [PATCH 2/2] Adds a get_calendar__name method for a API::Google::GCal
 object

---
 lib/API/Google/GCal.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lib/API/Google/GCal.pm b/lib/API/Google/GCal.pm
index 049cbea..34f98d5 100755
--- a/lib/API/Google/GCal.pm
+++ b/lib/API/Google/GCal.pm
@@ -24,6 +24,7 @@ use parent 'API::Google';
     $gapi->get_calendars($user, ['id', 'summary']);  # return only specified fields
 
     $gapi->get_calendar_id_by_name($user, 'Contacts');
+    $gapi->get_calendar_name($user, $calendar_id);
 
     my $event_data = {};
     $event_data->{summary} = 'Exibition';
@@ -85,6 +86,21 @@ sub get_calendars {
   }
 }
 
+=head2 get_calendar__name
+
+  $gapi->get_calendar_name($user, $id)
+
+Get calendar name by its id. Name = "summary" parameter
+
+=cut
+
+sub get_calendar_name {
+    my ($self, $user, $id) = @_;
+    my $all = $self->get_calendars($user, ['id', 'summary']);   # arr ref
+    my @n = grep { $_->{'id'} eq $id } @$all;
+    return $n[0]->{summary};
+}
+
 =head2 get_calendar_id_by_name
 
   $gapi->get_calendar_id_by_name($user, $name)