#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);

use strict;
use warnings;

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

use open ":std", ":encoding(UTF-8)";
use Site::Utils;

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

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

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

my ($date, $uid) = $dbh->selectrow_array("SELECT DATE_FORMAT(NOW() + INTERVAL 1 DAY, '%Y%m%d'), DATE_FORMAT(NOW(), '%Y-%j-%H%i%s')");

if ($data{'template'}) {
    $template->process("admin/google/dogface.tt", $vars)or die $template->error;
    exit;
}

print<<"END";
BEGIN:VCALENDAR
VERSION:2.0
PRODID:Pawsies Calendar 1.0//EN
CALSCALE:GREGORIAN
METHOD:PUBLISH
BEGIN:VEVENT
SUMMARY:\x{1f436} Dog Face Test
UID:DFT$uid\@pawsies.uk
SEQUENCE:1
DTSTAMP:${date}T120000
DTSTART:${date}T120000
DTEND:${date}T140000
END:VEVENT
END:VCALENDAR
END