Import new libical from mainline HEAD and make appropriate changes to

Evolution.

svn path=/trunk/; revision=22538

3 files changed, 229 insertions, 0 deletions

diff --git a/libical/src/Net-ICal-Libical/test/component.pl b/libical/src/Net-ICal-Libical/test/component.pl
new file mode 100644
index 0000000000..2fdaf41d65
--- /dev/null
+++ b/libical/src/Net-ICal-Libical/test/component.pl
@@ -0,0 +1,106 @@
+#!/usr/bin/perl
+
+use lib "../blib/lib";
+use lib "../blib/arch";
+use lib "../";
+
+use Time::Local;
+
+use Net::ICal::Libical;
+
+use POSIX; 
+
+
+  my $comp_str=<<EOM;
+BEGIN:VCALENDAR
+METHOD
+ :PUBLISH
+PRODID
+ :-//ACME/DesktopCalendar//EN
+VERSION
+ :2.0
+BEGIN:VEVENT
+ORGANIZER
+ :mailto:a\@example.com
+ATTENDEE
+ ;RSVP=TRUE
+ ;ROLE=REQ-PARTICIPANT
+ ;CUTYPE=GROUP
+ :MAILTO:employee-A\@host.com
+DTSTART
+ :19970701T200000Z
+DURATION
+ :P3DT4H50M36S
+DTSTAMP
+ :19970611T190000Z
+SUMMARY
+ :ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES
+UID
+ :0981234-1234234-23\@example.com
+END:VEVENT
+END:VCALENDAR         
+EOM
+  
+my $c;
+
+$c = new Net::ICal::Libical::Component($comp_str);
+
+my @props = $c->properties();
+
+my $p;
+foreach $p (@props) {
+  print $p->name()." ".$p->value()."\n";
+  
+}
+
+$inner = ($c->components())[0];
+
+print "\n";
+
+print " -------- Attendee \n";
+
+$p = ($inner->properties('ATTENDEE'))[0];
+
+print $p->as_ical_string(),"\n";
+
+print $p->get_parameter('ROLE'),"\n";
+
+die if $p->get_parameter('ROLE') ne 'REQ-PARTICIPANT';
+
+$p->set_parameter('ROLE','INDIVIDUAL');
+
+print $p->as_ical_string(),"\n";
+
+print " -------- DTSTART \n";
+
+$p = ($inner->properties('DTSTART'))[0];
+
+print $p->as_ical_string()."\n";
+print $p->as_ical_string()."\n";
+
+print "hour: ". $p->hour()." \n";
+
+$p->hour($p->hour() - 10);
+
+print $p->hour(),"\n";
+
+$p->timezone('America/Los_Angeles');
+
+print $p->as_ical_string()."\n";
+
+
+print "----------- DURATION \n";
+
+$p = ($inner->properties('DURATION'))[0];
+
+print $p->as_ical_string()."\n";
+
+print $p->seconds(),"\n";
+
+$p->seconds(3630);
+
+print $p->as_ical_string()."\n";
+print $p->seconds(),"\n";
+
+
+
diff --git a/libical/src/Net-ICal-Libical/test/libical.pl b/libical/src/Net-ICal-Libical/test/libical.pl
new file mode 100755
index 0000000000..9499dd9850
--- /dev/null
+++ b/libical/src/Net-ICal-Libical/test/libical.pl
@@ -0,0 +1,94 @@
+#!/usr/bin/perl
+
+use lib "../blib/lib";
+use lib "../blib/arch";
+use lib "../";
+
+use Time::Local;
+
+use Net::ICal::Libical;
+
+use POSIX; 
+
+
+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
+
+my $comp_str_error=<<EOM;
+BEGIN:VCALENDAR
+METHOD:REQUEST
+VERSION:2.0
+PRODID:-//ACME/DesktopCalendar//EN
+BEGIN:VEVENT
+ORGANIZER:mailto:a\@example.com
+DTSTAMP:19970612T190000Z
+DTSTART:19970701T210000Z
+DTEND:19970701T230000Z
+SEQENCE:1
+UID:0981234-1234234-23\@example.com
+SUMMARY:ST. PAUL SAINTS -VS- DULUTH-SUPERIOR DUKES
+END:VEVENT
+END:VCALENDAR
+EOM
+
+print "-- Good Component --\n";
+print Net::ICal::Libical::validate_component($comp_str);
+
+print "-- BadComponent --\n";
+print Net::ICal::Libical::validate_component($comp_str_error);
+
+
+print "-- Generate Occurrences --\n";
+$rule = "FREQ=MONTHLY;UNTIL=19971224T000000Z;INTERVAL=1;BYDAY=TU,2FR,3SA";
+$limit = 25;
+$start = timelocal(0,0,9,5,8,1997); # 19970905T090000Z
+
+@occur = Net::ICal::Libical::generate_occurrences($rule,$start,$limit);
+
+print $rule."\n";
+
+foreach $i (@occur){
+
+  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($i);
+
+  printf("%s %s %2d %02d:%02d:%02d %d\n",
+	 (Sun,Mon,Tue,Wed,Thur,Fri,Sat)[$wday],
+	 (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon],
+	 $mday, 
+	 $hour,$min,$sec,
+	 $year);
+
+}
+
+print "-- Interpret iCal data --\n";
+
+
+my $comp_str=<<EOM;
+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
+
+EOM
+
+
+
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";