summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org>2021-06-09 22:24:47 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org>2021-06-09 22:24:47 +0200
commite130630e9246f18139352616ff9cca701f309cf5 (patch)
tree82582a0f7cbca7b5154b334695137f027702cdc0
parenta3ac99f01d27682dc4dceb6b0a0a7c7a8e352295 (diff)
downloadlugs-master.tar.gz
lugs-master.tar.bz2
make-ical: adapt to encoding fixHEADmaster
-rwxr-xr-xmake-ical/make-ical.pl9
1 files changed, 2 insertions, 7 deletions
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) = @_;