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

[Ron S. <ro...@sa...>]

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
ro...@sa...
http://savage.net.au/index.html