diff options
| author |  Steven Schubiger <stsc@refcnt.org>
| 2015-04-17 23:33:35 +0200 |
|---|---|---|
| committer | Steven Schubiger <stsc@refcnt.org>
| 2015-04-17 23:33:35 +0200 |
| commit | 7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06 (patch) | |
| tree | 14e965e4079dc0abb5f749b14a8de37ca64a9964 | |
| parent | 817a1f629818f11dce3448304da3eafaebf540c6 (diff) | |
| download | lugs-7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06.tar.gz lugs-7bc1214a7dec5a2dc7dabebc2526e45b0cef0f06.tar.bz2 | |
make-ical: fix setting offset
Thanks Michael Stapelberg
| -rwxr-xr-x | make-ical/make-ical.pl | 34 |
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 ? ( |