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

use kasse;

baseq::Vars;

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");
}
my $erg=$kasse->checkpass($baseq::VARS{pin}, $baseq::VARS{pass} );
if ($erg==2 || $erg==0 ) {
	$kasse->printhtml($kasse->trans("TI16") , $kasse->kontohtml($baseq::VARS{pin}));
}
else {$kasse->login;}
$kasse->exit;