#!/usr/bin/perl -w
print "Content-Type: text/html\n\n";
use CGI;
use CGI::Carp qw( fatalsToBrowser );
use Date::Calc qw(:all);
use HTTP::Request::Common;
use LWP::UserAgent;
use Time::Local;
use File::Copy;
use File::Path;
use PDF::Create;
use DBI;
use Net::Google::Calendar;
use MIME::Base64 qw(encode_base64);
$query = new CGI;
######### Set #########
$func = ($query->param('func'));
######### Main Routing #########
&header;
if (!$func) {&main;}
elsif ($func eq "main") {&main;}
&footer;
exit;
######### Subs #########
######### Main #########
sub main {
$username='myadress\@googlemail.com';
$password='mypassword';
$cal = Net::Google::Calendar->new;
$cal->login( $username, $password );
@calendars = $cal->get_calendars;
foreach $element (@calendars) {
print <
HTML
}
}
######### Header #########
sub header {
print <
Milas-Events
HTML
}
######### Footer #########
sub footer {
print <