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

GwenDragon
 2006-07-19 15:26
#8355 #8355
User since
2005-01-17
14848 Artikel
Admin1
[Homepage]
user image
Falle es dir um den Teil mit dem Login geht, so in Perl (ohne Gewähr):
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;

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";
 
  my @userinfos;
  while (my $ref = $sth->fetchrow_arrayref()) {
    push(@userinfos , [@$ref]);
  }
}


Was aber check_login() sowie validate_login() und logout_user() machen und wie sie aussehen sollen, kann ich nicht sagen.\n\n

<!--EDIT|GwenDragon|1153308496-->

View full thread Perl Problem Code