Newsletter
Newsletter
Newsletter des Jahres $jahr
\n"; } else { print "Unsere Newsletter
\n"; } filemask('aks.*\.html.de'); ireaddir($verz); sort_by_multifield(-__publish_date_year,-__publish_date_mon,-__publish_date_day,-__publish_time_hour); foreach my $file (@FILELIST) { my $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename'); my $teaserbild = $FILE_META_INFO{$file}->getValues('teaserbild'); my $titel = $FILE_META_INFO{$file}->getValues('title_de'); my $directlink= $FILE_META_INFO{$file}->getValues('directlink'); my $dasdatum = $FILE_META_INFO{$file}->getValues('dasdatum'); my $newsletter = $FILE_META_INFO{$file}->getValues('newsletter'); my $subtitle = $FILE_META_INFO{$file}->getValues('subtitle'); my $alttext= $FILE_META_INFO{$file}->getValues('alt'); my $imgtitle= $FILE_META_INFO{$file}->getValues('imgtitle'); my $teaser = $FILE_META_INFO{$file}->getValues('teaser'); my $dasjahr = $FILE_META_INFO{$file}->getValues('__publish_date_year'); my $dermonat = $FILE_META_INFO{$file}->getValues('__publish_date_mon'); $teaser =~ s/\n/\/g; if (length($teaser) > 250) { $teaser = substr($teaser,0,230); $lz = substr($teaserde,length($teaser)-1,1); while ($lz ne " ") { $teaser = substr($teaser,0,length($teaser)-1); $lz = substr($teaser,length($teaser)-1,1); } $teaser = $teaser."..."; } if ($newsletter eq 'ja') { if ($count == $top) { print "
- \n";
}
if ($count < $top) {
print "
\n";
print "
\n";
} else {
if ($dasjahr ne $aktjahr) {
if ($count >= $top) {
print "$subtitle
\n"; print "\n";
print "$dasdatum:
$teaser
\n";
if ($directlink eq '') {
print "Weiterlesen
$dasjahr
\n"; print "- \n";
$aktjahr = $dasjahr;
}
print "
- $dasdatum:
\n"; print "$subtitle"; print "
$teaser \n";
}
$count++;
}
}
if ($count > $top) {
print "
