diff options
author | 2021-06-09 22:24:47 +0200 | |
---|---|---|
committer | 2021-06-09 22:24:47 +0200 | |
commit | e130630e9246f18139352616ff9cca701f309cf5 (patch) | |
tree | 82582a0f7cbca7b5154b334695137f027702cdc0 | |
parent | a3ac99f01d27682dc4dceb6b0a0a7c7a8e352295 (diff) | |
download | lugs-e130630e9246f18139352616ff9cca701f309cf5.tar.gz lugs-e130630e9246f18139352616ff9cca701f309cf5.tar.bz2 |
-rwxr-xr-x | make-ical/make-ical.pl | 9 |
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) = @_; |