Erzeugt die Infobox auf der rechten Seite.
##########################################################
# Generierung der Infoboxen für Referenzen
# Erzeugt die SSIs der rechten Seite fuer Referenzen, etc.
# Holger Maier
# Datum: 2010-11-25
###########################################################
use strict;
my @kategorien = qw(allgemein stahlbau stahlwasserbau kesselbau baumaschinen maschinenbau offshore linepipe schiffbau formenbau windkraft sicherheitstechnik weitere_referenzen);
my $zielname = "referenzen_sparte_";
my $documentRoot= $SYSTEM_CONF{'DOCUMENT-ROOT'};
my %infobox = ( de => "Referenzen", fr => "Références", en => "References" );
my @sprachversion = qw(de fr en);
foreach my $kategorie (@kategorien)
{
foreach my $sprache (@sprachversion)
{
my $title_lang = "title_" . $sprache;
my $kurztitle_lang = "short_title_" . $sprache;
my $file = "/dh/ssi/infobox/referenzen/". $zielname. $kategorie .".". $sprache .".html";
my $savefile = $documentRoot . $file;
my $einleseVerzeichnis = "/dh/referenzen/";
if ($kategorie eq "allgemein")
{
print "Skategorie\n";
} else {
$einleseVerzeichnis .= $kategorie;
}
print "Sprache: $sprache
\n";
print "File: $savefile
\n";
print "Einlesen: $einleseVerzeichnis
\n";
clearlist();
my $fileMask = "shtml\.". $sprache. "\$";
filemask($fileMask);
ireaddir("$einleseVerzeichnis/");
sort_by_metafield('sortier_datum');
reverse_list();
my $links = "";
my $counter = 1;
foreach my $file (@FILELIST)
{
next if $counter > 5;
my $title = $FILE_META_INFO{$file}->getValues($title_lang);
print "
==> Aktueller Titel ist $title
\n";
my $hrefFile = $FILE_META_INFO{$file}->getValues('directory') .'/'. $FILE_META_INFO{$file}->getValues('filename');
my $foundDir = $FILE_META_INFO{$file}->getValues('directory');
my $foundFile = $FILE_META_INFO{$file}->getValues('filename');
my $kurztitel = $FILE_META_INFO{$file}->getValues($kurztitle_lang);
my $derTitel;
if (length($kurztitel) > 5) {
$derTitel = $kurztitel;
} else {
$derTitel = $title;
}
my $notToMatch = $einleseVerzeichnis ."/index.shtml";
if (($title ne "") && !($hrefFile =~/$notToMatch/))
{
$links .= "$derTitel \n";
$counter++;
}
}
open (SACTIVE, "> $savefile") or die "Konnte die Datei $file nicht oeffnen\n";
# Überprüfe, ob überhaupt Referenzen vorhanden sind,
# wenn nicht -> dann schreibe "leere" Datei
if ($links) {
my $ueberschrift = $infobox{$sprache};
print SACTIVE "";
print SACTIVE "
$ueberschrift
";
print SACTIVE "
";
print SACTIVE "
";
print SACTIVE $links;
print SACTIVE "
";
print SACTIVE "
";
print SACTIVE "
