##########################################################
# Generierung der Infoboxen für Aktuelles (Presse/News)
# Erzeugt die SSIs der rechten Seite fuer Referenzen, etc.
# Holger Maier
# Datum: 2010-11-25
###########################################################
use strict;
my %weiter = ( de => "Weiter", fr => "Continuez", en => "More" );
my $title_lang = "title_de";
my $teaser_lang = "teaser_de";
# ausgehend vom aktuellen Datum ...
my ($tag, $monat, $jahr) = (localtime)[3,4,5];
$monat += 1;
if ($monat < 10) {
$monat = "0" . $monat;
}
if ($tag < 10) {
$tag = "0" . $tag;
}
my $jahr = $jahr + 1900;
my $vorJahr = $jahr - 1;
# ... wird eine Mitteilung maximal ein Jahr angezeigt
my $endeAnzeigeDatum = $vorJahr . $monat . $tag;
clearlist();
my $fileMask = "shtml\.de";
filemask($fileMask);
ireaddir("/dh/aktuelles/presse");
reject("/dh/aktuelles/presse/index.shtml.de");
sort_by_metafield('sortier_datum');
reverse_list();
# maximal 8 Nachrichten anzeigen
my $counter = 1;
foreach my $file (@FILELIST)
{
my $title = $FILE_META_INFO{$file}->getValues($title_lang);
next unless ($title);
my $teaser = $FILE_META_INFO{$file}->getValues($teaser_lang);
my $anzeigedatum = $FILE_META_INFO{$file}->getValues('anzeige_datum');
my $sortierdatum = $FILE_META_INFO{$file}->getValues('sortier_datum');
my $hrefFile = $FILE_META_INFO{$file}->getValues('directory') .'/'. $FILE_META_INFO{$file}->getValues('filename');
next if ($hrefFile =~ m|/dh/aktuelles/presse/index.shtml|);
my $teaserline = "";
if ($anzeigedatum && $teaser) {
$teaserline = $anzeigedatum ." - ". $teaser;
}
elsif ($anzeigedatum) {
$teaserline = $anzeigedatum;
}
elsif ($teaser) {
$teaserline = $teaser;
}
if ($sortierdatum > $endeAnzeigeDatum)
{
next if ($counter > 8);
$counter++;
print <
$title
$teaserline
[Weiter ...]
ENDOFTEXT
} # end Datumsvergleich
} # end foreach
Ute
Engel
Ines
Oberhofer