--- /dev/null
+#include <LUGO.style>
+#include "years.inc"
+
+<page name="Vergangene Termine in 2004">
+
+<:
+ use Time::Local;
+
+ @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
+ @day = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
+ @termine = (
+
+ '2005-01-08|09:00|Pinguin-Brunch|Phoenix|http://oldenburg.linux.de/Infos/pinguin-brunch.html',
+ '2005-01-14|19:00|Oldenburger Linux-Stammtisch|Bei Beppo|http://oldenburg.linux.de/Infos/stammtisch.html',
+ '2005-01-31|20:00|Oldenburger Linux-Stammtisch|Bei Beppo|http://oldenburg.linux.de/Infos/stammtisch.html',
+ '2005-01-07|19:00|Linux Gruppe Ostfriesland|Hesel|http://www.cco-online.de/linux/',
+ '2005-01-21|19:00|Linux Gruppe Ostfriesland|Hesel|http://www.cco-online.de/linux/',
+ '2005-01-02|19:00|Linux-Treffen in Bremen|Bremen|http://linux.inbremen.de/',
+ '2005-01-09|19:00|Linux-Treffen in Bremen|Bremen|http://linux.inbremen.de/',
+ '2005-01-16|19:00|Linux-Treffen in Bremen|Bremen|http://linux.inbremen.de/',
+ '2005-01-23|19:00|Linux-Treffen in Bremen|Bremen|http://linux.inbremen.de/',
+ '2005-01-30|19:00|Linux-Treffen in Bremen|Bremen|http://linux.inbremen.de/',
+ '2005-01-11|19:30|Linux User Group Wilhelmshaven|W\'haven|http://www.lug-whv.de/',
+ '2005-01-25|19:30|Linux User Group Wilhelmshaven|W\'haven|http://www.lug-whv.de/',
+
+ );
+
+ # Monat - Jahr
+ $layout_month = '\
+<p><table width=100%% border=0 cellpadding=0 cellspacing=0>\
+<tr><td width="2" bgcolor="#000000"></td><td bgcolor="#000000"><table cellpadding="0" cellspacing="1" width="100%%" border="0" summary=""><tr><td bgcolor="#ffffff">\
+<table width=100%% border=0 cellpadding=0 cellspacing=0>\
+<tr><th align=left colspan=2 bgcolor=#80CCF8> <ifont>%s %d</ifont></th>\
+<td align=left bgcolor=#80CCF8><ifont>Ort</ifont></td>\
+<td align=center bgcolor=#80CCF8><ifont>Zeit</ifont></td>\
+</tr>';
+ # bgcol Tag (Tag) - Text - Ort - Zeit
+ $layout_row = '\
+<tr bgcolor=#%s>\
+ <td align=left width=20%%> <ifont>%d. (%s)</ifont></td>\
+ <td align=left width=60%%><ifont>%s</ifont></td>\
+ <td align=left width=15%%><ifont>%s</ifont></td>\
+ <td align=right width=5%%><ifont>%s</ifont> </td>\
+</tr>';
+ $layout_foot = '\
+</table>\
+</td></tr></table></td></tr>\
+</table>';
+ @layout_color = ('ffffff','eff0f1');
+
+ $mon = 0;
+ $year = (split (/-/, (split (/\|/, (sort (@termine))[0]))[0]))[0];
+ $descr = "";
+ $color = $layout_color[1];
+ foreach $termin (sort (@termine)) {
+ @termin = split (/\|/, $termin);
+ @date = split (/-/, $termin[0]);
+
+ if ($mon ne "$date[0]-$date[1]") {
+ if ($mon != 0) {
+ print $layout_foot;
+ $descr = "";
+ $color = $layout_color[1];
+ print "<p><hr>" if ($year != $date[0]);
+ $year = $date[0];
+ }
+ printf $layout_month, $month[$date[1]], $date[0];
+ $mon = "$date[0]-$date[1]";
+ }
+ if ($termin[2] ne $descr) {
+ $color = $color eq $layout_color[0]?$layout_color[1]:$layout_color[0];
+ $descr = $termin[2];
+ }
+
+ if ($termin[4]) {
+ $text = sprintf ("<a href=\"%s\">%s</a>", $termin[4], $termin[2]);
+ } else {
+ $text = $termin[2];
+ }
+ $wday = (localtime(timelocal(0,0,0,$date[2],$date[1]-1, $date[0])))[6];
+
+ printf $layout_row, $color, $date[2], $day[$wday], $text, $termin[3], $termin[1];
+ }
+ print $layout_foot;
+
+:>
+
+<more_years>
+
+</page>
+
+# Local variables:
+# mode: indented-text
+# mode: auto-fill
+# end: