4 use Data::ICal::Entry::Todo;
5 use Data::ICal::Entry::Event;
8 $RT::ICalTicketType ||= "Data::ICal::Entry::Todo";
9 $RT::ICalReminderType ||= "Data::ICal::Entry::Event";
11 my ($UserId, $SearchId, $MagicNumber);
12 my $arg = $m->dhandler_arg;
14 if ($arg =~ m{^(\d+)@(\d+)/(.*)$}) {
18 } elsif ($arg =~ m{^(\d+)/(.*)}) {
22 Abort("Corrupted URL.");
25 my $CurrentUser = new RT::CurrentUser();
26 $CurrentUser->LoadById($UserId);
27 my $user = $CurrentUser->Name;
30 unless ($CurrentUser->Id) {
31 $RT::Logger->error("No such user id $UserId from $ENV{'REMOTE_ADDR'}");
32 $m->out("RT/".$RT::VERSION ." ".404 ."\n\nno such file\n");
36 # verify user has LoadSavedSearch right
37 if ($SearchId and not $CurrentUser->HasRight( Right => 'LoadSavedSearch',
38 Object=> $RT::System )) {
39 $RT::Logger->error("not enough rights for user $user from $ENV{'REMOTE_ADDR'}");
40 $m->out("RT/".$RT::VERSION ." ".404 ."\n\nno such file\n");
45 # if MagicNumber doesn't match the one stored in database, abort
49 $Search = $CurrentUser->Attributes->WithId($SearchId);
50 $ICalAttribute = $Search->FirstAttribute('ICalURL');
52 $ICalAttribute = $CurrentUser->UserObj->FirstAttribute('ICalURL');
55 unless ($ICalAttribute) {
56 $RT::Logger->error("No such ICal feed for $user from $ENV{'REMOTE_ADDR'}");
57 $m->out("RT/".$RT::VERSION ." ".404 ."\n\nno such file\n");
62 if ($MagicNumber ne $ICalAttribute->Content) {
63 $RT::Logger->error("FAILED LOGIN for $user from $ENV{'REMOTE_ADDR'}");
64 $m->out("RT/".$RT::VERSION ." ".404 ."\n\nno such file\n");
68 my $Tickets = RT::Tickets->new($CurrentUser);
70 my $Query = "( Status = 'new' OR Status = 'open' OR Status = 'stalled')
71 AND ( Owner = '" . $CurrentUser->Id ."' OR Owner = 'Nobody' )
72 AND ( Type = 'reminder' OR 'Type' = 'ticket' )";
74 $Query = $Search->SubValue('Query')
77 $Query .= " AND ( Due > '1970-01-01' OR Starts > '1970-01-01' )";
79 $Tickets->FromSQL($Query);
81 $Tickets->OrderBy(FIELD => 'Due', ORDER => 'ASC');
83 my $calendar = Data::ICal->new();
85 my ($uid) = $RT::WebURL =~ m{https?://([^:]+)};
87 while (my $Ticket = $Tickets->Next ) {
90 if ($Ticket->Type eq 'ticket') {
91 $event = add_todo($Ticket, $uid);
93 $event = add_event($Ticket, $uid);
96 $calendar->add_entry($event);
99 my $cal = $calendar->as_string;
101 $r->content_type('text/calendar;charset=utf-8');
107 my ($Reminder, $uid) = @_;
109 return unless defined $Reminder->RefersTo->First;
110 my $Ticket = $Reminder->RefersTo->First->TargetObj;
113 summary => $Reminder->Subject ? $Reminder->Subject : '',
114 url => "${RT::WebURL}/Ticket/Display.html?id=" . $Ticket->id,
115 uid => Date::ICal->new( epoch => time() )->ical() . "-" . $Reminder->Id . "@" . $uid,
116 categories => $Ticket->QueueObj->Name,
117 dtstart => Date::ICal->new( epoch => $Reminder->DueObj->Unix )->ical,
120 my $event = $RT::ICalReminderType->new();
121 $event->add_properties(%event);
127 my ($Ticket, $uid) = @_;
130 summary => $Ticket->Subject ? $Ticket->Subject : '',
131 dtstart => Date::ICal->new( epoch => $Ticket->CreatedObj->Unix )->ical,
132 url => "${RT::WebURL}/Ticket/Display.html?id=" . $Ticket->id,
133 uid => Date::ICal->new( epoch => time() )->ical() . "-" . $Ticket->Id . "@" . $uid,
134 categories => $Ticket->QueueObj->Name,
137 $vtodo{due} = Date::ICal->new( epoch => $Ticket->DueObj->Unix )->ical,
140 if ($Ticket->OwnerObj->Id != $RT::Nobody->Id and $Ticket->OwnerObj->EmailAddress) {
141 $vtodo{organizer} = "MAILTO:" . $Ticket->OwnerObj->EmailAddress;
142 $vtodo{attendee} = "MAILTO:" . $Ticket->OwnerObj->EmailAddress;
143 } elsif ($Ticket->QueueObj->CommentAddress) {
144 $vtodo{organizer} = "MAILTO:" . $Ticket->QueueObj->CommentAddress;
145 $vtodo{attendee} = "MAILTO:" . $Ticket->QueueObj->CommentAddress;
148 $vtodo{priority} = $Ticket->Priority
149 if $Ticket->Priority;
151 my $vtodo = $RT::ICalTicketType->new();
152 $vtodo->add_properties(%vtodo);