Leser: 1
![]() |
|< 1 2 3 4 5 >| | ![]() |
49 Einträge, 5 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
counti_email
info%40test.de
www.test.de/
1536
2819777024
29869581
4036353344
29797161
*
counti_password
a84492fbbe9a76425073a3c99fa31d6e
www.test.de/
1536
2819777024
29869581
4036353344
29797161
*
my $sth = $db->prepare("SELECT * FROM sites WHERE webmaster_email=? AND webmaster_url=? LIMIT 1")
my $sth = $db->prepare("SELECT * siteid FROM sites WHERE webmaster_email=? AND webmaster_url=? LIMIT 1")
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.
my $sth = $db->prepare("SELECT * siteid FROM sites WHERE webmaster_email=? AND webmaster_url=? LIMIT 1")
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
6
print qq~<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->{domain}></font></td>
<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->{webmaster_email}></font></td>~;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
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;
my $sth = $db->prepare("SELECT *, siteid FROM sites WHERE webmaster_email=? AND domain=? LIMIT 1")
or die( "cant prepare SQL: $DBI::errstr");
$sth->execute($cookies{'counti_email'}, $cookies{'url'} )
or die "Can't execute statement: $DBI::errstr";
$userinfo = $sth->fetchrow_hashref; # Hashreferenz!f;
1
2
3
4
5
6
print qq~<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->{domain}></font></td>
<td width=30% bgcolor=#f8f8f8 height=50>
<font face=verdana color=#666666 size=2 valign=top>
<input size=38 type=text name=email disabled value=http://$userinfo->{webmaster_email}></font></td>~;
value=http://$userinfo->{webmaster_email}
value="$userinfo->{webmaster_email}"
![]() |
|< 1 2 3 4 5 >| | ![]() |
49 Einträge, 5 Seiten |