#!/usr/bin/perl
#
#

use umfrage;

baseq::Vars;

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