<page name="Linux-Stammtisch">
-<h3><a href="<url linux-stammtisch>">Oldenburger Linux-Stammtisch</a> 2001</h3>
-
-<table width=100% border=0 cellpadding=2>
-<tr><td width=40%>
-<ul>
-<:
- use Time::Local;
-
- @termine = (
- '2001-01-09',
- '2001-01-29',
- '2001-02-13',
- '2001-02-26',
- '2001-03-13',
- '2001-03-26',
- '2001-04-10',
- '2001-04-30',
- '2001-05-08',
- '2001-05-28',
- '2001-06-12',
- '2001-06-25',
- '2001-07-10',
- '2001-07-30',
- '2001-08-10',
- '2001-08-27',
- '2001-09-14',
- '2001-09-24',
- '2001-10-12',
- '2001-10-29',
- '2001-11-09',
- '2001-11-26',
- '2001-12-07',
- '2001-12-17',
- );
-
- @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
- @day = ('Sonntag','Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag');
- foreach $t (@termine) {
- @date = split (/-/, $t);
- $wday = (localtime(timelocal(0,0,0,$date[2],$date[1]-1, $date[0])))[6];
-
- printf "<li> %s, %d. %s %s", $day[$wday], $date[2], $month[$date[1]], $date[0];
- }
-:>
-</ul>
-</td><td>
<center><b>Wer bisher noch nicht da war, einfach mal reinschauen.</b></center><p>
<p>Die Treffen finden jeweils