From 7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06 Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Fri, 17 Apr 2015 23:33:35 +0200 Subject: [PATCH 1/1] make-ical: fix setting offset Thanks Michael Stapelberg --- make-ical/make-ical.pl | 34 ++++++++++++++++++---------------- 1 file changed, 18 insertions(+), 16 deletions(-) diff --git a/make-ical/make-ical.pl b/make-ical/make-ical.pl index 2510d09..8be3637 100755 --- a/make-ical/make-ical.pl +++ b/make-ical/make-ical.pl @@ -15,13 +15,13 @@ # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # Author: Steven Schubiger -# Last modified: Sun Jul 21 22:23:31 CEST 2013 +# Last modified: Fri Apr 17 23:12:38 CEST 2015 use strict; use warnings; use lib qw(lib); -my $VERSION = '0.02'; +my $VERSION = '0.03'; my $Config = { base_url => 'http://www.lugs.ch/lugs/termine', @@ -114,21 +114,23 @@ sub process_events $ical_event->add_properties( dtstamp => Date::ICal->new->ical, dtstart => Date::ICal->new( - year => $year, - month => $month, - day => $day, - hour => $time{start_hour}, - min => $time{start_min}, - sec => 00, - )->ical(offset => $offset), + year => $year, + month => $month, + day => $day, + hour => $time{start_hour}, + min => $time{start_min}, + sec => 00, + offset => $offset, + )->ical, dtend => Date::ICal->new( - year => $year, - month => $month, - day => $day, - hour => $time{end_hour}, - min => $time{end_min}, - sec => 00, - )->ical(offset => $offset), + year => $year, + month => $month, + day => $day, + hour => $time{end_hour}, + min => $time{end_min}, + sec => 00, + offset => $offset, + )->ical, location => $location, summary => $summary, defined $more ? ( -- 2.39.2