#!/usr/bin/perl -w
#
#
#use strict;
use CGI::Carp qw(fatalsToBrowser); 

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 $umf->trans("BU11") || $val{but} eq $umf->trans("BU11")) {$umf->redirect;}
if ($baseq::VARS{lbut} eq $umf->trans("BU12")) {
	$baseq::VARS{pin}=$baseq::VARS{apin};
	$baseq::VARS{pass}=$baseq::VARS{apass};
}
my $RET = $umf->checkpass($baseq::VARS{pin}, crypt($baseq::VARS{pass},"xy"));
if ($RET==3 || $umf->{showstat}) { $umf->statistik;}
    else { $umf->login("Bitte Melden Sie sich an");}


$umf->exit;