Generate sax events from an icalendar
use iCal::Parser::SAX; my $parser=iCal::Parser::SAX->new(Handler=>SAXHandler,%args); $parser->parse_uri($file); $parser->parse_uris(@files);
This module uses iCal::Parser to generates \s-1SAX\s0 events for the calendar contents.
The xml document generated is designed for creating monthly calendars with weeks beginning on monday (e.g., by passing the output through an xsl styleheet).
The basic structure of the generated document (if output through a simple output handler like \*(C`XML::SAX::Writer\*(C'), is as follows:
<ical> <calendars> <calendar id="cal-id" index="n" name="..." description="..."/> </calendars> <events> <year year="YYYY"> <month month="[1-12]"> <week week="n"> <day date="YYYY-MM-DD"> <event uid="event-id" idref="cal-id" [all-day="1"]> <!-- ... --> </event> </day> </week> </month> </events> <todos> <todo idref="cal-id" uid="..."> <!--- ... --> </todo> </todos> </ical>
Along with basics, such as converting calendar attributes to lowercase elements (e.g., a \*(C`DTSTART\*(C' attribute in the input would generate a sax event like \*(C`element({Name=\*(C''dtstart'})>), a number of other processes occur:
\*(C`day\*(C' elements are are generated for each date within the months from the first month in the input to the last, even if there are no calendar events on that day. This guarantees a complete calendar month for further processing. If there is an overlap between two or more events, the attribute \*(C`conflict\*(C', containing the number of concurrent overlaps, is added to the element.
If the beginning or end of the month does not start on a monday, or end on a sunday, the days from the previous (next) month month are duplicated within the first (last) week of the current month, including duplicate copies of any calendar events occuring on those days. This allows for displaying a monthly calendar the same way a program such as Apple's iCal would, with calendar events showing up if they fall within the overlapping days in the first or last week of a monthly calendar.
Along with the standard \s-1SAX\s0 parsing methods \*(C`parse_uri\*(C', \*(C`parse_file\*(C', etc.), the following methods are supported.
Create a new \s-1SAX\s0 parser. All arguments other than \*(C`Handler\*(C' and \*(C`no_escape\*(C' are passed to iCal::Parser.
Arguments
The \s-1SAX\s0 handler.
If not set, quotes, ampersands and apostrophes are converted to entites. In any case < is converted to an entity, \*(C`\\n\*(C' is converted to the return entity and double backslashes (\*(C`\\\*(C') are removed.
Pass all the input uris to \*(C`iCal::Parser\*(C' and generate a combined output calendar.
Parse the hash returned from iCal::Parser::calendar directly.
Rick Frankel, [email protected]
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the \s-1LICENSE\s0 file included with this module.
iCal::Parser, XML::SAX::Base