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


$umf->exit;