summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org>2015-04-17 23:33:35 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org>2015-04-17 23:33:35 +0200
commit7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06 (patch)
tree14e965e4079dc0abb5f749b14a8de37ca64a9964
parent817a1f629818f11dce3448304da3eafaebf540c6 (diff)
downloadlugs-7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06.tar.gz
lugs-7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06.tar.bz2
make-ical: fix setting offset
Thanks Michael Stapelberg
-rwxr-xr-xmake-ical/make-ical.pl34
1 files 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 <stsc@refcnt.org>
-# 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 ? (