Remove libical from this tree, it resides in e-d-s now.

svn path=/trunk/; revision=23417

3 files changed, 0 insertions, 229 deletions

diff --git a/libical/src/Net-ICal-Libical/test/component.pl b/libical/src/Net-ICal-Libical/test/component.pl
deleted file mode 100644
index 2fdaf41d65..0000000000
--- a/libical/src/Net-ICal-Libical/test/component.pl
+++ /dev/null
@@ -1,106 +0,0 @@
-#!/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
deleted file mode 100755
index 9499dd9850..0000000000
--- a/libical/src/Net-ICal-Libical/test/libical.pl
+++ /dev/null
@@ -1,94 +0,0 @@
-#!/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
deleted file mode 100755
index 939f5ce936..0000000000
--- a/libical/src/Net-ICal-Libical/test/swig.pl
+++ /dev/null
@@ -1,29 +0,0 @@
-#!/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";