#!/usr/bin/perl

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

#Templates einbinden
my $template = HTML::Template->new(filename => 'spielplan.tmpl', 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");

}