1 <define-tag stachelexport>
8 print STDERR "This break is intentional!\n\n";
9 print STDERR "Send the list to redaktion@stachel.de\n\n";
10 foreach $termin (sort (@termine)) {
11 @termin = split (/\|/, $termin);
13 if ($termin[2] eq "Oldenburger Linux-Stammtisch") {
15 @date = split (/-/, $termin[0]);
16 $wday = (localtime(timelocal(0,0,0,$date[2],$date[1]-1, $date[0])))[6];
17 $termin[3] =~ s/ / /g;
19 printf STDERR "%d.%d.: %s, %s, %s\n\n", $date[2], $date[1],
20 $termin[2], $termin[3], $starttime{$wday};