X-Git-Url: http://git.refcnt.org/?p=lugs.git;a=blobdiff_plain;f=make-html%2Fmake-html.pl;h=3dcd603caa1779f6537d72f4443eb70fa39c3b1d;hp=46739d18b453c68767715caffefc658679e8c8b4;hb=HEAD;hpb=5a17dc1c47ef06ce9b5288b1629aba20c1da70ec;ds=sidebyside
diff --git a/make-html/make-html.pl b/make-html/make-html.pl
index 46739d1..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-2013 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.03';
+my $VERSION = '0.07';
#-----------------------
# Start of configuration
@@ -37,6 +37,8 @@ my $Config = {
stgallen => 'e2b1a5', # wie heisst diese Farbe? :)
gnupingu => 'ffd133', # von http://www.gnupingu.ch/
debian => 'ffa500', # orange
+ hackerfunk => '99b2cd', # blau/grau
+ wilhelmtux => 'ffffbf', # from https://wilhelmtux.ch/
},
ical_dir => 'ical',
};
@@ -222,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');
@@ -357,9 +360,9 @@ __DATA__
-
[% INFORMATIONEN %]
-# ical
+# ical/anker
-
-