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


$umf->exit;