#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use strict;
use warnings;

use lib "$ENV{'DOCUMENT_ROOT'}/../lib";

use Site::Utils;
use utf8;
use Pawsies;

my $pawsies = Pawsies->new;

my $template = Template->new(INCLUDE_PATH    => $Site::Variables::template_path);

###################
# Control Variables
#
# write to file each time Google calls API
my $debug = 1;
#
# number of days in the past to sync calendar
my $sync = 28;
#
###################

$data{'format'} = 'calendar' unless $data{'format'} eq 'plain';

print "Content-type: text/$data{'fomat'}; charset=utf-8\n\n";

my @day;
my $query = $dbh->prepare("SELECT *, DATE_FORMAT(start, '%Y%m%dT%H%i%s') AS dtstart ....");
$query->execute($sync);
while (my $row = $query->fetchrow_hashref) {
    $row->{'dog'} = dogName($row->{'idBooking'});
    push @day, $row;
}

my $vars = {
    'day'    => \@day,
};

$template->process("admin/google/ian.tt", $vars)or die $template->error;