iCal::Parser
foreach my $year ( keys %{ $data->{events} } ) {
foreach my $month ( keys %{ $data->{events}{$year} } ) {
foreach my $day ( keys %{ $data->{events}{$year}{$month} } ) {
my $events = $data->{events}{$year}{$month}{$day};
foreach my $event ( values %$events ) {
my $cal = $rs->find_or_create({
uid => join('',$year,$month,$day,$event->{UID}),
calendar => $self->idref2cal->{ $event->{idref} }->id,
},
{ key => 'uid_unique' }
);
$cal->update({
start => $event->{DTSTART},
stop => $event->{DTEND},
description => _val( $event->{DESCRIPTION} ),
location => _val( $event->{LOCATION} ),
summary => _val( $event->{SUMMARY} ),
url => _val( $event->{URL} ),
});
}
}
}
}