1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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=? AND webmaster_url=? LIMIT 1");
$sth->execute($cookies{'email'}, $cookies{'url'} ) or die "Can't execute statement: $DBI::errstr";
$userinfo = $sth->fetchrow_hashref;
}
#...
# später:
use CGI;
print 'URL: ', CGI::textfield( 'url', $userinfo->{'domain'} ),
CGI::br(),
'E-Mail: ', CGI::textfield( 'email', $userinfo->{'webmaster_email'} );
\n\n
<!--EDIT|GwenDragon|1153312569-->