[PERL] problème avec variable de session PHP

problème avec variable de session PHP [PERL] - Perl - Programmation

Marsh Posté le 17-04-2012 à 15:59:12    

Bonjour à tous :)
Je suis nouveau et je viens quémander votre aide =)
je suis sur un projet de Stage de migration de serveur et je bute sur un truc depuis plusieurs jours. Je vous fais le topo :
 
On a un serveur web en prod (qui marche!!) sur lequel il a un formulaire PHP, c'est un script PERL qui récupère les données du formulaire et appel une nouvelle page PHP en fonction des données remplies.
 
Mon projet est de migrer ce serveur sur un nouveau système d'exploitation, je le passe d'un Gentoo à une Debian. Jusque là tout va bien.
 
Le formulaire PHP contient un captcha dont la chaine de caractère est stockée dans un variable de session :
         $_SESSION['code']
 
Le script PERL doit récupérer cette variable, c'est qu'est le PROBLEME! il ne récupère qu'une chaine de caractère vide!!
 
voici le code du script PERL :

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use PHP::Session;
  4. use CGI;
  5. use DateTime;
  6. use MIME::Lite;
  7. my $cgi = new CGI;
  9. my $id_session = $cgi->param('id_session');
  11. my $session = PHP::Session->new($id_session, { create => 1 });
  13. my $code = $session->get('code');
  15. if( $code eq $cgi->param('code') )
  16. {
  17. ..........
  18. }
  19. else{
  20. if ( $lang eq "en" )
  21. {
  22.  print 'work in progress...';
  23.                 print "<meta http-equiv=\"refresh\" content=\"0; url=/resultat_en.php?r=4\" />";
  24. }
  25. else
  26. {
  27.  print 'traitement en cours...';
  28.  print "<meta http-equiv=\"refresh\" content=\"0; url=/resultat.php?r=4\" />";
  29. }
  30. }


 
Et voici ce qu'il y a dans le formulaire PHP :

Code :
  1. <?php
  2.     session_start();
  3. //..............(création de la variable $passe)..............
  4.     $_SESSION['code']=$passe;
  5.     $id_session = session_id();
  6. ?>


 
Après plusieurs test j'ai bien identifié que la chaine de caractère récupérée par le script PERL dans la variable $code était vide, car je satisfait la condition :
if( $code eq $cgi->param('code') )
que lorsque je ne rentre aucune donnée dans le champ code du formulaire.
 
J'ai aussi vérifié, la variable de session $_SESSION['code'] est bien remplie, elle retourne la bonne chaine de caractère (j'ai fait le test pour différentes page PHP).
 
 
étant donné qu'il n'y a pas le problème sur notre serveur en production je suis quasiment sur que ça ne vient pas du code mais plutôt d'un module que j'aurais mal installé sur la nouvelle machine?..
 
j'ai pourtant bien installé les modules PERL de la façon suivante :

Code :
  1. apt-get install rrdtool libdatetime-perl libmime-lite-perl libdbd-mysql-perl libhtml-template-expr-perl libcgi-session-perl libclass-dbi-mysql-perl -y


 
J'ai même utilisé les modules CPAN, et voilà ce que me donne la commande  
[B]perldoc perlocal[/B] :

Code :
  1. Fri Apr 13 10:16:35 2012: "Module" UNIVERSAL::require
  2.        ·   "installed into: /usr/local/share/perl/5.10.1"
  4.        ·   "LINKTYPE: dynamic"
  6.        ·   "VERSION: 0.12"
  8.        ·   "EXE_FILES: "
  10.    Fri Apr 13 10:17:13 2012: "Module" PHP::Session
  11.        ·   "installed into: /usr/local/share/perl/5.10.1"
  13.        ·   "LINKTYPE: dynamic"
  15.        ·   "VERSION: 0.26"
  17.        ·   "EXE_FILES: "
  19.    Mon Apr 16 15:14:00 2012: "Module" PHP::Session
  20.        ·   "installed into: /usr/local/share/perl/5.10.1"
  22.        ·   "LINKTYPE: dynamic"
  24.        ·   "VERSION: 0.27"
  26.        ·   "EXE_FILES: "
  28.    Mon Apr 16 15:14:42 2012: "Module" Test::Simple
  29.        ·   "installed into: /usr/local/share/perl/5.10.1"
  31.        ·   "LINKTYPE: dynamic"
  33.        ·   "VERSION: 0.98"
  35.        ·   "EXE_FILES: "
  37.    Mon Apr 16 15:14:58 2012: "Module" FCGI
  38.        ·   "installed into: /usr/local/share/perl/5.10.1"
  40.        ·   "LINKTYPE: dynamic"
  42.        ·   "VERSION: 0.74"
  44.        ·   "EXE_FILES: "
  46.    Mon Apr 16 15:15:03 2012: "Module" CGI
  47.        ·   "installed into: /usr/local/share/perl/5.10.1"
  49.        ·   "LINKTYPE: dynamic"
  51.        ·   "VERSION: 3.59"
  53.    Mon Apr 16 15:15:44 2012: "Module" MIME::Lite
  54.        ·   "installed into: /usr/local/share/perl/5.10.1"
  56.        ·   "LINKTYPE: dynamic"
  58.        ·   "VERSION: 3.028"
  60.        ·   "EXE_FILES: "
  62.    Mon Apr 16 15:25:22 2012: "Module" HTML::Template
  63.        ·   "installed into: /usr/local/share/perl/5.10.1"
  65.        ·   "LINKTYPE: dynamic"
  67.        ·   "VERSION: 2.91"
  69.        ·   "EXE_FILES: "


 
Est-ce que vous savez de quoi d'autre ça pourrait venir? sachant encore une fois que les mêmes pages fonctionnent en prod..
Je vous avoue que je suis à cours d'idées, j'ai vraiment besoin de vous!! HELP !!:calim2:

Reply

Marsh Posté le 17-04-2012 à 15:59:12   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed