[PERL]Problème sur la gestion des sessions

**LostRailler** · 01/02/2010, 16h58

Bonjour tout le monde,

Je dois gérer des sessions en perl.
Après avoir rempli un formulaire d'authentification dans le fichier index.pl, une session se crée.

Cette étape marche parfaitement bien.
En revanche dès que je fais une action et que je veux récupérer les données de ma session, je n'y arrive pas. Je récupère un autre id.

Voici mon code.

Le formulaire :

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
 
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
 
#Affichage de la page web
#------------------------
 
print "Content-type: text/html\n\n";
print <<'EOT';
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html>
   <head>
        <title>Test Vmware</title>
   </head>
   <body>
        Accueil Vmware !
        <form action="vm_view.pl" method="post">
                <input type="hidden" Name="type" Value="Authentication" >
                Username: <input type="text" Name="username" Value="" > <br>
                Password: <input type="password" Name="password" Value="" > <br>
                <input type="submit" Name "Submit" Value="Sign">
        </form>
   </body>
</html>
EOT

Et voici le fichier appelé vm_view.pl :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
#!/usr/bin/perl
use lib qw{ blib/lib blib/auto blib/arch blib/arch/auto/VMware blib/arch/auto };
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use VMware::Vix::Simple;
use VMware::Vix::API::Constants;
#use VMware::Vix::Vm_Action;
require "vm_action.pl";
 
#Authentication
my $buffer;
if ($ENV{'REQUEST_METHOD'} eq "POST" ) {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
        $buffer = $ENV{'QUERY_STRING'};
}
 
#Treatment and cutting
my @pairs;
my $pair;
my $name;
my $value;
my %FORM;
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%(..)/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}
 
#Variable declaration
my $url = "https://test:8333/sdk";
my $err = VIX_OK;
my $hostHandle = VIX_INVALID_HANDLE;
my $vmHandle = VIX_INVALID_HANDLE;
my $hostname_printable = `hostname`; chomp($hostname_printable);
my @listVMs = ();
 
#HTML header
print "Content-type: text/html\n\n";
print <<'EOT';
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html>
        <head>
                <title>Test Vmware</title>
        </head>
        <body>
EOT
 
# Get the CGI form data
my $cgi = new CGI;
 
#Connection
if ($FORM{'type'} eq "Authentication"){
        my $username = $FORM{'username'};
        my $password = $FORM{'password'};
        ($err,$hostHandle)= Connection($url,$username,$password);
         if ($err == VIX_OK){
                print "<p><b>Welcome ".$username."</b></p>";
        }
        else {
                print "<b>Connection failed :</b><br>Error ".$err.", ".GetErrorText($err);
                exit();
        }
        #die "Connection failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
 
        #Start session
        my $session = new CGI::Session("driver:File", $cgi, {Directory=>"C:/Temp"}) or die CGI::Session->errstr;
        #my $session = new CGI::Session() or die CGI::Session->errstr;
        my $cookie = $session->cookie( -name   => $session->name,
                                      -value  => $session->id );
        #print $session->header( -cookie=>$cookie );
        print $cookie;
        #print $session->header;
 
        $session->param('username', $username);
        $session->param('password', $password);
        $session->param('handle', $hostHandle);
        print $session->param('username');
        print $session->param('password');
        print $session->param('handle');
}
else {
        my $sid = $cgi->cookie("CGISESSID") || undef;
        my $session    = new CGI::Session($sid);
        $hostHandle=$session->param('handle');
 
        print $session->header;
        #print $session->param('username');
        #print $session->param('password');
        #print $session->param('handle');
}

Je vous épargne la fin du fichier.
Est-ce que vous voyez le problème au niveau de la gestion des sessions ?

Le code me semble bon d'apres ce que j'ai vu sur Internet.

Merci d'avance si vous pouvez m'aider.

**nibroc** · 02/02/2010, 13h44

J'espère avoir compris le problème.
Voici le minimum pour récupérer les données (le fichier vm_view.pl):

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
#!/perl/bin/perl -wT
use strict ;
use CGI qw(:standard) ; 
use CGI::Carp qw(warningsToBrowser fatalsToBrowser) ;
my($type,$username,$password)=(param('type'),param('username'),param('password')) ;
print "Content-type: text/html\n\n";
print <<EOF
<html>
<head> Test</head>
<body>
type=$type <br />
username=$username <br />
pasword=$password  <br />
</body>
</html>
EOF

