$cur = CGI->new();
$mode = "default";
if($cur->param("mode")) {
	$mode = $cur->param("mode");
}

$content .= print_form();

if (($cur->param("delete")) { $content .= delete_appointment(); }

if($cur->param("laptop")){ $content .= update_day(); }

$content .= display_appointments();

open (TEMPLATE, "../template.shtml")||dienice("Content-type: text/html\n\nCould not find template");
while (<TEMPLATE>){
	$page .= $_;
}
$page =~ s/<!-- ?content ?-->/$content/ig;
close (TEMPLATE);
print "Content-type: text/html\n\n$page";