#!/usr/bin/perl
#
#

use umfrage;
use CGI;

$query = new CGI;
my %val = $query->Vars;
my $self;
$self->{query}=$query;
$self->{vars}= \%val;

my $umf=umfrage->init($self,$val{umfid});
if (! defined $umf->load) {print "Content-type: text/html\n\nFehler: Umfrage $val{umfid}";$umf->exit;}
$umf->enterant;       #Antworten einlesen und neue frage ausgeben
$umf->exit;