Opened by kale_1990 at 2006-12-17 01:18
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
Versuch es mal mit den Anführungszeichen an den richtigen Stellen. Und mach auch ein paar Fehelerausgaben, die helfen häufig weiter als ein "Error 500".
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use DBI;
my %DB={
base =>'DB111111',
host =>'rdbms.strato.de',
port =>'3306',
user =>'U111111',
passwd =>'passwort'
};
my $dbh = DBI->connect("DBI:mysql:database=$DB{base};host=$DB{host};port=$DB{port}",$DB{user},$DB{passwd}) or die $DBI::errstr;
my $cgi = CGI::new();
print $cgi->header();
$dbh->disconnect;