Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Comment on

( #3333=superdoc: print w/ replies, xml ) Need Help??
Hi, I'm getting a new error while executing my code, I'm trying to initialize a session in my module LoadPage like this way
$session = new CGI::Session("driver:File", $session_id, {Directory=>"$ +session_dir"}); if ($session_id eq '' or $session_id eq '$SESSIONID') { $session_id = $session->id(); }
at the begining of the package then I've a login method still in this package
#sql code to retrieve user info and compare to the password if ($user_name && $user_password) { #put into session the username and different variables $session = new CGI::Session("driver:File", $session_id, {D +irectory=>"$session_dir"}); $session->expire('+2h'); local our $id = $session->id(); $session->param( "username", "$user_name"); $session->param( "level", "$level"); $session->param("ip", "$current_ip"); clearBasket($user_name);
if I print into the browser the value of the parameter stored in the session into this function it's work but when I load another page and call the method loadPersonal I lost the data
sub loadPersonalData { open (FILE, "<$dir/personal_data.html") or die "cannot open fi +le $dir/personal_data.html"; local our $selectionIndex = $articleClass->loadArticleSelection(); +; local our $selection = $articleClass->viewArticleSelectionByIndex( +);; local our $menu = $lp->loadMenu(); local our $content; $session = new CGI::Session("driver:File", $session_id, {Directory +=>"$session_dir"}); local our $username = $session->param('username'); print "Content-Type: text/html\n\n"; print "session id $session_id<br/>"; print "username $username<br/>"; print "session dir $session_dir<br/>";
It's print the $session_dir and $session_id but not the username any idea ? That's strange because the session id doesn't change between the loading of the other page

In reply to session parameter lost by *alexandre*

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others taking refuge in the Monastery: (10)
    As of 2014-11-28 07:31 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My preferred Perl binaries come from:














      Results (193 votes), past polls