#!/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;}
if ($val{lbut} eq "Beenden" || $val{but} eq "Beenden") {$umf->redirect;}
my $RET = $umf->checkpass($baseq::VARS{apin}, crypt($baseq::VARS{apass},"xy"));
if ($RET == 4 && $umf->{knr} == $baseq::VARS{apin}) { $umf->pivot;}
    else { $umf->login("Bitte Melden Sie sich an");}


$umf->exit;