Advanced
Mailing List Archive

Mailing List Archive

  1. Home >
  2. DAViCal>
  3. Dev
Perl event creator
habett at habett
May 24, 2010, 10:07 AM
Post #1 of 3 (1649 views)
Permalink
Hello,

I'm trying to write a perl script that writes new events to my Davical.

My script goes :

#!/usr/local/bin/perl
use HTTP::DAV;
use Data::Dumper;
use Date::ICal;

$dav = HTTP::DAV->new;
$user = 'usertest';
$pwd = 'XXXXX';
$host = 'server';
$home = "http://$user:$pwd\@$host/caldav.php/$user/home/
<http://$user:$pwd/@$host/caldav.php/$user/home/>";
$idee = '01234567-4865-5131-5465-568971282CC';

$dav->credentials( $user, $pwd, "$home" );

$ds = Date::ICal->new( epoch => time )->ical;
$de = Date::ICal->new( epoch => time+500 )->ical;
$dss = $ds;
$dss =~ s/Z$//;
$de =~ s/Z$//;

$str = <<stop;
BEGIN:VCALENDAR
PRODID:Data-iCal
VERSION:2.0
BEGIN:VEVENT
DESCRIPTION:YAPH
CREATED:$ds
DTEND:$de
DTSTART:$dss
DTSTAMP:$ds
SUMMARY:Perl dav $user
TRANSP:OPAQUE
UID:$idee
END:VEVENT
END:VCALENDAR

stop
$comie = HTTP::DAV::Comms->new();
$lokk = $dav->get_lockedresourcelist;
$resource = HTTP::DAV::Resource->new( -uri => "$home/$idee.ics", -Client
=> $dav, -Comms=>$comie, -LockedResourceList => $lokk);
$response = $resource->put($str);
print $response->as_string;
print "==IS==\n".$dav->propfind("$home/$idee.ics")->as_string;


And the output goes

HTTP/1.1 201 Created
Connection: close
Date: Thu, 13 May 2010 08:08:21 GMT
Server: 0.9
Content-Length: 0
Content-Type: text/plain; charset="utf-8"
Client-Date: Thu, 13 May 2010 08:08:21 GMT
Client-Peer: 127.0.0.1:8008
Client-Response-Num: 1
DAV: 1, 2, access-control, calendar-access, calendar-schedule,
extended-mkcol, calendar-proxy, bind, calendar-auto-schedule
X-DAViCal-Version: DAViCal/0.9.9; DB/1.2.8
X-Powered-By: PHP/5.3.2-1ubuntu4.1

HTTP::DAV::Resource=HASH(0x8938430)==IS==
Resource
'Url':
http://XXXXX:YYYY at HOST/caldav.php/XXXX/home/01234567-4865-5131-5465-568971282CC.ics
Properties
'creationdate': Wed, 05 May 2010 05:35:49 GMT
'creationepoch': 1273037749
'current-user-principal': \n <href>/caldav.php/habett/</href>\n
'display_date': May 13 10:08
'displayname': Habett
'getcontentlanguage':
'getcontentlength': 275
'getcontenttype': text/calendar
'getetag':
'getlastmodified': Thu, 13 May 2010 08:08:21 GMT
'lastmodifieddate': Thu, 13 May 2010 08:08:21 GMT
'lastmodifiedepoch': 1273738101
'owner': \n <href>/caldav.php/habett/</href>\n
'rel_uri': 01234567-4865-5131-5465-568971282CC.ics
'resourcetype':
'short_props':
'supportedlocks': ARRAY(0x8ae1938)
'_locks':

My problem is that the event gets written to the DAV but they don't show
up in the calendar as seen from the clients (iPhone, Lightning, iCal).

From what I understand I must be missing something and that's why I
don't have an ETag and the events don't show up.

Maybe someone here can help me ?

All the best,

--
St?phane HAbeTT Roux
Free music for Unfree people : http://habett.net/
Perl event creator [ In reply to ]
grangeosands at googlemail
May 25, 2010, 1:17 AM
Post #2 of 3 (1635 views)
Permalink
Hi Stephane - I have done a lot of work using Perl and the creation of
calendar files. Unfortunately my development machine is broken and being
repaired and I am having to use an Internet cafe so I can't spend too much
time on your problem.

I do however have an online tutorial on the Perl creation of ics files which
can be imported into DAViCal. If you have a look at it, you may be able to
see where you are going wrong.

My tutorial is at
http://www.badzilla.co.uk/Perl-Generation-of-ics-iCalendar-File-for-FIFA-World-Cup-2010-Schedule
Good luck!
On 24 May 2010 18:07, stephane habett roux <habett at habett.org> wrote:

