Newsletter

clearlist(); use Time::Local; my @aktzeit=CORE::localtime(time); $aktjahr=$aktzeit[5]+1900; my $jahr = ""; my $verz = "/aktuelles"; my $anz = 0; my $top = 0; my $count = 0; if ($jahr eq "") { $anz = ""; if ($anz eq "") { $anz = 8; } $top = ""; if ($top eq "") { $top = 1; } } else { $verz .= '/'; $verz .= $jahr; $anz = 999; } if ($jahr ne "") { print "

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 "

    $subtitle

    \n"; print "

    \"$alttext\"\n"; print "$dasdatum:
    $teaser
    \n"; if ($directlink eq '') { print "Weiterlesen

    \n"; print "
    \n"; } else { if ($dasjahr ne $aktjahr) { if ($count >= $top) { print "
\n"; } print "

$dasjahr

\n"; print "
    \n"; $aktjahr = $dasjahr; } print "
  • $dasdatum:
    \n"; print "$subtitle"; print "
    $teaser
    • \n"; } $count++; } } if ($count > $top) { print "
\n"; }