#!/usr/bin/perl

use CGI;
use DBI;
require adisql;		# /usr/lib/perl5/adisql.pm

my $db = 'firma';
my $host = 'drcomp';
my $user = 'apache';
my $password = '';
my $table = 'kunden';

my $query = CGI->new();

#my $vorname = $query->param('vorname');
#my $name = $query->param('name');
#my $kundennummer = $query->param('kundennummer');

$dbh = DBI->connect("DBI:Pg:dbname=$db;host=$host",$user, $password,
{RaiseError => 1});

# ------------------------------------------------------------------------

sub briefkopf {
        print $query->header(),
              $query->start_html(-bgcolor=>'#ffffff',
               -title=>'[ Web-bill | Kundensuche ]');

        print <<HTML_CODE;
<center>
<font size=+3>Web-basierendes Rechnungssystem<br><br>
HTML_CODE
        }

# ------------------------------------------------------------------------

my $search = "SELECT * from $table where";

briefkopf();

@parameter = $query->param;

my $zaehler = 0;
foreach $parms (@parameter) {
	my $wert = $query->param($parms);
	if ( ! $wert eq "" ) {
		if ( $zaehler > 0 ) {
		$search .= " AND $parms='$wert'";
		    }
		  else {
		$search .= "  $parms='$wert'";
		  }
		$zaehler += 1;
		}
	}

sql("$search");
        my $namen = $sth->{'NAME'};
        my $anzFelder = $sth->{'NUM_OF_FIELDS'};
my $treffer = $sth->rows;

if ($treffer == 0) { print $query->h2('Kein Kundeneintrag gefunden'); }
if ($treffer == 1) {
	print $query->p("Kundendaten:");
	print '<table border="0">',
	'<form method="post" action="/rechnung/cgi-bin/editkunde">';
        while (my $ref = $sth->fetchrow_arrayref) {
                for (my $i = 0; $i < $anzFelder; $i++) {
                print("<tr><td align=\"right\">$$namen[$i]:\
                <td align=\"left\"><input name=\"$$namen[$i]\"\
                value=\"$$ref[$i]\"></tr>");
                }
                }
	print '<tr><td height="20"></tr><tr><td><td align="left">',
	'<font color="#0000ff"><input type="submit" value="Kunde ndern">',
	'<spacer type="horizontal" size="20">',
	'<input type="reset" value="Reset"></tr></form></table>';
        }
if ($treffer > 1) {
		print $query->h2('Multiple Datenstze.');
		}
		
print $query->end_html();