> Hello,
>
> I'm trying to write a perl script that writes new events to my Davical.
>
> My script goes :
>
> #!/usr/local/bin/perl
> use HTTP::DAV;
> use Data::Dumper;
> use Date::ICal;
>
> $dav = HTTP::DAV->new;
> $user = 'usertest';
> $pwd = 'XXXXX';
> $host = 'server';
> $home = "http://$user:$pwd\@$host/caldav.php/$user/home/ <http://
> $user:$pwd/@$host/caldav.php/$user/home/>";
> $idee = '01234567-4865-5131-5465-568971282CC';
>
> $dav->credentials( $user, $pwd, "$home" );
>
> $ds = Date::ICal->new( epoch => time )->ical;
> $de = Date::ICal->new( epoch => time+500 )->ical;
> $dss = $ds;
> $dss =~ s/Z$//;
> $de =~ s/Z$//;
>
> $str = <<stop;
> BEGIN:VCALENDAR
> PRODID:Data-iCal
> VERSION:2.0
> BEGIN:VEVENT
> DESCRIPTION:YAPH
> CREATED:$ds
> DTEND:$de
> DTSTART:$dss
> DTSTAMP:$ds
> SUMMARY:Perl dav $user
> TRANSP:OPAQUE
> UID:$idee
> END:VEVENT
> END:VCALENDAR
>
> stop
> $comie = HTTP::DAV::Comms->new();
> $lokk = $dav->get_lockedresourcelist;
> $resource = HTTP::DAV::Resource->new( -uri => "$home/$idee.ics", -Client =>
> $dav, -Comms=>$comie, -LockedResourceList => $lokk);
> $response = $resource->put($str);
> print $response->as_string;
> print "==IS==\n".$dav->propfind("$home/$idee.ics")->as_string;
>
>
> And the output goes
>
> HTTP/1.1 201 Created
> Connection: close
> Date: Thu, 13 May 2010 08:08:21 GMT
> Server: 0.9
> Content-Length: 0
> Content-Type: text/plain; charset="utf-8"
> Client-Date: Thu, 13 May 2010 08:08:21 GMT
> Client-Peer: 127.0.0.1:8008
> Client-Response-Num: 1
> DAV: 1, 2, access-control, calendar-access, calendar-schedule,
> extended-mkcol, calendar-proxy, bind, calendar-auto-schedule
> X-DAViCal-Version: DAViCal/0.9.9; DB/1.2.8
> X-Powered-By: PHP/5.3.2-1ubuntu4.1
>
> HTTP::DAV::Resource=HASH(0x8938430)==IS==
> Resource
> 'Url': http://XXXXX:YYYY at HOST
> /caldav.php/XXXX/home/01234567-4865-5131-5465-568971282CC.ics
> Properties
> 'creationdate': Wed, 05 May 2010 05:35:49 GMT
> 'creationepoch': 1273037749
> 'current-user-principal': \n <href>/caldav.php/habett/</href>\n
> 'display_date': May 13 10:08
> 'displayname': Habett
> 'getcontentlanguage':
> 'getcontentlength': 275
> 'getcontenttype': text/calendar
> 'getetag':
> 'getlastmodified': Thu, 13 May 2010 08:08:21 GMT
> 'lastmodifieddate': Thu, 13 May 2010 08:08:21 GMT
> 'lastmodifiedepoch': 1273738101
> 'owner': \n <href>/caldav.php/habett/</href>\n
> 'rel_uri': 01234567-4865-5131-5465-568971282CC.ics
> 'resourcetype':
> 'short_props':
> 'supportedlocks': ARRAY(0x8ae1938)
> '_locks':
>
> My problem is that the event gets written to the DAV but they don't show up
> in the calendar as seen from the clients (iPhone, Lightning, iCal).
>
> From what I understand I must be missing something and that's why I don't
> have an ETag and the events don't show up.
>
> Maybe someone here can help me ?
>
> All the best,
>
> --
> St?phane HAbeTT Roux
> Free music for Unfree people : http://habett.net/
>
>
>
>
> _______________________________________________
> Davical-dev mailing list
> Davical-dev at lists.morphoss.com
> http://lists.morphoss.com/listinfo/davical-dev
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.morphoss.com/pipermail/davical-dev/attachments/20100525/24516870/attachment.htm>
Perl event creator [ In reply to ]
andrew at morphoss
May 25, 2010, 2:34 AM
Post #3 of 3 (1629 views)
Permalink
On Mon, 2010-05-24 at 19:07 +0200, stephane habett roux wrote:
> Hello,
>
> I'm trying to write a perl script that writes new events to my Davical.

Hi Stephane,

