my $html = new CGI;
my @data;
my $i = 0;
my $dbh;
print $html->header,
$html->start_html(-title=>'Datenbankverwaltung',
-style=>{'src'=>'/main.css'},),
$html->div({align=>'center'},"Dies wird ein kleines System zur Datenbankberwaltung.
"),
$html->div({-align=>'center'});
#Eingabefelder zum herstellen der Verbindungen
if ($dbh ne "")
{
}
else{
print $html->startform(-method=>'POST',
-action=>'datenbank_verwaltung.pl'),
$html->div({align=>'center'},'Servername/IP-Adresse: '),
$html->textfield(-name=>'server'),
$html->div({align=>'center'},'Datenbank: '),
$html->textfield(-name=>'datenbank'),
$html->div({align=>'center'},'Nutzername: '),
$html->textfield(-name=>'name'),
$html->div({align=>'center'},'Passwort: '),
$html->password_field(-name=>'passwort');
$html->end_form(),
print "
";
#Übergabe der eingaben an "richtige" Variablen
my $server = param(server);
my $nutzer = param(name);
my $passwort = param(passwort);
my $datenbank = param(datenbank);
#Zusammensetzen der Serververbindung
my $source = "DBI:mysql:$datenbank:$server";
print $html->submit(-name=>'Login');
$dbh = DBI -> connect($source,$nutzer,$passwort);
}