1#!/usr/bin/perl
2#======================================================================
3# (C) COPYRIGHT 2000, Eric Busboom <eric@civicknowledge.com>
4#
5# This library is free software; you can redistribute it and/or modify
6# it under the terms of either:
7#
8#   The LGPL as published by the Free Software Foundation, version
9#   2.1, available at: https://www.gnu.org/licenses/lgpl-2.1.txt
10#
11# Or:
12#
13#   The Mozilla Public License Version 2.0. You may obtain a copy of
14#   the License at https://www.mozilla.org/MPL/
15#======================================================================
16
17use lib "../blib/lib";
18use lib "../blib/arch";
19use lib "../";
20
21use Net::ICal::Libical;
22
23
24my $comp_str=<<EOM;
25BEGIN:VCALENDAR
26METHOD:PUBLISH
27VERSION:2.0
28PRODID:-//ACME/DesktopCalendar//EN
29BEGIN:VEVENT
30ORGANIZER:mailto:a\@example.com
31DTSTAMP:19970612T190000Z
32DTSTART:19970701T210000Z
33DTEND:19970701T230000Z
34SEQUENCE:1
35UID:0981234-1234234-23\@example.com
36SUMMARY:ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES
37END:VEVENT
38END:VCALENDAR
39EOM
40
41$c = Net::ICal::Libical::icalparser_parse_string($comp_str);
42
43print Net::ICal::Libical::icalcomponent_as_ical_string($c)."\n";
44