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

GwenDragon
 2006-07-19 16:34
#8366 #8366
User since
2005-01-17
14848 Artikel
Admin1
[Homepage]
user image
Code: (dl )
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-->

View full thread Perl Problem Code