Discussion :

[LiNuXaDDiKt]

Bonjour à tous,

J'aimerais solliciter votre aide car je tente de stocker mes sessions Perl/CGI dans une DB MySQL et je n'y arrive tout simplement pas.

J'ai lu, re-lu, et re-re-lu les différents documents sur CPAN et ça ne colle toujours pas...

Il semble y avoir plein d'exemple sur le NET mais je n'ai pas réussi à en trouvé un avec MySQL. Les exemples que j'ai trouvé semblent tous être le default et ça, ça fonctionne sans problème.

Si quelqu'un d'entre vous a un lien ou un exemple COMPLET sur ce que je tente de faire, ce serait fort apprécié...

Robert.

[iblis]

Je ne suis pas sûr d'avoir bien compris, tu veux loguer tes sessions CGI, c'est ça ?

Veux-tu le faire à la main ? Avec CGI::Session::Driver::mysql ?

Où cela bloque-t-il ? Peux-tu poster ton code ?

[iblis]

J'imagine que tu as lu Session Management with CGI::Session de Sherzod Ruzmetov (l'auteur principal du module).

[LiNuXaDDiKt]

J'ai finalement réussi !

Après avoir tricotté à maintes reprises, j'ai pondu ceci...

Je post ici une copie de ce qui a fonctionné pour moi juste au cas ou ça pourrait aider quelqu'un d'autre.


Table à créer pour contenir les sessions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    CREATE TABLE sessions (
        id CHAR(32) NOT NULL UNIQUE,
        a_session TEXT NOT NULL
    );

Fichier qui crée la session :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
#!/usr/bin/perl -w
#
# Fichier session.cgi
#
 
use strict;
use warnings;
 
use CGI qw/:all *table start_ul/;
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use DBI;
 
my $host = 'localhost';
my $database = 'User';
my $user = 'test';
my $password = 'test';
my $session;
 
my $dsn = "DBI:mysql:database=$database;host=$host";
 
my $dbh = DBI->connect($dsn, $user, $password) or die "Echec connexion";
 
$session = new CGI::Session("driver:MySQL", undef, {Handle=>$dbh});
 
my $CGISESSID; 
$CGISESSID = $session->id();
print $session->header();
 
print start_html( -title=>'Test Session' );
 
$session->expire('+1h');
$session->param('test', 'valeur');
 
print a({-href=>'./sessionload.cgi'}, "Cliquer");

Ficher qui charge la session après coup :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
#!/usr/bin/perl -w
#
# Fichier sessionload.cgi
#
 
use strict;
use warnings;
 
use CGI qw/:all *table start_ul/;
use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use DBI;
 
 
my $host = 'localhost';
my $database = 'User';
my $user = 'test';
my $password = 'test';
my $session;
 
my $dsn = "DBI:mysql:database=$database;host=$host";
 
my $dbh = DBI->connect($dsn, $user, $password) or die "Echec connexion";
 
$session = CGI::Session->load("driver:MySQL", undef, {Handle=>$dbh});
 
print $session->header(); #demarrage du header de session!
 
 
my $test = $session->param('test');
 
 
print start_html( -title=>'Test Session' );
 
print $test, p;

Je tiens à te remercier "iblis" pour ton aide. Le lien que tu m'a fourni a allumé des lumières.

Robert.