| Subject: | 403 Forbidden |
| Date: | Mon, 24 Nov 2014 10:11:15 +0100 |
| To: | bug-Net-Google-Calendar [...] rt.cpan.org |
| From: | Paolo Saudin <paolosaudin [...] gmail.com> |
From today I get a "403 Forbidden at
C:/Perl64/site/lib/Net/Google/Calendar.pm line 629." error when calling
the $cal->get_calendars function on two different accounts
here the sample code
use Net::Google::Calendar;
$username = 'xxxx@gmail.com';
$password = 'xxxx';
# this will get you a read-write feed.
my $cal = Net::Google::Calendar->new;
$cal->login($username, $password);
my $c;
for ($cal->get_calendars) {
print $_->title."\n";
print $_->id."\n\n";
$c = $_ if ($_->title eq 'My Non Default Calendar');
}
$cal->set_calendar($c);
print $cal->id." has ".scalar($cal->get_events)." events\n";
Thank you very much
paolo saudin