make-ical: adapt to encoding fix

[lugs.git] / make-html / make-html.pl

diff --git a/make-html/make-html.pl b/make-html/make-html.pl
index be6d14525cae6f6ec7d7dd20a19c797a6ca2cb77..3dcd603caa1779f6537d72f4443eb70fa39c3b1d 100755 (executable)
--- a/make-html/make-html.pl
+++ b/make-html/make-html.pl
@@ -2,14 +2,14 @@
 #
 # Konvertiert die LUGS-Terminliste (im ASCII Format) in ein HTML-File
 #
-# (c) 1996-1998               Roland Alder
-# (c) 2007-2008, 2011-2014    Steven Schubiger
+# (c) 1996-1998                     Roland Alder
+# (c) 2007-2008, 2011-2015, 2017    Steven Schubiger
 
 use strict;
 use warnings;
 use lib qw(lib);
 
-my $VERSION = '0.04';
+my $VERSION = '0.07';
 
 #-----------------------
 # Start of configuration
@@ -38,6 +38,7 @@ my $Config = {
        gnupingu      => 'ffd133',      # von http://www.gnupingu.ch/
        debian        => 'ffa500',      # orange
        hackerfunk    => '99b2cd',      # blau/grau
+       wilhelmtux    => 'ffffbf',      # from https://wilhelmtux.ch/
     },
     ical_dir    => 'ical',
 };
@@ -223,12 +224,13 @@ sub process_events
         my $ics_file = "$anchor.ics";
         my $ics_link = join '/', ($Config->{ical_dir}, $ics_file);
 
-        $self->print_template('ical',
+        $self->print_template('ical/anker',
         {
-            LINK => $ics_link,
+            LINK  => $ics_link,
+            ANKER => $anchor,
         });
 
-        $self->print_raw_html('</td></tr>');
+        $self->print_raw_html('</tr>');
     }
 
     $self->print_template('tabellenende');
@@ -358,9 +360,9 @@ __DATA__
 -
 <br>[% INFORMATIONEN %]
 
-# ical
+# ical/anker
 -
-<td valign=top><a href="[% LINK %]">iCal</a></td>
+<td valign=top><a href="[% LINK %]">iCal</a><br><a href="#[% ANKER %]">#</a></td>
 
 # tabellenende
 -