Skip Menu |
 

This queue is for tickets about the Tie-iCal CPAN distribution.

Maintainer(s)' notes

The latest code (work in progress) is in a Git repository here: https://github.com/dolmen/p5-Tie-iCal

   git clone --origin upstream git://github.com/dolmen/p5-Tie-iCal.git Tie-iCal

The best way to submit patches is to create a new branch from the Git repo, fork it on Github and push your branch, and submit a pull request. But old-style patches attached to a ticket here are fine too.

Report information
The Basics
Id: 97459
Status: new
Priority: 0/
Queue: Tie-iCal

People
Owner: Nobody in particular
Requestors: dvadell [...] clustering.com.ar
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: BEGIN:VCALENDAR/END:CALENDAR:VCA for every event
Date: Thu, 24 Jul 2014 11:31:58 -0300
To: bug-Tie-iCal [...] rt.cpan.org
From: "Diego M. Vadell" <dvadell [...] clustering.com.ar>
Download (untitled) / with headers
text/plain 2.9k
Hello, Thanks a lot for Tie::iCal!!! I've been using the last version and I get calendars with this lines added at the beginning, for every event: END:VCALENDAR BEGIN:VCALENDAR VERSION:2.0 PRODID:-//Numen Inest/NONSGML Tie::iCal 0.15//EN And at the end: END:VCALENDAR I've been reading the source, and STORE calls toiCal: $self->toiCal($uid, $c) In that function, the first lines are: -------------- my $self = shift; my $uid = shift; my $c = shift; my $excludeComponent = shift; my @lines; my ($component, $e) = $excludeComponent ? (undef, $c) : @$c; push @lines, "BEGIN:VCALENDAR", "VERSION:2.0", "PRODID:-//Numen Inest/NONSGML Tie::iCal $VERSION//EN", "BEGIN:$component", "UID:$uid" if ! $excludeComponent; --------------- So it looks like for every STORE, the first lines are the ones that shouldn't be there. This is an example: BEGIN:VCALENDAR VERSION:2.0 PRODID:-//Numen Inest/NONSGML Tie::iCal 0.15//EN BEGIN:VEVENT UID:1406210085 SUMMARY:Meter la carne en el freezer DTEND:20140724T105700Z DTSTART:20140724T105400Z END:VEVENT END:VCALENDAR BEGIN:VCALENDAR VERSION:2.0 PRODID:-//Numen Inest/NONSGML Tie::iCal 0.15//EN BEGIN:VEVENT UID:1406210177 DTEND:20140724T105900Z SUMMARY:Meter la carne en el freezer DTSTART:20140724T105600Z END:VEVENT END:VCALENDAR BEGIN:VCALENDAR VERSION:2.0 PRODID:-//Numen Inest/NONSGML Tie::iCal 0.15//EN BEGIN:VEVENT UID:1406210183 DTEND:20140724T105900Z SUMMARY:Meter la carne en el freezer DTSTART:20140724T105600Z END:VEVENT END:VCALENDAR And this is the code I've been using: -------------------------------------------------- #!/usr/bin/perl use strict; use warnings; use Tie::iCal; use Time::Piece; use Time::Seconds; use Data::Dumper::Simple; guardar_evento(200, "Meter la carne en el freezer"); # guardar_eventos guarda en iCal. sub guardar_evento { my ($segundos, $contenido) = @_; my %my_events; my $calfile = $ENV{HOME} . "/bubu.ics"; tie %my_events, 'Tie::iCal', $calfile or die "Failed to tie file!\n"; print Dumper( %my_events ); # Summary no puede tener espacios, así que lo cambio por \n $contenido =~ s/\n/\\n/gs; my $uid = time(); $my_events{$uid} = [ 'VEVENT', { 'SUMMARY' => $contenido, 'DTSTART' => secs_to_ical_date(0), 'DTEND' => secs_to_ical_date($segundos), 'DTEND' => secs_to_ical_date($segundos), } ]; untie %my_events; } # Esta func agrega $secs segundos a la fecha/hora actual # y lo devuevle en el formato para iCal sub secs_to_ical_date { my ($secs) = @_; my $now = mk_time_piece_now(); $now += $secs; my $date = $now->strftime( "%Y%m%d" ) . "T" . $now->strftime( "%H%M00" ) . "Z"; return $date; } sub mk_time_piece_now { # Esto pasa porque el objeto Time::Piece que resulta de localtime tiene # mal el timezone. Así que lo hago string, y lo vuelvo a hacer # objeto. my $now = localtime; my $now_string = $now->strftime("%d-%m-%Y %H:%M"); $now = Time::Piece->strptime($now_string, "%d-%m-%Y %H:%M"); return $now; } --------------- Again, thanks. This it the only module I could make to work, and I tried quite a few. Cheers, -- Diego
Subject: Re: [rt.cpan.org #97459] AutoReply: BEGIN:VCALENDAR/END:CALENDAR:VCA for every event
Date: Thu, 24 Jul 2014 11:47:08 -0300
To: bug-Tie-iCal [...] rt.cpan.org
From: "Diego M. Vadell" <dvadell [...] clustering.com.ar>
Download (untitled) / with headers
text/plain 309b
One more thing: I'm saying that this is a bug because I tested it with google calendar. If I import it as the module makes it, I only get the first event. If I manually delete the lines that are wrong, I get all the events. Again, thanks for the module. It's a pleasure to have iCal abstracted. -- Diego


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.