#!/usr/bin/perl
# geschrieben von Uwe Debacher am 25.4.99
use Msql;
require "common.pl";
&parse_form_data(*formdaten);
print "Content-type: text/html\n\n";
print "Datenbankanzeige";
if (!$formdaten{'datenbank'}) {
print "Anzeige der Datenbanken
";
$dbh= Msql->connect;
@dbs = $dbh->listdbs;
if (@dbs > 0) {
print "Ich habe " . @dbs . " Datenbanken gefunden:
";
print "Bitte eine auswählen und \"Betrachten\" anklicken";
print "
";
} else {
print "Ich habe keine Datenbank gefunden";
}
} else {
if (!$formdaten{'tabelle'}) {
print "
Anzeige der Tabellen von Datenbank $formdaten{'datenbank'}
";
$dbh=Msql->connect("", $formdaten{'datenbank'});
@tables = $dbh->listtables;
if (@tables > 0) {
print "Ich habe " . @tables . " Tabellen gefunden:
";
print "Bitte eine auswählen und \"Betrachten\" anklicken";
print "
";
} else {
print "Ich habe keine Tabelle gefunden";
}
} else {
if (!$formadaten{'datensatz'}) {
print "
Anzeige der Tabelle $formdaten{'tabelle'} von Datenbank $formdaten{'datenbank'}
";
$dbh=Msql->connect("", $formdaten{'datenbank'});
$sth=$dbh->listfields($formdaten{'tabelle'});
$numFields=$sth->numfields;
print "Die Tabelle hat $numFields Felder
";
@bezeichner=$sth->name;
@typen=$sth->type;
@laenge=$sth->length;
print "| Feldname | Feldtyp | Feldlänge |
";
for ($i=0; $i<$numFields;$i++) {
print "| $bezeichner[$i] | $typen[$i] | $laenge[$i] |
\n";
}
print "
";
$sth=$dbh->query("SELECT * FROM $formdaten{'tabelle'}");
$numRows=$sth->numrows;
print "Die Tabelle hat $numRows Datensätze
";
for ($i=0; $i<$numFields;$i++) {
print "| $bezeichner[$i] | ";
}
print "
";
while (@ref=$sth->fetchrow) {
print "";
for ($i=0; $i<$numFields;$i++) {
print "| $ref[$i] | ";
}
print "
";
}
print "
";
}
else {
# hier kommt noch die Einzelanzeige hinein!
}
}
}
print "";