lreminder: undo rewriting <br> to empty string
[lugs.git] / make-html / make-html.pl
index 6b66bc9..be6d145 100755 (executable)
@@ -3,13 +3,13 @@
 # Konvertiert die LUGS-Terminliste (im ASCII Format) in ein HTML-File
 #
 # (c) 1996-1998               Roland Alder
-# (c) 2007-2008, 2011-2013    Steven Schubiger
+# (c) 2007-2008, 2011-2014    Steven Schubiger
 
 use strict;
 use warnings;
 use lib qw(lib);
 
-my $VERSION = '0.03';
+my $VERSION = '0.04';
 
 #-----------------------
 # Start of configuration
@@ -34,9 +34,10 @@ my $Config = {
        winti         => 'd6d6ce',      # ex http://www.stadt-winterthur.ch/
        innerschweiz  => '8abed7',      # ex http://www.luzern.ch/
        kreuzlingen   => 'f9f9f9',      # ehemals aargau (ex http://www.ag.ch/)
-       uzwil         => 'e2b1a5',      # wie heisst diese Farbe? :)
        stgallen      => 'e2b1a5',      # wie heisst diese Farbe? :)
        gnupingu      => 'ffd133',      # von http://www.gnupingu.ch/
+       debian        => 'ffa500',      # orange
+       hackerfunk    => '99b2cd',      # blau/grau
     },
     ical_dir    => 'ical',
 };
@@ -74,7 +75,7 @@ use constant true => 1;
 
 use File::Copy qw(copy);
 use File::Temp qw(tempfile);
-use LUGS::Events::Parser;
+use LUGS::Events::Parser ();
 
 # Return a new instance of our class.
 sub new
@@ -368,7 +369,7 @@ __DATA__
 # fussnoten
 -
 <p>
-<font size="-1">Alle Angaben ohne Gew&auml;hr, letzte Änderung der Terminliste: [% AENDERUNG %]</font>
+<font size="-1">Alle Angaben ohne Gew&auml;hr, letzte &Auml;nderung der Terminliste: [% AENDERUNG %]</font>
 
 # blank
 -