[bcn-pm] Date, iCal, localtime

[Alessandro Guardi]

Hola
no se como funciona ICal pero con el Timezone yo lo ago asi

sub apply_timezone {
    my $self = shift;
    my $dt = shift;
    my $timezone = shift; ##i.e. 'Australia/Canberra'
    my $tz = DateTime::TimeZone->new('name'=>$timezone);
    $dt->add('seconds' => $tz->offset_for_datetime($dt));
    $dt->set_time_zone($ism->detail->timezone);
    return $dt;
}

y despeus en la web $dt->strftime("%R %Z - %d %b, %Y")

Ciao

Carles Pina i Estany wrote:
> Hola!
>
> Tengo un problemilla con DateTime, Date, iCal y horas locales.
>
> Parseo un fichero que contiene las horas con:
> 20060821T080000Z (en UTC)
>
> y hago, simplificando la prueba, algo como:
> --------------
> #!/usr/bin/perl -w
>
> use Date::ICal;
> use DateTime;
> use DateTime::TimeZone;
>
>
> $date = Date::ICal->new(ical=>"20060821T080000Z");
>
> $string = $date->ical(localtime=>1);
> print "$string\n";
>
> $string = $date->ical(offset=>"+0200");
> print "$string\n";
> --------------
>
> Quiero pasarlo a localtime (si hago date:)
> carlesapinux:~$ date
> dg ago 20 10:45:44 CEST 2006
> carlesapinux:~$ 
>
> parece que está bien.
>
> Pensé que con el primero pasandolo a localtime me iría bien, peor nada:
> carlesapinux:~$ ./p.pl 
> 20060821T080000
> 20060821T100000
> carlesapinux:~$ 
>
> El segundo sí, pero entonces tendria que consultar para cada fecha el
> offset respecto GMT... que lo tengo medio hecho pero no creo que sea el
> camino, no?
>
> Alguien me ilumina? :-)
>
> Gracias!
>
>