Sur mon ordinateur, ça marche. Comme je suis sous windows, il faut changer la première ligne. D'autre part j'ai nommé ce fichier vm_view.cgi car mon serveur n'est pas configuré pour lancer des fichiers pl.
use CGI qw(:standard) ;
permet d'utiliser CGI.pm de manière classique sans programmation orientée objet, ce qui est suffisant pour récupérer les données d'une form
La ligne :
use CGI::Carp qw(warningsToBrowser fatalsToBrowser) ;
doit être supprimée quand tout est au point, avant de mettre le fichier sur le serveur car cela pourrait aider un hacker mal intentionné.
Les lignes que j'ai placées entre <body> et </body> sont là juste pour vérifier que le script a bien récupéré les données.
En espérant que ça aide, cordialement,
Nibroc

Envoyé par LostRailler

Bonjour tout le monde,

Et voici le fichier appelé vm_view.pl :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
 
#!/usr/bin/perl
use lib qw{ blib/lib blib/auto blib/arch blib/arch/auto/VMware blib/arch/auto };
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI::Session;
use VMware::Vix::Simple;
use VMware::Vix::API::Constants;
#use VMware::Vix::Vm_Action;
require "vm_action.pl";
 
#Authentication
my $buffer;
if ($ENV{'REQUEST_METHOD'} eq "POST" ) {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
        $buffer = $ENV{'QUERY_STRING'};
}
 
#Treatment and cutting
my @pairs;
my $pair;
my $name;
my $value;
my %FORM;
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%(..)/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}
 
#Variable declaration
my $url = "https://test:8333/sdk";
my $err = VIX_OK;
my $hostHandle = VIX_INVALID_HANDLE;
my $vmHandle = VIX_INVALID_HANDLE;
my $hostname_printable = `hostname`; chomp($hostname_printable);
my @listVMs = ();
 
#HTML header
print "Content-type: text/html\n\n";
print <<'EOT';
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html>
        <head>
                <title>Test Vmware</title>
        </head>
        <body>
EOT
 
# Get the CGI form data
my $cgi = new CGI;
 
#Connection
if ($FORM{'type'} eq "Authentication"){
        my $username = $FORM{'username'};
        my $password = $FORM{'password'};
        ($err,$hostHandle)= Connection($url,$username,$password);
         if ($err == VIX_OK){
                print "<p><b>Welcome ".$username."</b></p>";
        }
        else {
                print "<b>Connection failed :</b><br>Error ".$err.", ".GetErrorText($err);
                exit();
        }
        #die "Connection failed, $err ", GetErrorText($err), "\n" if $err != VIX_OK;
 
        #Start session
        my $session = new CGI::Session("driver:File", $cgi, {Directory=>"C:/Temp"}) or die CGI::Session->errstr;
        #my $session = new CGI::Session() or die CGI::Session->errstr;
        my $cookie = $session->cookie( -name   => $session->name,
                                      -value  => $session->id );
        #print $session->header( -cookie=>$cookie );
        print $cookie;
        #print $session->header;
 
        $session->param('username', $username);
        $session->param('password', $password);
        $session->param('handle', $hostHandle);
        print $session->param('username');
        print $session->param('password');
        print $session->param('handle');
}
else {
        my $sid = $cgi->cookie("CGISESSID") || undef;
        my $session    = new CGI::Session($sid);
        $hostHandle=$session->param('handle');
 
        print $session->header;
        #print $session->param('username');
        #print $session->param('password');
        #print $session->param('handle');
}

Je vous épargne la fin du fichier.
Est-ce que vous voyez le problème au niveau de la gestion des sessions ?

Le code me semble bon d'apres ce que j'ai vu sur Internet.

Merci d'avance si vous pouvez m'aider.

**Mr6** · 02/02/2010, 14h38

Salut !

Dans ton script je ne vois comment tu passes l'info d'un appel à l'autre de ta page, et à mon avis c'est parce que tu ne passes pas ton cookie dans ton header, comme indiqué dans la doc.

Soit :

Code :

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

print header(-cookie=>$my_cookie);

