#!/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 $befehl = "update $table set";

briefkopf();

@parameter = $query->param;

my $zaehler = 0;
foreach $parms (@parameter) {
	my $wert = $query->param($parms);
		if ( $parms eq "kundennummer") {
		$kundennummer = $wert;
		}
		else {
		if ( $zaehler == 0 ) {
		$befehl .= " $parms='$wert'";
		    }
		  else {
		$befehl .= ",$parms='$wert'";
		  }
		$zaehler += 1;
		}	
	}
	$befehl .= " where kundennummer='$kundennummer'";

sql("$befehl");


# --- db_confirm() aus neukunde

        sql("SELECT * from $table WHERE kundennummer='$kundennummer'");
        print $query->p("Registriert wie folgt:");

        my $namen = $sth->{'NAME'};
        my $anzFelder = $sth->{'NUM_OF_FIELDS'};

        print '<table border="0">';
        while (my $ref = $sth->fetchrow_arrayref) {
                for (my $i = 0; $i < $anzFelder; $i++) {
                print("<tr><td align=\"right\">$$namen[$i]:\
                <td align=\"left\">$$ref[$i]</tr>");
                }
                }
        print '</table>', $query->end_html();
        		
