#!/usr/bin/perl -wT
use strict;
$|++;

BEGIN {
    unshift @INC, '/home/little/lib';
    unshift @INC, '/home/little/extlib';
}
use CGI qw(-compile :all);
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 0;

my $url = 'http://little.perlmonk.org/';
#print redirect(-uri => "$url", -expires=>"now") if ($ENV{'REDIRECT_REDIRECT_STATUS'} eq "200");

use CGI::SSI(autotie => 'STDOUT'); 
#use CGI::Pretty;
use XML::Simple;

my $messages = "";
$messages = XMLin('/home/little/my/prefs/sysmesg.xml');
autoEscape(undef);

print
header(-status=>$ENV{'REDIRECT_STATUS'},-charset=>'iso-8859-1', -expires=>"now"),
#'<!--#include virtual="/includes/logic/docinfo.shtml" -->',
start_html(
    -title=>$messages->{error}->{$ENV{'REDIRECT_STATUS'}}->{title},
    -head=>meta({ -http_equiv=>'Content-Type', -content => 'text/html; charset=iso-8859-1'}),
    -base=>'true',
    -xbase=>$url,
    -lang=>'de-DE',
    -style=>{-src=>'/styles/rb_app.css'},
#    -script=>[
#            {-language=>'JavaScript',
#            -src=>'/scripts/rb_menu.js'}
#             ]
),
#'<!--#include virtual="/includes/header/header.shtml" -->',
div({-id=>"main"},
    h1($ENV{'REDIRECT_STATUS'}." - ".$messages->{error}->{$ENV{'REDIRECT_STATUS'}}->{title}),
    p($messages->{error}->{$ENV{'REDIRECT_STATUS'}}->{description}),
),
#'<pre><!--#printenv --></pre>',  
'<!--#include virtual="/includes/footer.shtml" -->',    
#end_html()
;

1;