diff options
author | Hans Petter <hansp@src.gnome.org> | 2003-09-12 06:04:44 +0800 |
---|---|---|
committer | Hans Petter <hansp@src.gnome.org> | 2003-09-12 06:04:44 +0800 |
commit | 697761cc337aa77a47140c8df50ed84bc25e23f6 (patch) | |
tree | b785830f72e9938cceaa016a419c7b6d9892bada /libical/src/Net-ICal-Libical/test/swig.pl | |
parent | 733d77e657516f9a59b5c1a7b62acb87b03ec86f (diff) | |
download | gsoc2013-evolution-697761cc337aa77a47140c8df50ed84bc25e23f6.tar.gz gsoc2013-evolution-697761cc337aa77a47140c8df50ed84bc25e23f6.tar.zst gsoc2013-evolution-697761cc337aa77a47140c8df50ed84bc25e23f6.zip |
Import new libical from mainline HEAD and make appropriate changes to
Evolution.
svn path=/trunk/; revision=22538
Diffstat (limited to 'libical/src/Net-ICal-Libical/test/swig.pl')
-rwxr-xr-x | libical/src/Net-ICal-Libical/test/swig.pl | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/libical/src/Net-ICal-Libical/test/swig.pl b/libical/src/Net-ICal-Libical/test/swig.pl new file mode 100755 index 0000000000..939f5ce936 --- /dev/null +++ b/libical/src/Net-ICal-Libical/test/swig.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl + +use lib "../blib/lib"; +use lib "../blib/arch"; +use lib "../"; + +use Net::ICal::Libical; + + +my $comp_str=<<EOM; +BEGIN:VCALENDAR +METHOD:PUBLISH +VERSION:2.0 +PRODID:-//ACME/DesktopCalendar//EN +BEGIN:VEVENT +ORGANIZER:mailto:a\@example.com +DTSTAMP:19970612T190000Z +DTSTART:19970701T210000Z +DTEND:19970701T230000Z +SEQUENCE:1 +UID:0981234-1234234-23\@example.com +SUMMARY:ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES +END:VEVENT +END:VCALENDAR +EOM + +$c = Net::ICal::Libical::icalparser_parse_string($comp_str); + +print Net::ICal::Libical::icalcomponent_as_ical_string($c)."\n"; |