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