NACH OBEN
if (($mode ne 'EDIT') && ($mode ne 'PREVIEW')) { my $ablage=""; print "\n"; my $sprach="de"; my $ob_de="1"; my $ob_en="1"; my $ob_es=""; my $ob_fr=""; if (($ob_de eq '1') && ($sprach ne 'de')) { $savep = substr($ablage,0,length($ablage)-3).".de"; print "Deutsch\n"; } if (($ob_en eq '1') && ($sprach ne 'en')) { $savep = substr($ablage,0,length($ablage)-3).".en"; print "English\n"; } if (($ob_es eq '1') && ($sprach ne 'es')) { $savep = substr($ablage,0,length($ablage)-3).".es"; print "Español\n"; } if (($ob_fr eq '1') && ($sprach ne 'fr')) { $savep = substr($ablage,0,length($ablage)-3).".fr"; print "Français\n"; } print "\n"; }

use Time::Local; my @aktzeit=CORE::localtime(time); $aktjahr=$aktzeit[5]+1900; $aktmonat=$aktzeit[4]; clearlist(); filemask('news.*\.html\.de'); ireaddir('/lkm/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 News

\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'); my $sortdatum = $FILE_META_INFO{$file}->getValues('sortdatum'); my $dasdatum = $FILE_META_INFO{$file}->getValues('kurzdatum_de'); my $wichtigkeit = $FILE_META_INFO{$file}->getValues('wichtigkeit'); my $direktlink = $FILE_META_INFO{$file}->getValues('direktlink'); 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 $teaserbild = $FILE_META_INFO{$file}->getValues('teaser_450'); my $teaser = $FILE_META_INFO{$file}->getValues('teaser_de'); if ((($jahr eq "") && ($count <= $anz) && ($wichtigkeit ne "archiv")) || ($jahr eq $dasjahr)) { # if ($dermonat ne $altmonat) { # print "

 
$monate[$dermonat-1] $dasjahr

\n"; # $altmonat = $dermonat; # } print "
"; if ($direktlink eq '') { print ""; } else { print ""; } print "$dasdatum: $ueberschrift
\n"; if ($teaser ne "") { print "
"; if ($teaserbild ne '') { print ""; } print "$teaser
\n"; } print "
\n"; $count++; } } print "
\n"; print "
\n"; print "
\n"; if ($jahr ne "") { } print "
Jahresübersichten

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

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