clearlist(); filemask('bio.*\.html.de'); ireaddir('/news'); sort_by_meta("-publish_date"); 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 $topmeldung = $FILE_META_INFO{$file}->getValues('topmeldung'); my $pday = $FILE_META_INFO{$file}->getValues('__publish_date_day'); my $pmon = $FILE_META_INFO{$file}->getValues('__publish_date_mon'); my $pyear = $FILE_META_INFO{$file}->getValues('__publish_date_year'); my $headline = $FILE_META_INFO{$file}->getValues('headline'); my $image = $FILE_META_INFO{$file}->getValues('image'); my $sofort = $FILE_META_INFO{$file}->getValues('sofort'); my $wllink = $FILE_META_INFO{$file}->getValues('wllink'); my $teaser = $FILE_META_INFO{$file}->getValues('teaser'); $teaser =~ s/\n/\/g; my $subteaser = $FILE_META_INFO{$file}->getValues('subteaser'); $subteaser =~ s/\n/\/g; $count++; if (($template == "Meldung") && ($topmeldung eq "1")) { print "
\n"; print "
\n"; print "
\n"; print "$pday.$pmon.$pyear\n"; print "
\n"; print "
\n"; if ($sofort eq 'zumlink') { print " "; } else { print " "; } print "

$headline

\n"; if ($image ne "") { print "\n"; } print "
\n"; print "

$teaser\n"; if ($subteaser ne "") { print "
$subteaser\n"; } print "

\n"; print "

"; if ($sofort eq 'zumlink') { print " weiterlesen\n"; print "
\n"; print "


\n"; } # ist Meldung }