lreminder: improve filtering options

diff --git a/lreminder/reminder.pl b/lreminder/reminder.pl
index 3326424fb9fe427679621e83264dc2b3982b3580..d198613c4959296aabae9532c826ad8e1b5a2493 100755 (executable)
--- a/lreminder/reminder.pl
+++ b/lreminder/reminder.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
 #!/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
 # 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>
 # 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: Fr 16 Mai 2025 22:22:21 CEST 

 
 use strict;
 use warnings;
 
 use strict;
 use warnings;


@@ -25,7 +25,7 @@ use constant false => 0;
 
 use DateTime ();
 use DBI ();
 
 use DateTime ();
 use DBI ();

-use Encode qw(encode);
+use Encode qw(decode encode);

 use File::Basename ();
 use File::Spec ();
 use FindBin qw($Bin);
 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 ();
 
 use URI ();
 use WWW::Mechanize ();
 

-my $VERSION = '0.52';
+my $VERSION = '0.54';

 
 #-----------------------
 # Start of configuration
 
 #-----------------------
 # Start of configuration


@@ -148,10 +148,10 @@ sub init
                 fields  => [ qw(responsible) ],
             }, {
                 rewrite => '$TEXT - $HREF',
                 fields  => [ qw(responsible) ],
             }, {
                 rewrite => '$TEXT - $HREF',

-                fields  => [ qw(location more) ],
+                fields  => [ qw(title location more) ],

             } ],
         },
             } ],
         },

-        purge_tags => [ qw(location responsible more) ],
+        purge_tags => [ qw(title location responsible more) ],

         strip_text => [ 'mailto:' ],
     });
     unlink $file;
         strip_text => [ 'mailto:' ],
     });
     unlink $file;


@@ -240,11 +240,13 @@ ${\info_string()}
 MSG
 
     if ($run) {
 MSG
 
     if ($run) {

+       $title = decode('UTF-8', $title);

         sendmail(
         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) {
         ) 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 8d6855ed49b84106fffa3ebdcb69c18836ee026d..e3a338f6dea9443fedeaae9c662f9f15286dc9a5 100755 (executable)
--- 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>
 # 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);
 
 
 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',
 
 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 Data::ICal::Entry::Event ();
 use Date::ICal ();
 use DateTime ();

-use Encode qw(encode);

 use File::Spec ();
 use File::Spec ();

-use HTML::Entities qw(decode_entities);

 use LUGS::Events::Parser ();
 
 sub new
 use LUGS::Events::Parser ();
 
 sub new


@@ -107,9 +105,6 @@ sub process_events
         $location =~ s/\(.+?\)//g;
         $more =~ s/<.+?>//g if defined $more;
 
         $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) = @_;
         my $get_offset = sub
         {
             my ($hour, $minute) = @_;

diff --git a/make-rss/make-rss.pl b/make-rss/make-rss.pl
index 9505dad8fcc6fe9959814379fb8eee403d76a39e..3f34721d9dffdc489ab56e07eaf1e690eab24cf7 100755 (executable)
--- 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>
 # 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);
 
 
 use strict;
 use warnings;
 use lib qw(lib);
 

-my $VERSION = '0.01';
+my $VERSION = '0.02';

 
 my $Config = {
 
 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',
     language  => 'de',
     input     => './termine.txt',
     output    => './termine.rss',