<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{pin}=$baseq::VARS{apin};
	$baseq::VARS{pass}= crypt($baseq::VARS{apass},"xy");
}
my $erg=$kasse-&gt;checkpass($baseq::VARS{pin}, $baseq::VARS{pass} );
if ($erg==2 || $erg==0 ) {
	$kasse-&gt;printhtml($kasse-&gt;trans("TI16") , $kasse-&gt;kontohtml($baseq::VARS{pin}));
}
else {$kasse-&gt;login;}
$kasse-&gt;exit;
</pre></body></html>