#!/usr/bin/perl
#
#

use stichprobe;

baseq::Vars;

my $stich=stichprobe->init();
if (! defined $stich) {print "Content-type: text/plain\n\n Fehler: Umfid\n";$self->exit;}
if ($baseq::VARS{lbut} eq "Beenden" || $baseq::VARS{sbut} eq "Beenden") {$stich->redirect;}
if ($baseq::VARS{lbut} eq "Anmelden" ){
		$baseq::VARS{knr}=$baseq::VARS{apin};
		$baseq::VARS{pass}=crypt($baseq::VARS{apass},"xy");
}
my $RET = $stich->checkpass($baseq::VARS{knr}, $baseq::VARS{pass} );
if ($RET == 4 && $stich->{knr} == $baseq::VARS{knr}) { $stich->getbearb;}
    else { $stich->login("Bitte Melden Sie sich an");}


$stich->exit;