Hey!
I need to create Perl sessions, similar to the one found here:
http://jan.netcomp.monash.edu.au/ecommerce/perl_session.html
I don’t think Perl can do sessions natively, like PHP can. So, how would I go about getting a module for Perl Sessions? THANKS!
# Object initialization:
use CGI::Session;
my $session = new CGI::Session("driver:File", undef, {Directory=>'/tmp'});
# getting the effective session id:
my $CGISESSID = $session->id();
# storing data in the session
$session->param('f_name', 'Sherzod');
# or
$session->param(-name=>'l_name', -value=>'Ruzmetov');
# retrieving data
my $f_name = $session->param('f_name');
# or
my $l_name = $session->param(-name=>'l_name');
# clearing a certain session parameter
$session->clear(["_IS_LOGGED_IN"]);
# expire '_IS_LOGGED_IN' flag after 10 idle minutes:
$session->expire(_IS_LOGGED_IN => '+10m')
# expire the session itself after 1 idle hour
$session->expire('+1h');
# delete the session for good
$session->delete();
Wow! Quick reply!!! GREAT THANKS A MILLION! 
UGH, stupid Perl. I can’t get the module to install! How do you do it?
I thought it was
ppm install File.pm ??? (windows server 2003)
ARG, screw it, although sessions would be nice, perl is just such a ***** to use sometimes. Thanks for your help, but I dont need sessions this much.
Do a
ppm search session
And then if it finds it:
ppm install CGI-Session
I donno man, my perl is ****ed to the sky. And all I ended up downloading from that session article above was “File.pm” WTF?! And my perl doesnt even have “Makefile.PL” and I dont see how THAT would install modules, when the command is just like
Makefile.pl
nmake
nmake test
???How the **** would that install a module?!!! ARG 
Download this file:
http://search.cpan.org/CPAN/authors/id/S/SH/SHERZODR/CGI-Session-3.95.tar.gz
Extract the contents to your Perl CGI library location, which considering you’re using Activeperl by the looks of it, should be something like C:\Perl\lib\CGI
You should now have a folder that includes the following files:
lib
–CGI (dir)
----Session.pm
----Session (dir)
--------Blueprint.pm
--------DB_File.pm
--------Cookbook.pm
--------Example.pm
--------File.pm
--------MySQL.pm
--------PostgreSQL.pm
--------Tutorial.pm
--------ID (dir)
------------Incr.pm
------------MD5.pm
------------SHA1.pm
--------Serialize (dir)
------------Default.pm
------------FreezeThaw.pm
------------Storable.pm
As long as you have those files in your library path then the module should work just fine.
HOLY CRAP YOU’RE NICE!
I got it working! Sort of…
Now, once I create a session, how do I get data from it, without creating a new session?! Like, to get at the data from a different page, without re-generating a session id
Okay. This is really pissing me off again…
Can somone just paste code on:
Creating a session, and adding one value to one variable
Opening a session, and reading one value to one variable
read the man pages, man. Then come back with any questions that couldn’t be answered. If they are too difficult or arduous for you, then so is programming.
note: we’re using cookies here… gonna have to set them yourself… or you can use the query string to pass the session id around
use strict;
use CGI::Session;
use CGI;
#see if I have a session already… or do I need to create a new one.
my $sid = $cgi->cookie(“CGISESSID”) || undef;
#create my session or open existing session
my $session = new CGI::Session(undef, $sid, {Directory=>‘c:/temp/session/’});
#set a 1hour limit on the session
$session->expire(“+1h”);
#flag logged in…
$session->param(“~logged-in”,1);
#write to disk
$session->flush();
… blah blah blah…
#read some session parameter…
if($session->param(“happy”) eq “no”)
{ print "so?
"; }
–tabo
I have installed the Perl Module Session …but I am still not sure that how could I retrieve session parameters from page other than other page which has stored the session varibales …
Regards
Noman
session parameters are stored in whatever way you decided when creating the session…
ie: $session = new CGI::Session(“driver:File”, $cgi, {Directory=>‘/tmp’});
that means the parameters are stored in a plain text file in /tmp. The filename is usually the session id…
you can chose to store it in a database as well.
t
Can ypou please provide me the code to access those parameters from that tmp file … The code would be a real help
Once agian Thanks for your quick reply
Regards
Noman
i posted some code in the thread already… no need for me to repost the code, just look there…
t
Thanx for quick reply …I saw your code but I guess you are reading the session parametrs on the same page … I wanna read the parameters value on the different page , I am a new bie so I could be the wrong but I didnt succeed reading parameters value on 2nd page using your code , can you please please provide me code for the second page …by 2nd page I mean any page in the application that tries to access session parameters other than the page that has actually stored value…
Once again thanks for your help
Regards
Noman
use strict;
use CGI::Session;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
#create a new CGI object.
my $cgi = new CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 512 * 1024; # limit posts to 512K max
#create my session
my $session = new CGI::Session(undef, $sid, {Directory=>‘c:/temp/session/’});
#set a cookie to remember the session id
#and create the cookie with an 1hour limit
my $cookie = $cgi->cookie(-name=>“CGISESSID”,
-value=>$sid,
-expires=>“+1h”,
-path=>“/”);
#set the cookie…
print $cgi->header(-cookie => $cookie );
#set the session to expire in 1 hour
$session->expire(“+1h”);
#store some parameters
$session->param(“today”, “Monday”);
$session->flush(); #flush it out to disk…
On another page… you would pretty much the same thing… . except, instead of setting the cookie… you want to retrieve the cookie… The cookie will contain the session id which you use to ‘reconnect’ to the session and get at its paramets…
use strict;
use CGI::Session;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
#create a new CGI object.
my $cgi = new CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 512 * 1024; # limit posts to 512K max
#get my cookie… or set it to undef
$sid = $cgi->cookie(“CGISESSID”) || undef;
#if the cookie contains a valid session id, use the old one…
#if its undef’d create a new session…
my $session = new CGI::Session(undef, $sid, {Directory=>‘c:/temp/session/’});
#get at a session parameters
print $session->param(“today”);
using cookies is one way of tracking the session id… you can append the session id to the query string if you want to.
hope this helps.
t
Thanx for your replies and helping me … Now I am feeling myself dumb *** … I still cant retieve values on 2nd page … I feel like crying … It does not print any thing on 2nd page and 2nd page generate new session id always … Please please help me … I have lost … please see my commenst with your code …please please
Thanx in advance
Regards
Noman
Code on PAge 1
#use strict; *** I HAVE TO COMMENT IT OW IT ASK $sid
TO INITIALIZE ***
use CGI::Session;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 512 * 1024; # limit posts to 512K max
my $session = new CGI::Session(undef, $sid , {Directory=>‘c:/temp/session/’});
******** WAHTS is $sid in above line *******
my $cookie = $cgi->cookie(-name=>“CGISESSID”, -value=>$sid, -expires=>“+1h”, -path=>“/”);
print $cgi->header(-cookie => $cookie );
$session->expire(“+1h”);
$session->param(“today”, “Monday”);
$session->flush(); #flush it out to disk…
Page 2 Code
use CGI::Session;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
$CGI::DISABLE_UPLOADS = 1; # Disable uploads
$CGI::POST_MAX = 512 * 1024; # limit posts to 512K max
$sid = $cgi->cookie(“CGISESSID”) || undef; # WHAT is CGISESSID
my $session = new CGI::Session(undef, $sid, {Directory=>‘c:/temp/session/’});
print $session->param(“today”); ## does not print any thing
I have been experiminting with with following code and come to the following conclusion that in code for page 1 you created a cookie named CGISESSID and its value is session id and on page 2 , u got session created on page 1 via CGISESSID named cookie’s value …but problem is that code on page 2 cant find the cookie name CGISESSID thatswhy it always create new session …How do I know that …it creates one file in temp dir after running code 1 and another after running code of page 2 … if I can come to know why code on page 2 cant find cookie named CGISESSID …my problem would be solved … Help please Gurus
I am new bie to perl so please excuse me if all above is rubbish …
Regards
Noman
Code for Page 1
use CGI::Session;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
$session = new CGI::Session(undef, undef , {Directory=>‘c:/temp/session/’});
$cookie = $cgi->cookie(CGISESSID => $session->id );
print $cgi->header(-cookie => $cookie );
$session->param(“today”, “Monday”);
$session->flush(); #flush it out to disk…
Code for Page 2
use CGI::Session;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
$sid = $cgi->cookie(“CGISESSID”) || undef;
my $session = new CGI::Session(undef, $sid, {Directory=>‘c:/temp/session/’});
print $session->param(“today”);