#!/usr/bin/perl
#
#

use kasse;
use CGI;

$query = new CGI;
my %val = $query->Vars;
my $self;
$self->{query}=$query;
$self->{vars}= \%val;

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");}


$pin->exit;