#!/usr/bin/perl

use DBI;
use CGI;
use warnings;

$query = new CGI;
print $query->header();
print $query->start_html(-BGCOLOR=>'white');
$a[0] = $query->param('such');

$dbh = DBI->connect("DBI:mysql:adressen",'ingolf','geheim');

@tables = $dbh->func('_ListTables');

$sth = $dbh->prepare("SELECT * FROM priv_a ORDER BY name");
$sth = $dbh->prepare("SELECT * FROM priv_a WHERE name REGEXP 
               '$a[0]' OR vname REGEXP '$a[0]' OR stadt REGEXP '$a[0]'") 
                                                                if defined $a[0];

$sth->execute;

while ($ref = $sth->fetchrow_arrayref) {
   print "<table cellspacing=5 cellpadding=1 width=390pt bgcolor=#D3D3D3>";

   print "<tr><td width=10%>";
   print("Nachname");
   print "</td><td><b>";
   print("$$ref[0]\n");
   print "</b></td></tr>";

   print "<tr><td>";
   print("Vorname");
   print "</td><td>";
   print("$$ref[1]\n");
   print "</td></tr>";

   print "<tr><td>";
   print("Strasse");
   print "</td><td>";
   print("$$ref[2]\n");
   print("--\n") if (length($$ref[2]) == 0);
   print "</td></tr>";

   print "<tr><td>";
   print("Stadt");
   print "</td><td>";
   print("$$ref[3]\n");
   print("--\n") if (length($$ref[3]) == 0);
   print "</td></tr>";

   print "<tr><td>";
   print("Telefon");
   print "</td><td>";
   print("$$ref[4]\n");
   print("--\n") if (length($$ref[4]) == 0);
   print "</td></tr>";

   print "<tr><td>";
   print("Handy");
   print "</td><td>";
   print("$$ref[5]\n");
   print("--\n") if (length($$ref[5]) == 0);
   print "</td></tr>";

   print "<tr><td>";
   print("Work");
   print "</td><td>";
   print("$$ref[6]\n");
   print("--\n") if (length($$ref[6]) == 0);
   print "</td></tr>";

   print "<tr><td>";
   print("eMail");
   print "</td><td>";
   print("$$ref[7]\n");
   print("--\n") if (length($$ref[7]) == 0);
   print "</td></tr>";

   print "<tr><td>";
   print("Serial");
   print "</td><td>";
   print("$$ref[8]\n");
   print("--\n") if (length($$ref[8]) == 0);
   print "</td></tr>";

   print "</table><br>";
}

$numRow = $sth->rows;
print "(Gesamt: ", "$numRow";
print " => Tabellenname: ", "@tables)";