X-Git-Url: http://git.refcnt.org/?p=lugs.git;a=blobdiff_plain;f=make-html%2Fmake-html.pl;h=3dcd603caa1779f6537d72f4443eb70fa39c3b1d;hp=be6d14525cae6f6ec7d7dd20a19c797a6ca2cb77;hb=HEAD;hpb=e9c8a37d8737e0012d6c2e3e51f34f875e922cf7
diff --git a/make-html/make-html.pl b/make-html/make-html.pl
index be6d145..3dcd603 100755
--- 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('');
+ $self->print_raw_html('');
}
$self->print_template('tabellenende');
@@ -358,9 +360,9 @@ __DATA__
-
[% INFORMATIONEN %]
-# ical
+# ical/anker
-
-