Leser: 1
![]() |
|< 1 2 3 4 5 >| | ![]() |
49 Einträge, 5 Seiten |
1
2
Software error:
Can't execute statement: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'siteid FROM sites WHERE webmaster_email='counti_email=info@test.de; pat' at line 1 at spider.pl line 12.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
use CGI::Carp qw(fatalsToBrowser);
use CGI::Cookie;
use DBI;
use CGI;
my $db = DBI->connect( 'dbi:mysql:usr_web41_1', 'web41', 'xxxxxx') ||
die "Kann keine Verbindung zum MySQL-Server aufbauen: $DBI::errstr\n";
my %cookies = fetch CGI::Cookie;
my $userinfo;
if(check_login() && not validate_login() ) {
logout_user();
}
else {
my $sth = $db->prepare("SELECT * FROM sites WHERE webmaster_email=? AND webmaster_url=? LIMIT 1")
or die( "cant prepare SQL: $DBI::errstr");
$sth->execute($cookies{'email'}, $cookies{'url'} )
or die "Can't execute statement: $DBI::errstr";
$userinfo = $sth->fetchrow_hashref; # Hashreferenz!
}
#...
# später:
print 'URL: ', CGI::textfield( 'url', $userinfo->{'domain'} ),
CGI::br(),
'E-Mail: ', CGI::textfield( 'email', $userinfo->{'webmaster_email'} );
1
2
3
4
5
6
#...
# später:
use CGI;
print 'URL: ', CGI::textfield( 'url', $userinfo->{'domain'} ),
CGI::br(),
'E-Mail: ', CGI::textfield( 'email', $userinfo->{'webmaster_email'} );
print " <td width=30% bgcolor=#f8f8f8 height=50><font face=verdana color=#666666 size=2 valign=top><input size=38 type=text name=domain disabled value=http://$userinfo> </font> ";
![]() |
|< 1 2 3 4 5 >| | ![]() |
49 Einträge, 5 Seiten |