First.. been reading for years but this is my first question !!

I'm trying to use HTTP::Dav to add/Delete events from Davical. I can delete events with out issue, but when I add events they get added, but never make it to the main calendar I add them to.

I'm not sure if it's a HTTP::Dav problem or a Davical problem yet, but I was wondering if anyone had any good working examples of using HTTPP::Dav to add/edit/delete events to a calendar.
Thanks in advance,
Travis

Code Snippet:

use strict;
use HTTP::DAV;
use Data::Dumper;

my $dav = HTTP::DAV->new(-headers=>{'Content-Type' => 'text/calendar'}
+);
$dav->DebugLevel(3);
$dav->credentials("username", "password", 'http://10.10.10.250/davical
+/caldav.php/travis/test2/') or die("Can't authenticate: " . $dav->mes
+sage . "\n");
$dav->open('http://10.10.10.250/davical/caldav.php/travis/test2/') or 
+die("Couldn't open URL: " .$dav->message . "\n");
my $resource = $dav->new_resource('http://10.10.10.250/davical/caldav.
+php/travis/test2/120958af-b1ac-42be-a12f-feb7243eb6aa.ics') or die("C
+an't create new resource: " . $dav->message . "\n"); 
print $dav->message . "\n";

my $caldata = "BEGIN:VCALENDAR\nPRODID:-//Mozilla.org/NONSGML Mozilla 
+Calendar V1.1//EN\nVERSION:2.0\nBEGIN:VTIMEZONE\nTZID:America/Chicago
+\nX-LIC-LOCATION:America/Chicago\nBEGIN:DAYLIGHT\nTZOFFSETFROM:-0600\
+nTZOFFSETTO:-0500\nTZNAME:CDT\nDTSTART:19700308T020000\nRRULE:FREQ=YE
+ARLY;BYDAY=2SU;BYMONTH=3\nEND:DAYLIGHT\nBEGIN:STANDARD\nTZOFFSETFROM:
+-0500\nTZOFFSETTO:-0600\nTZNAME:CST\nDTSTART:19701101T020000\nRRULE:F
+REQ=YEARLY;BYDAY=1SU;BYMONTH=11\nEND:STANDARD\nEND:VTIMEZONE\nBEGIN:V
+EVENT\nCREATED:20101213T045325Z\nLAST-MODIFIED:20101213T045327Z\nDTST
+AMP:20110420T045327Z\nUID:120958af-b1ac-42be-a12f-feb7243eb6aa\nSUMMA
+RY:Testing52\nDTSTART;TZID=America/Chicago:20110120T103000\nDTEND;TZI
+D=America/Chicago:20110120T113000\nX-MOZ-GENERATION:1\nEND:VEVENT\nEN
+D:VCALENDAR";
my $response = $dav->put(-local=>\$caldata, -url=>"http://10.10.10.250
+/davical/caldav.php/travis/test2/120958af-b1ac-42be-a12f-feb7243eb6aa
+.ics") or die("Can't put: " . $dav->message . "\n");
print $dav->message . "\n";
[download]