Perl Problem Code - #8358 (Perl/CGI)

renee

2006-07-19 16:04

User since
2003-08-04
14371 Artikel
ModeratorIn

[quote=GwenDragon,19.07.2006, 13:26]Falle es dir um den Teil mit dem Login geht, so in Perl (ohne Gewähr):

Code: (dl )

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.[/quote]
Also besser so:

Code: (dl )

1
2

   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";

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/