#!/usr/bin/perl

$| = 1;
use strict;
use warnings;

use utf8;
use strict;
use DBI;
use CGI;
use Encode;
use HTML::Template;

#Templates einbinden
my $template = HTML::Template->new(filehandle => *DATA, encoding => ':encoding(UTF-8)');

#Werte einlesen
my $daten = CGI::new();
my $view = $daten->param("view") || '';
my $menue = $daten->param("menue") || '';
my $submit = $daten->param("submit") || '';


if ( $view eq "darsteller") {
        if ($menue eq "" and $submit eq "") {
                $template->param(DARSTELLER_MENUE => "1");
        }
}

if ( $view eq "termin") {
        &termin;
}
        
        
        
print "Content-Type: text/html \n\n", $template->output;
        
exit;


sub termin {
        $template->param(DARSTELLER_TERMIN => "1");

}

__DATA__

Menü: <TMPL_VAR DARSTELLER_MENUE>
Termin: <TMPL_VAR DARSTELLER_TERMIN>