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;hp=46037c5e006f506768674a0b5f2bc2fd75e65153

make-ical: adapt to encoding fix
---

diff --git a/lreminder/reminder.pl b/lreminder/reminder.pl
index 3326424..14ea60e 100755
--- a/lreminder/reminder.pl
+++ b/lreminder/reminder.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-
+#
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
@@ -15,7 +15,7 @@
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 #
 # Author: Steven Schubiger <stsc@refcnt.org>
-# Last modified: Thu Feb  4 23:21:02 CET 2016
+# Last modified: Wed 09 Jun 2021 01:19:17 PM CEST
 
 use strict;
 use warnings;
@@ -25,7 +25,7 @@ use constant false => 0;
 
 use DateTime ();
 use DBI ();
-use Encode qw(encode);
+use Encode qw(decode encode);
 use File::Basename ();
 use File::Spec ();
 use FindBin qw($Bin);
@@ -37,7 +37,7 @@ use Text::Wrap::Smart::XS qw(fuzzy_wrap);
 use URI ();
 use WWW::Mechanize ();
 
-my $VERSION = '0.52';
+my $VERSION = '0.53';
 
 #-----------------------
 # Start of configuration
@@ -240,11 +240,13 @@ ${\info_string()}
 MSG
 
     if ($run) {
+	$title = decode('UTF-8', $title);
         sendmail(
-            From    => $Config->{mail_from},
-            To      => $mail_subscriber,
-            Subject => encode('MIME-Q', "LUGS Reminder - $title"),
-            Message => $message,
+            From          => $Config->{mail_from},
+            To            => $mail_subscriber,
+            Subject       => encode('MIME-Q', "LUGS Reminder - $title"),
+            Message       => $message,
+           'Content-Type' => 'text/plain; charset="UTF-8"',
         ) or die "Cannot send mail: $Mail::Sendmail::error";
     }
     elsif ($test) {
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) = @_;
diff --git a/make-rss/make-rss.pl b/make-rss/make-rss.pl
index 9505dad..3f34721 100755
--- a/make-rss/make-rss.pl
+++ b/make-rss/make-rss.pl
@@ -15,16 +15,16 @@
 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 #
 # Author: Steven Schubiger <stsc@refcnt.org>
-# Last modified: Wed Jul 24 14:45:23 CEST 2013
+# Last modified: Thu Dec 28 18:18:44 CET 2017
 
 use strict;
 use warnings;
 use lib qw(lib);
 
-my $VERSION = '0.01';
+my $VERSION = '0.02';
 
 my $Config = {
-    base_url  => 'http://www.lugs.ch/lugs/termine/',
+    base_url  => 'https://www.lugs.ch/lugs/termine/',
     language  => 'de',
     input     => './termine.txt',
     output    => './termine.rss',