#!/usr/bin/perl
#
#

use kasse;

baseq::Vars;

#my $pin=kasse->checkpass($self,$val{pin});
#my $pass=kasse->checkpass($val{pass});
#if (! defined $pin->load) {print "Content-type: text/html\n\nFehler: Teilnehmer PIN-Nr. $val{pin}";$pin->exit;}
#if ($val{but} eq "Beenden") {$pin->redirect;}
#my $RET = $pin->checkpass($val{pin}, crypt($val{pass},"xy"));
#if ($RET == 0) { $pin->kontostand;}
 #   else { $pin->login("Bitte Melden Sie sich an");}


my $kasse = kasse->init();
if ($baseq::VARS{lbut} eq $kasse->trans("BU12")) {
	$baseq::VARS{pin}=$baseq::VARS{apin};
	$baseq::VARS{pass}= crypt($baseq::VARS{apass},"xy");
}
if (! ($kasse->checkpass($baseq::VARS{pin}, $baseq::VARS{pass} ) ) ) {
	$kasse->kontohtml($baseq::VARS{pin});
}
else {$kasse->login;}
$kasse->exit;