au moment d'afficher ta page, et :

Code :

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

my @cookies = cookie();

au moment de récupérer les infos de ta session, qui doivent ensuite repasser dans ton header pour le prochain appel.

Ca te donnerait donc plutot :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
if ($auth) {
#creation du cookie
}
else {
#récuperation d'un cookie existant
my @cookies = cookie();
}
#
#
#écriture de la page web avec :
print header(-cookie=>$my_cookie);
#pour faire suivre le cookie le temps qu'il est censé vivre
#
#

@+
Mr6

**nibroc** · 02/02/2010, 16h25

Bonjour,
Je ne m'occupe pas de cookie, d'ailleurs je n'en ai pas vu, c'est la fonction param qui est définie dans le module CGI.pm qui fait tout le travail (y compris le décodage si nécessaire)
As-tu essayé de faire tourner mon script ? (en changeant la première ligne).
à plus
Nibroc

Envoyé par Mr6

Salut !

Dans ton script je ne vois comment tu passes l'info d'un appel à l'autre de ta page, et à mon avis c'est parce que tu ne passes pas ton cookie dans ton header, comme indiqué dans la doc.

Soit :

Code :

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

print header(-cookie=>$my_cookie);

au moment d'afficher ta page, et :

Code :

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

my @cookies = cookie();

au moment de récupérer les infos de ta session, qui doivent ensuite repasser dans ton header pour le prochain appel.

Ca te donnerait donc plutot :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
if ($auth) {
#creation du cookie
}
else {
#récuperation d'un cookie existant
my @cookies = cookie();
}
#
#
#écriture de la page web avec :
print header(-cookie=>$my_cookie);
#pour faire suivre le cookie le temps qu'il est censé vivre
#
#

@+
Mr6

**Mr6** · 02/02/2010, 20h50

Arf, désolé nibroc, c'etait pour répondre à Lost à l'origine.
Son souci est le suivi de la session une fois le cookie créé dans le code qu'il a indiqué :

Code :

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

1
2
3
4
5
6
7
8
9
 
[...]
my $session = new CGI::Session("driver:File", $cgi, {Directory=>"C:/Temp"}) or die CGI::Session->errstr;
        #my $session = new CGI::Session() or die CGI::Session->errstr;
        my $cookie = $session->cookie( -name   => $session->name,
                                      -value  => $session->id );
        #print $session->header( -cookie=>$cookie );
        print $cookie;
[...]

Pour faire un peu plus complet, le code devrait être le suivant :
le header de la page a-t-il un cookie ?
si oui je le récupère, éventuellement j'en vérifie le contenu, puis je le remets dans le header pour qu'il retourne dans le circuit de la session
la page est-elle celle d'authentification ?
si oui je crée le cookie et je le mets dans le header
enfin je crée ma page web, avec ou sans le cookie.

@+
Mr6

**nibroc** · 03/02/2010, 10h57

D'accord, Dans ce cas c'est moi qui ai mal compris, je pensais que le seul problème
était de récupérer les données (name, username et password) de la FORM. Je n'avais pas vu le cookie.
Cordialement,
Nibroc

Envoyé par Mr6

Arf, désolé nibroc, c'etait pour répondre à Lost à l'origine.
Son souci est le suivi de la session une fois le cookie créé dans le code qu'il a indiqué :

Code :

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

1
2
3
4
5
6
7
8
9
 
[...]
my $session = new CGI::Session("driver:File", $cgi, {Directory=>"C:/Temp"}) or die CGI::Session->errstr;
        #my $session = new CGI::Session() or die CGI::Session->errstr;
        my $cookie = $session->cookie( -name   => $session->name,
                                      -value  => $session->id );
        #print $session->header( -cookie=>$cookie );
        print $cookie;
[...]

Pour faire un peu plus complet, le code devrait être le suivant :
le header de la page a-t-il un cookie ?
si oui je le récupère, éventuellement j'en vérifie le contenu, puis je le remets dans le header pour qu'il retourne dans le circuit de la session
la page est-elle celle d'authentification ?
si oui je crée le cookie et je le mets dans le header
enfin je crée ma page web, avec ou sans le cookie.

@+
Mr6

[PERL]Problème sur la gestion des sessions

Web Perl

Discussions similaires

Partager

Partager