<page name="Linux-Stammtisch">
-<h3><a href="<url linux-stammtisch>">Oldenburger Linux-Stammtisch</a></h3>
+<h3><a href="<url linux-stammtisch>">Oldenburger Linux-Stammtisch</a> 2001</h3>
<center>
<b>20 Uhr</b><p>
<tr><td width=40%>
<ul>
<:
+ use Time::Local;
+
@termine = (
- '31.01.2000',
- '28.02.2000',
- '27.03.2000',
- '24.04.2000',
- '29.05.2000',
- '26.06.2000',
- '31.07.2000',
- '28.08.2000',
- '25.09.2000',
- '30.10.2000',
- '27.11.2000',
- '18.12.2000');
+ '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-14',
+ '2001-08-27',
+ '2001-09-11',
+ '2001-09-24',
+ '2001-10-09',
+ '2001-10-29',
+ '2001-11-06',
+ '2001-11-26',
+ '2001-12-11',
+ '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) {
- $t =~ /(\d+)\.(\d+)\.(\d+)/;
- printf "<li> Montag, %d. %s %s", $1, $month[$2], $3;
+ @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>
-Die Treffen finden jeweils am letzten Montag im Monat statt (es sei
+Die Treffen finden jeweils am letzten Montag im Monat und am zweiten
+Dienstag im Monat statt (es sei
denn, sie werden aufgrund von Feiertagen verlegt). Es sind offene
Treffen, auf denen sich die Diskussionen um Linux und Freie Software
-handeln. Die Treffen fangen um 20 Uhr an.
+handeln. Die Treffen fangen montags um 20 Uhr und dienstags um 19 Uhr an.
</td></tr>
</table>