Pourquoi $ Auth-> Logningin ne vaut jamais vrai dans mon utilisation de CGI :: Session :: Auth :: DBI?

Essayez de sortir les résultats de $ session-> en-tête () code> comme première chose que vous produisez. Cela devrait définir votre cookie et charger la session existante au lieu de créer une nouvelle à chaque fois.

aussi, _login () code> effectue uniquement l'authentification avec la base de données, mais ne modifie pas le $ auth- code> objet. Utilisation de authentifier () code>, vous devez définir le nom d'utilisateur et le mot de passe à l'aide de la fonction param () code> de votre $ cgi code> objet. Vous devez définir les champs log_username code> et log_password code> pour le authentifier () code> fonction pour fonctionner. P>

#!/usr/bin/perl -w
use strict;

use CGI::Carp qw(fatalsToBrowser);

use CGI;
use CGI::Session;
use CGI::Session::Auth::DBI;

my $cgi = CGI->new;
my $session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});

my $auth = new CGI::Session::Auth::DBI({
    CGI => $cgi,
    Session => $session,
    DSN => 'dbi:mysql:dbname=foobar:host=localhost',
    DBUser => 'foo',
    DBPasswd => 'bar',
    UserTable => 'cgi_auth_user'
});

print $session->header();

$cgi->param('log_username', 'admin');
$cgi->param('log_password', 'admin');

$auth->authenticate();

if ($auth->loggedIn) {
    print "<p>logged in; go to <a href='index.pl'>index</a></p>";
} else {
    print "<p>not logged in</p>";
}