Re: Cgi-session-user Digest, Vol 2, Issue 7

On Wed, 21 Jun 2006 10:19:11 +0530, Srinivasa Rao wrote:

Hi Srini

Program:
-----><8-----
#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Session;

# ---------------

my($id) = '';
my($q)  = CGI -> new();

print "No Session ID passed in: \n";

{ # This is program 1.
        $q -> param(CGI::Session -> name() => $id);

        my($session) = CGI::Session -> new();

        print $session -> id(), '. New?: ', ($session -> is_new() ? 'Yes' : 
'No'), ".
\n";

        $id = $session -> id();
}

print "\n";
print "Valid Session ID passed in: \n";

{ # This is program 2.
        $q -> param(CGI::Session -> name() => $id);

        my($session) = CGI::Session -> new($q);

        print $session -> id(), '. New?: ', ($session -> is_new() ? 'Yes' : 
'No'), ".
\n";

        $id = $session -> id();
}
-----><8-----

Output:
-----><8-----
No Session ID passed in:
7f0e7c80669ef35b203a2001b456727e. New?: Yes.

Valid Session ID passed in:
7f0e7c80669ef35b203a2001b456727e. New?: No.
-----><8-----

Code ripped off (without ado or acknowledgement) from Cees Hek.
--
Ron Savage
ron-p/nmRYE4fVlx3z9c7Zyw2w@xxxxxxxxxxxxxxxx
http://savage.net.au/index.html