#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use lib '/var/www/cgi-bin/newtest';
use template;

my $vorlage = "test.tmpl";
my $data={};
my $cgi = CGI->new();
# ein Templateobjekt erzeugen.
# der Vorteil ist,
# wenn das Templatesystem komplexer wird,
# kann man Problemlos mehrere Instanzen nebeneinander nutzen.
my $template=template->new();

# abbruch wenn das template nicht geladen werden konnte
die "Error Read Templatefile ($!)" if(!$template->read($vorlage));

$data->{'print'} = 'Das ist ein test!';

# HTTP-Header Ausgeben
print $cgi->header();

# Warnungen im Browser ausgeben.
# sonst nützt das "use warnings" nicht so viel,
# da die Meldungen sonst nur im Errorlog des Webservers landen
warningsToBrowser(1);

# Das print nicht im templatesystem.
# Eventuell sollen die Generierten Daten noch nacharbeitetet werden.
# (z.B dienen als Daten für ein weiteres Template)
print $template->render($data);