From: Steven Schubiger <stsc@refcnt.org>
Date: Wed, 9 Jun 2021 20:24:47 +0000 (+0200)
Subject: make-ical: adapt to encoding fix
X-Git-Url: http://git.refcnt.org/?p=lugs.git;a=commitdiff_plain;h=HEAD

make-ical: adapt to encoding fix
---

diff --git a/make-ical/make-ical.pl b/make-ical/make-ical.pl
index 8d6855e..e3a338f 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: Wed Dec 27 21:42:20 CET 2017
+# Last modified: Wed 09 Jun 2021 10:05:08 PM CEST
 
 use strict;
 use warnings;
 use lib qw(lib);
 
-my $VERSION = '0.05';
+my $VERSION = '0.06';
 
 my $Config = {
     base_url => 'https://www.lugs.ch/lugs/termine',
@@ -46,9 +46,7 @@ use Data::ICal ();
 use Data::ICal::Entry::Event ();
 use Date::ICal ();
 use DateTime ();
-use Encode qw(encode);
 use File::Spec ();
-use HTML::Entities qw(decode_entities);
 use LUGS::Events::Parser ();
 
 sub new
@@ -107,9 +105,6 @@ sub process_events
         $location =~ s/\(.+?\)//g;
         $more =~ s/<.+?>//g if defined $more;
 
-        sub { decode_entities($_) foreach @_      }->($location, $summary, defined $more ? $more : ());
-        sub { $_ = encode('UTF-8', $_) foreach @_ }->($location, $summary, defined $more ? $more : ());
-
         my $get_offset = sub
         {
             my ($hour, $minute) = @_;