#!C:/Perl/bin/perl.exe
#Name: cgi-bin/projekt/seite2.pl
#
# Funktion: Seite 2
#
# Argumente:
# Ausgabe:
use DBI;
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
# Datenbank wird per Param von Seite1 script übernommen
$datenbank = param('verein_name');
# Datenbankhost ist in unserem Beispiel immer "localhost"
$datenbankhost = "localhost";
# Datenbankusername wird per Param von Seite1 script übernommen
$datenbankuser = param('user');
# Datenbankpasswort wird per Param von Seite1 script übernommen
$datenbankpw = param('passwort');
print "Content-type: text/html\n\n";
print <<"ENDE";
Datenbank von $datenbank
ENDE
#kommentar
print "Geben Sie den Namen ein ", textfield('suchname','Goerl'),p,;
print start_form (action=>'/cgi-bin/Projekt/seite3.pl');
print "",submit(-value=>'Suche'),p,"
";
print end_form;
$dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$Datenbankpasswort") or print ("Fehler bei der Datenbankverbindung aufgetreten. |
");
my $sth = $dbh->prepare( "show columns from mitglieder");
$sth->execute();
print "";
while(@ergebnis=$sth->fetchrow_array)
{
print "\n";
print $ergebnis[0];
print "
\n | ";
}
print "
\n";
$sql = qq{select * from mitglieder};
$sth = $dbh->prepare( $sql );
$sth->execute();
while(@ergebnis=$sth->fetchrow_array)
{
print "\t\n";
foreach (@ergebnis)
{
print "\t\t";
print;
print "
| \n";
}
print "\t
\n";
}
print"
";
$sth->finish();
$dbh->disconnect();
print start_form (-action=>'/cgi-bin/Projekt/seite1.pl');
print "",submit(-value=>'Zurück zur Vereinsauswahl'),b,"
";
print end_form;