#! /usr/bin/perl -w
#
#

use kasse;

baseq::Vars;

my $kasse = kasse->init();

if ($baseq::VARS{lbut} eq $kasse->trans("BU12")) {
	$baseq::VARS{knr}=$baseq::VARS{apin};
	$baseq::VARS{pass}= crypt($baseq::VARS{apass},"xy");
}
if ($baseq::VARS{knr} != 0) {$kasse->login;$self->exit;}
my $erg=$kasse->checkpass($baseq::VARS{knr}, $baseq::VARS{pass} );
my $HTML="";
if ($erg==4 ){
	if ($baseq::VARS{ibut} eq $kasse->trans("BU34"))
	{
		$kasse->log(4,"Kontostand wird abgerufen");
		$kasse->{warntext}=$kasse->trans("WA22");
		$HTML.=$kasse->kontohtml($baseq::VARS{lpin})."<HR>\n";
	}
	if ($baseq::VARS{ibut} eq $kasse->trans("BU27")) {
			$kasse->log(4,"Kassenbestand wird aktualisiert");
			$kasse->{warntext}=""; #$kasse->trans("WA19");
			$kasse->auszahlung($baseq::VARS{iauszahl},$baseq::VARS{ipin});
	}
	$HTML.=$kasse->ingehtml;
	
    $kasse->printhtml($kasse->trans("TI16") , $HTML);
}
else {$kasse->login;}

$kasse->exit;