<:
$limit = 5;
+ @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
if (opendir (NEWS, ".")) {
@news = reverse (sort (grep (/^news-.*\.txt$/,readdir (NEWS))));
for ($i=0; $i < $limit && $i < $#news; $i++) {
$news[$i] =~ /news-(\d+)-(\d+)-(\d+).txt/;
- $date = "$3.$2.$1";
+ $date = sprintf ("%d. %s %04d", $3, $month[$2], $1);
if (open (NEWS, $news[$i])) {
printf "<b>%s</b><br>", $date;
while (<NEWS>) {
<:
$limit = 5;
+ @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
if (opendir (NEWS, ".")) {
@news = reverse (sort (grep (/^news-.*\.txt$/,readdir (NEWS))));
for ($i=$limit; $i < $#news; $i++) {
$news[$i] =~ /news-(\d+)-(\d+)-(\d+).txt/;
- $date = "$3.$2.$1";
+ $date = sprintf ("%d. %s %04d", $3, $month[$2], $1);
if (open (NEWS, $news[$i])) {
printf "<b>%s</b><br>", $date;
while (<NEWS>) {