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]

In reply to Davical and HTTP::Dav by travs69

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.