<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 strict;
use CGI::Carp qw(fatalsToBrowser); 

use kunde;
baseq::Vars;

my $kd=0;

if ($baseq::VARS{knr}&gt;0) {$kd=$baseq::VARS{knr};}

$kd=kunde-&gt;init($kd, $query, $val);

if (! defined $kd-&gt;load){print "Content-type: text/plain\n\nFehler: Kunde $basq::VARS{umfid}";exit;}

$kd-&gt;getbearb;

$kd-&gt;exit;


</pre></body></html>