X-Git-Url: http://git.refcnt.org/?p=lugs.git;a=blobdiff_plain;f=make-html%2Fmake-html.pl;h=be6d14525cae6f6ec7d7dd20a19c797a6ca2cb77;hp=74b3371b39c51b646c242e486c2d6d7eb840c8f8;hb=36abab35a27dcd4d204dc186a3196aa1668805ee;hpb=2ce914d0b5b4a41bc075fb64998dad86fd4623f0;ds=sidebyside diff --git a/make-html/make-html.pl b/make-html/make-html.pl index 74b3371..be6d145 100755 --- a/make-html/make-html.pl +++ b/make-html/make-html.pl @@ -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