#!/usr/bin/perl
#
#

use umfrage;
use CGI;

$query = new CGI;
my %val = $query->Vars;
$self->{vars}=\%val;
$self->{query}=$query;
my $umf=umfrage->init($self, $val{umfid});
if ($val{umfid} == 0) {$umf->new;}
else { $umf=$umf->load;}

if (! defined $umf){print "Content-type: text/html\n\nFehler: Umfrage $val{umfid}";exit;}

$umf->getbearb;

$umf->exit;