#!/usr/bin/perl
use warnings;
use strict;
use Net::Google::Calendar;
use Data::Dumper;
use DateTime::Format::ICal;
use Data::ICal::DateTime;
use DateTime;
use constant CALURL => '
http://www.google.com/calendar/feeds/...';
use constant CALUSER => 'google_user';
use constant CALPASS => 'google_pass';
my $now = DateTime->now();
my $cal = Net::Google::Calendar->new(url => CALURL)
or die "Couldn't create calendar";
$cal->login(CALUSER,CALPASS)
or die "Couldn't log in";
my @mycals = $cal->get_calendars()
or die "Couldn't get my calendars\n";
foreach my $c (@mycals) {
$cal->set_calendar($c);
foreach my $e ($cal->get_events()) {
if (my $recur = $e->recurrence)
{
print "\nEvent ",$e->title,"\n";
my($start,$end);
print "ICal Recurrence $recur, starting ",$recur->properties->{dtstart}[0]->value," timezone ",$recur->properties->{dtstart}->[0]->parameters->{TZID},"\n";
# print Dumper $recur;
my $recur2 = $recur->recurrence;
print "DateTime Recurrence $recur2\n";
print "Min Date ",$recur2->min," timezone ",$recur2->min->time_zone,"\n";
print "Max Date ",$recur2->max," timezone ",$recur2->max->time_zone,"\n";
if ($start = $recur2->next($now))
{
print "Next Start ",$start," timezone ",$start->time_zone,"\n";
$end = $start->clone;
if (my $dur = $recur->duration) {
print "Duration $dur\n";
$end->add($dur);
}
print "Next End ",$end," timezone ",$end->time_zone,"\n";
}
else
{
print "\t\t\tnever.\n";
next;
}
}
}
}
