TO TOP

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

Overview

\n"; print "
    \n"; for ($i=$Jahr;$i>=2019;$i--) { print "
  • Jahr $i
    • \n"; } print "
\n"; print "
\n"; print "
\n"; clearlist(); filemask('news.*\.html.en'); ireaddir('/aktuelles/at'); sort_by_meta("-sortdatum"); my ($sec,$min,$hour,$heutetag,$heutemonat,$heutejahr,$wday,$yday,$isdst) = CORE::localtime(time); $jahr = ""; $sa_jahr = ""; $anzahl = ""; if ($anzahl eq '') { $anzahl = 10; } if ($jahr eq '') { $jahr = $heutejahr+1900; print "

The $anzahl latest News

\n"; } else { print "

News from $jahr

\n"; } print "
\n"; $erstertag = $jahr * 10000 + 101; $letztertag = $jahr * 10000 + 1231; $count = 0; foreach my $file (@FILELIST) { my $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename'); my $template= $FILE_META_INFO{$file}->getValues('template'); my $sortdatum = $FILE_META_INFO{$file}->getValues('sortdatum'); my $image = $FILE_META_INFO{$file}->getValues('image'); if ($image eq '') { $image = $FILE_META_INFO{$file}->getValues('newsbild'); } my $weiterlesen = $FILE_META_INFO{$file}->getValues('weiterlesen'); my $linkurl = $FILE_META_INFO{$file}->getValues('linkurl_en'); my $ueberschrift = $FILE_META_INFO{$file}->getValues('ueberschrift_en'); if ($ueberschrift eq '') { $ueberschrift = $FILE_META_INFO{$file}->getValues('newsueberschrift_en'); } my $datumsangabe = $FILE_META_INFO{$file}->getValues('datumsangabe_en'); if ($datumsangabe eq '') { $datumsangabe = $FILE_META_INFO{$file}->getValues('sortlesedatum'); } my $teasertext = $FILE_META_INFO{$file}->getValues('teasertext_en'); $teasertext =~ s/\n/\
/g; if (((($template eq 'news') || ($template eq 'neuenews')) && ($sortdatum ge $erstertag) && ($sortdatum le $letztertag) && ($sa_jahr ne '')) || ((($template eq 'news') || ($template eq 'neuenews')) && ($count < $anzahl) && ($sa_jahr eq ''))) { print "
\n"; print "

$ueberschrift

\n

\n"; if (($image ne '') && ($linkurl ne '')) { print "\n"; } if (($image ne '') && ($linkurl eq '')) { print "\n"; } print "$datumsangabe
\n"; print "$teasertext
\n"; if ($linkurl ne '') { print "see more\n"; } if ($linkurl eq '') { print "see more\n"; } print "

\n"; } $count++; }