NACH OBEN

use Time::Local; my @aktzeit=CORE::localtime(time); $verz = ""; $Jahr=$aktzeit[5]+1900; print "
\n"; print "
\n"; print "

Jahresübersichten

\n"; print "
    \n"; for ($i=$Jahr;$i>=2016;$i--) { print "
  • Jahr $i
    • \n"; } print "
\n"; print "
\n"; print "
\n"; clearlist(); filemask('news.*\.html.de'); $verz = ""; ireaddir('/aktuelles/'.$verz); sort_by_meta("-sortdatum"); $paramjahr = ""; if ($paramjahr eq '') { print "

Aktuelle Meldungen

\n"; } else { print "

Meldungen aus dem Jahr $paramjahr

\n"; $erstertag = $paramjahr * 10000 + 101; $letztertag = $paramjahr * 10000 + 1231; } $count = 0; $anzahl = ""; if ($anzahl eq '') { $anzhal = 10; } foreach my $file (@FILELIST) { my $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename'); my $kategorie = $FILE_META_INFO{$file}->getValues('kategorie'); my $template= $FILE_META_INFO{$file}->getValues('template'); my $sortdatum = $FILE_META_INFO{$file}->getValues('sortdatum'); my $sortlesedatum = $FILE_META_INFO{$file}->getValues('sortlesedatum'); my $image = $FILE_META_INFO{$file}->getValues('image'); my $weiterlesen = $FILE_META_INFO{$file}->getValues('weiterlesen'); my $linkurl = $FILE_META_INFO{$file}->getValues('linkurl_de'); my $ueberschrift = $FILE_META_INFO{$file}->getValues('ueberschrift_de'); my $datumsangabe = $FILE_META_INFO{$file}->getValues('datumsangabe_de'); my $teasertext = $FILE_META_INFO{$file}->getValues('teasertext_de'); $teasertext =~ s/\n/\
/g; if ($template eq 'news') { if ((($paramjahr eq '') && ($count < $anzahl) && ($kategorie ne 'neuers')) || (($paramjahr ne '') && ($sortdatum ge $erstertag) && ($sortdatum le $letztertag))) { print "
\n"; print "

$ueberschrift

\n

\n"; if ($image ne '') { print "\n"; } print "$sortlesedatum: $teasertext
\n"; print "Weiterlesen\n"; print "

\n"; $count++; } } # template = news } # forschleife