<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#! /usr/bin/perl -w
#
#

use kasse;

baseq::Vars;

my $kasse = kasse-&gt;init();

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

$kasse-&gt;exit;
</pre></body></html>