#Eingabefelder zum herstellen der Verbindungen
if ($html->param('server') and $html->param('name') )
{
#Übergabe der eingaben an "richtige" Variablen
my $server = $html->param('server');
my $nutzer = $html->param('name');
my $passwort = $html->param('passwort');
my $datenbank = $html->param('datenbank');
$dbh = DBI -> connect($source,$nutzer,$passwort);
# mach was mit $dbh
}
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'),
"
";
#Übergabe der eingaben an "richtige" Variablen
#Zusammensetzen der Serververbindung
my $source = "DBI:mysql:$datenbank:$server";
print $html->submit(-name=>'Login'),
$html->end_form();
}