#!/usr/bin/perl
use strict;
use warnings;
use HTML::Template;
use CGI::Carp qw(fatalsToBrowser);# Zeigt die Fehler an
$SIG{}  = sub {die 'WARN: '.shift}; # Sorgt dafür, daß Warnungen auch als Fehler im Browser angezeigt werden. 

print "Content-type: text/html\n\n";

# Hier wird das Template geoeffnet
my $template = HTML::Template->new(filename => '../irland.tmpl');

# Die id wird aus der URL gelesen 
my $id = $ENV{'QUERY_STRING'};  
chomp ($id);

# Die Textdatei wird geoeffnet und an die Variable $text bzw. danach an TEXT uebergeben
open(TEXTDATEI, "../$id.txt") or die "Can't open $id.txt: $!"; 
my $text = join '', <TEXTDATEI>;            # Der join Befehl liest alle Zeilen der Datei ein
close(TEXTDATEI);
$template->param(TEXT => $text);             # evtl. use Encode::Entities; und encode_entities $text, denn $text kann HTML enthalten.

# Die Flash Datei wird nur auf der Menschen Seite geladen
my $flash = "";
if ($id eq "menschen")
{
$flash = "flash";
open(FLASHCODE, "../$flash.txt") or die "Can't open $flash.txt: $!"; 
my $flash = join '', <FLASHCODE>;            
close(FLASHCODE);
$template->param(FLASH => $flash);              
}

# Die Map fuer die Landkarte wird nur auf der Land Seite geladen
$template->param(USEMAP => ' usemap="mapkarte" ');

# Gleichbleibender Bildpfad fuer die Navigation
my $navi = '/images/navi.gif';
$template->param(NAVI => $navi);

# Wechselnder Bildpfad fuer den Header
my $zufallszahl = int(rand(4) + 1);        # +1 damit ganze Zahlen ermittelt werden
my $header = '/images/header' . $zufallszahl . '.jpg';
$template->param(HEADER => $header);

# Variable Bildpfade Titel und Bilder
my $bild = '/images/'.$id.'.gif';    
my $titel = '/images/titel_'.$id.'.gif'; 
$template->param(BILD => $bild);
$template->param(TITEL => $titel);

# Variable ALT Texte fuer die Bilder
my $alt = '../'.$id.'_alt.txt';    
open(ALTTEXT, '../'.$id.'_alt.txt') or die "Can't open $id.'_alt.txt': $!"; 
my $alt = join '', <ALTTEXT>;            
close(ALTTEXT);
$template->param(ALT => $alt);

# Gleichbleibende Linkpfade
my $link1 = '/irland.cgi?home';
my $link2 = '/irland.cgi?land';
my $link3 = '/irland.cgi?geschichte';
my $link4 = '/irland.cgi?menschen';
my $link5 = '/irland.cgi?politik';
$template->param(LINK1 => $link1);
$template->param(LINK2 => $link2);
$template->param(LINK3 => $link3);
$template->param(LINK4 => $link4);
$template->param(LINK5 => $link5);

print $template->output();