#!/usr/bin/perl
#
#

use kunde;
use CGI;

$query = new CGI;
my %val = $query->Vars;
my $kd=0;

if ($val{knr}>0) {$kd=$val{knr};}

$kd=kunde->init($kd, $query, \%val);

if (! defined $kd->load){print "Content-type: text/html\n\nFehler: Kunde $val{umfid}";exit;}

$kd->getbearb;

$kd->exit;