NACH OBEN
RUB » IT.SERVICES » News » » Newsarchiv

use Time::Local; my @aktzeit=CORE::localtime(time); $aktjahr=$aktzeit[5]+1900; $aktmonat=$aktzeit[4]; clearlist(); filemask('news.*\.html*'); ireaddir('/news'); sort_by_metafield("-sortdatum"); $jahr = ""; $anz = ""; if ($anz eq "") { $anz = 999; } $altmonat = 99; $count = 1; @monate = ("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"); print "
\n"; print "
\n"; if ($jahr eq "") { print "

Die neuesten $anz Mitteilungen

\n"; } else { print "

Newsarchiv $jahr

\n"; } print "
\n"; 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 $ueberschrift = $FILE_META_INFO{$file}->getValues('newsueberschrift_de'); if ($ueberschrift eq "") { $ueberschrift = $FILE_META_INFO{$file}->getValues('newsueberschrift'); } my $dasdatum = $FILE_META_INFO{$file}->getValues('sortlesedatum'); my $dasjahr = substr($FILE_META_INFO{$file}->getValues('sortdatum'),0,4); my $dermonat = substr($FILE_META_INFO{$file}->getValues('sortdatum'),4,2); my $title = $FILE_META_INFO{$file}->getValues('title_de'); my $teaser = $FILE_META_INFO{$file}->getValues('teaser_de'); if ($teaser eq "") { $teaser = $FILE_META_INFO{$file}->getValues('teaser'); } if (($template eq "its_news") && ((($jahr eq "") && ($count <= $anz)) || ($jahr eq $dasjahr))) { if ($dermonat ne $altmonat) { print "

 
$monate[$dermonat-1] $dasjahr

\n"; $altmonat = $dermonat; } print "
$dasdatum: $ueberschrift
\n"; if ($teaser ne "") { print "
$teaser
\n"; } $count++; } } print "
\n"; print "
\n"; print "
\n"; print "
Newsfeed / RSS
\n"; print "

Meldungen als RSS-Feed abonnieren\n"; print "

\n"; if ($jahr eq $aktjahr) { $monatebis = $aktmonat; } else { $monatebis = 11; } if ($jahr ne "") { print "
zu den Monaten

\n"; for ($i=$monatebis;$i>=0;$i--) { $mnum = sprintf ('%02d',$i+1); print " $monate[$i] $jahr
\n"; } print "

\n"; } print "
Jahresübersichten

\n"; for ($i=$aktjahr;$i>=2015;$i--) { print " Jahr $i
\n"; } print "

\n"; print "
\n"; print " Newsletter\n"; print "

\n"; print "
\n"; print "
\n";