Thread Perl Problem Code (48 answers)
Opened by zeus75 at 2006-07-18 10:52

GwenDragon
 2006-07-19 16:04
#8357 #8357
User since
2005-01-17
14848 Artikel
Admin1
[Homepage]
user image
Welche Werte brauchst du denn aus der Datenbank?
Zudem weiß ich nicht wie die Datenbank aufgebaut ist.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
use CGI::Cookie;
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='" . $cookies{'email'} . "' AND webmaster_url='" . $cookies{'url'} . "' LIMIT 1");
 $sth->execute() or die "Can't execute statement: $DBI::errstr";  
 $userinfo = $sth->fetchrow_hashref;


 print $userinfo->{'domain'}; # für das Feld domain in der Datenbank
}

View full thread Perl Problem Code