Reading through this, it isn't clear to me whether you set the
content-type to 'text/calendar' on the PUT, which could be your problem
if HTTP::DAV is not doing it for you...

The fact that you don't get an etag back would then be a bug in
DAViCal's handling of non-calendar data - not particularly surprising
since it's only recently that DAViCal has really even tried to handle
non-calendar data.

Cheers,
Andrew.

>
> My script goes :
>
> #!/usr/local/bin/perl
> use HTTP::DAV;
> use Data::Dumper;
> use Date::ICal;
>
> $dav = HTTP::DAV->new;
> $user = 'usertest';
> $pwd = 'XXXXX';
> $host = 'server';
> $home = "http://$user:$pwd\@$host/caldav.php/$user/home/
> <http://$user:$pwd/@$host/caldav.php/$user/home/>";
> $idee = '01234567-4865-5131-5465-568971282CC';
>
> $dav->credentials( $user, $pwd, "$home" );
>
> $ds = Date::ICal->new( epoch => time )->ical;
> $de = Date::ICal->new( epoch => time+500 )->ical;
> $dss = $ds;
> $dss =~ s/Z$//;
> $de =~ s/Z$//;
>
> $str = <<stop;
> BEGIN:VCALENDAR
> PRODID:Data-iCal
> VERSION:2.0
> BEGIN:VEVENT
> DESCRIPTION:YAPH
> CREATED:$ds
> DTEND:$de
> DTSTART:$dss
> DTSTAMP:$ds
> SUMMARY:Perl dav $user
> TRANSP:OPAQUE
> UID:$idee
> END:VEVENT
> END:VCALENDAR
>
> stop
> $comie = HTTP::DAV::Comms->new();
> $lokk = $dav->get_lockedresourcelist;
> $resource = HTTP::DAV::Resource->new( -uri => "$home/$idee.ics", -Client
> => $dav, -Comms=>$comie, -LockedResourceList => $lokk);
> $response = $resource->put($str);
> print $response->as_string;
> print "==IS==\n".$dav->propfind("$home/$idee.ics")->as_string;
>
>
> And the output goes
>
> HTTP/1.1 201 Created
> Connection: close
> Date: Thu, 13 May 2010 08:08:21 GMT
> Server: 0.9
> Content-Length: 0
> Content-Type: text/plain; charset="utf-8"
> Client-Date: Thu, 13 May 2010 08:08:21 GMT
> Client-Peer: 127.0.0.1:8008
> Client-Response-Num: 1
> DAV: 1, 2, access-control, calendar-access, calendar-schedule,
> extended-mkcol, calendar-proxy, bind, calendar-auto-schedule
> X-DAViCal-Version: DAViCal/0.9.9; DB/1.2.8
> X-Powered-By: PHP/5.3.2-1ubuntu4.1
>
> HTTP::DAV::Resource=HASH(0x8938430)==IS==
> Resource
> 'Url':
> http://XXXXX:YYYY at HOST/caldav.php/XXXX/home/01234567-4865-5131-5465-568971282CC.ics
> Properties
> 'creationdate': Wed, 05 May 2010 05:35:49 GMT
> 'creationepoch': 1273037749
> 'current-user-principal': \n <href>/caldav.php/habett/</href>\n
> 'display_date': May 13 10:08
> 'displayname': Habett
> 'getcontentlanguage':
> 'getcontentlength': 275
> 'getcontenttype': text/calendar
> 'getetag':
> 'getlastmodified': Thu, 13 May 2010 08:08:21 GMT
> 'lastmodifieddate': Thu, 13 May 2010 08:08:21 GMT
> 'lastmodifiedepoch': 1273738101
> 'owner': \n <href>/caldav.php/habett/</href>\n
> 'rel_uri': 01234567-4865-5131-5465-568971282CC.ics
> 'resourcetype':
> 'short_props':
> 'supportedlocks': ARRAY(0x8ae1938)
> '_locks':
>
> My problem is that the event gets written to the DAV but they don't show
> up in the calendar as seen from the clients (iPhone, Lightning, iCal).
>
> From what I understand I must be missing something and that's why I
> don't have an ETag and the events don't show up.
>
> Maybe someone here can help me ?
>
> All the best,
>

--
------------------------------------------------------------------------
andrew (AT) morphoss (DOT) com +64(272)DEBIAN
You will be awarded some great honor.
------------------------------------------------------------------------

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: This is a digitally signed message part
URL: <http://lists.morphoss.com/pipermail/davical-dev/attachments/20100525/ad3c7bc4/attachment.pgp>

©2024 GT.net. A Gossamer Threads company.
5th Floor, 455 Granville St., Vancouver, BC V6C 1T1, Canada | Legal