BEGIN:VCALENDAR
PRODID:-//Blinck//RT Projects Calendar 0.1//EN
VERSION:2.0
CALSCALE:GREGORIAN
METHOD:PUBLISH

BEGIN:VTIMEZONE
TZID:Europe/Rome

BEGIN:DAYLIGHT
TZOFFSETFROM:+0100
TZOFFSETTO:+0200
TZNAME:CEST
DTSTART:19700329T020000
RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
END:DAYLIGHT

BEGIN:STANDARD
TZOFFSETFROM:+0200
TZOFFSETTO:+0100
TZNAME:CET
DTSTART:19701025T030000
RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
END:STANDARD

END:VTIMEZONE

% for my $ms ($mss->get_milestones_by_due_date) {
% my ($f, $l) = $ms->get_ical_dates;
BEGIN:VEVENT
DTSTART;VALUE=DATE:<% $f %>
DTEND;VALUE=DATE:<% $l %>
UID:rt-ticket-<% $ms->id %>@blinck.com
SUMMARY:<% $ms->summary_name %>
DESCRIPTION:<% $ms->description %>
END:VEVENT
% }

END:VCALENDAR

<%ARGS>
$q => undef
$p => undef
</%ARGS>
<%init>
$m->comp('lib');

my $save_user = $session{'CurrentUser'};
$session{'CurrentUser'} = RT::CurrentUser->new('RT_System');

$r->content_type('text/calendar');
#$r->content_type('text/plain');

my $mss = Blinck::RT::Milestones->new( q => $q, p => $p );
$mss->find_milestones;

$session{'CurrentUser'} = $save_user;
</%init>

<%flags>
inherit => undef
</%flags>