my $fehlernummer = $ENV{'QUERY_STRING'};

my $tmpl = parsen($fehlernummer);

my %var = (
    referer         => $ENV{'HTTP_REFERER'},
    request         => $ENV{'REQUEST_URI'},
    appname         => $ENV{'HTTP_USER_AGENT'},
    ip                  => $ENV{'REMOTE_HOST'},
    furahid         => $cgi->cookie('furahiD')
);

$tmpl = variablen($tmpl,%var);


print $cgi->header;
print $tmpl;



exit();


sub parsen {
    my $tmp;
    open (TEMP, '<./template/'.$_[0].'.html');
    $tmp = join("",<TEMP>);
    close(TEMP);
    
    return($tmp);
}


sub variablen {
    my $tmp     = $_[0];
    my %hash  = $_[1];
    
    my ($k,$v);
    while (($k, $v) = each(%hash)) {
        $tmp =~ s/\<\*$k\*\>/$v/g;
    }
    
    return($tmp);    
}