Aktuelles & Infos

Startseite Infobox

    [an error occurred while processing this directive]
use strict; # Übersetzung für Aktuelles my %uebersetzung = ( aktuelles_de => "Aktuelles & Infos", aktuelles_fr => "Actualités & Infos", aktuelles_en => "News & Information", ); # Benötigte Variablen my $savedir = $SYSTEM_CONF{'DOCUMENT-ROOT'}."/dh/ssi/generated/aktuelles"; my $directory; my $filename; my $titel; my $teaser; my $sortier_datum; my $anzeige_datum; my %startseite; my $rubrik = "presse"; my %weiter_uebersetzung = ( de => "Weiter", fr => "Continuez", en => "More" ); start(); sub start { # Variablen für unterschiedliche Sprachen my @linguas = qw(de fr en); foreach my $lingua (@linguas) { print "Lingua: $lingua
\n"; clearlist(); my $mask = "index\.shtml\.". $lingua. "\$"; my $readdir = "/dh/aktuelles/"; filemask($mask); ireaddir($readdir); sort_by_meta("-sortier_datum"); foreach my $file (@FILELIST) { $directory = $FILE_META_INFO{$file}->getValues('directory'); $filename = $FILE_META_INFO{$file}->getValues('filename'); $titel = $FILE_META_INFO{$file}->getValues('title_'.$lingua); $teaser = $FILE_META_INFO{$file}->getValues('teaser_'.$lingua); $sortier_datum = $FILE_META_INFO{$file}->getValues('sortier_datum'); $anzeige_datum = $FILE_META_INFO{$file}->getValues('anzeige_datum'); next unless ($sortier_datum); if ($anzeige_datum) { $anzeige_datum = $anzeige_datum." - "; } my $weiter = $weiter_uebersetzung{$lingua}; my $startseite_link = "
$titel
$anzeige_datum$teaser
[$weiter ...]
"; storeStartseite($startseite_link, $lingua); } saveStartseite($lingua); } } sub storeStartseite { my ($link, $lingua) = @_; my $laenge = $#{$startseite{$rubrik."_".$lingua}}; if ($laenge < 2) { push (@{$startseite{$rubrik."_".$lingua}}, $link); print $link; } } sub saveStartseite { my ($lingua) = @_; my $savefile = $savedir."/aktuelles_startseite.shtml.".$lingua; my $links = ""; foreach my $link (@{$startseite{$rubrik."_".$lingua}}) { $links .= "$link\n"; } if ($links) { open (FILE, "> $savefile") or die "Konnte $savefile nicht oeffnen!"; print FILE "

\n

".$uebersetzung{"aktuelles_".$lingua}."

"; print FILE $links; close FILE or die "Konnte $savefile nicht schliessen!"; } }