here is a test script i created to understand the basics, everyone feel free
to rip it apart, through mistakes we learn
:)
<<<:code:>>>
#!/usr/bin/perl
use strict;
use Apache::Session::MySQL;
use CGI;
=cut
SYNOPSIS
#make a fresh session for a first-time visitor
tie %session, 'Apache::Session::MySQL';
#stick some stuff in it
$session{visa_number} = "1234 5678 9876 5432";
#get the session id for later use
my $id = $session{_session_id};
#get the session data back out again during some other request
my %session;
tie %session, 'Apache::Session::MySQL', $id;
&validate($session{visa_number});
#delete a session from the object store permanently
tied(%session)->delete;
=cut
my $driver="mysql";
my $dbname="session";
my $host="127.0.0.1";
my $user="user";
my $password="password";
my $dbh = DBI->connect(
"dbi:$driver(PrintError=>1,RaiseError=>1,Taint=>1):dbname=$dbname;host=$host
", $user, $password ) or die $!;
my $q=CGI->new;
my $id=$q->param('get_id');
my $visa_number=$q->param('visa_number');
tie my %hash, 'Apache::Session::MySQL',$id , {Handle =>
$dbh,LockHandle=>$dbh};
if (!$id && $visa_number){
$hash{visa_number}=$visa_number;
}
$dbh->disconnect;
use Data::Dumper;
print Data::Dumper->Dump([%hash]);
<<<:code:>>>
i dont know if this is too relevant but i posted this on perlmonks.org:
http://www.perlmonks.org/index.pl?node_id=292469
this node contains a bit of instruction on how to check for expired sessions
using CGI::Session
> -----Original Message-----
> From: Charlie Smith [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, June 29, 2004 9:43 AM
> To: [EMAIL PROTECTED]
> Subject: [mp1] session variables - how to use?
>
>
> What is recommended way to get/set session variables? Is there a
> recommended
> package to use with
> examples please?
>
>
> Currently am using Apache/1.3.28 (Unix) mod_perl/1.28 PHP/4.3.1
> mod_ssl/2.8.15
> OpenSSL/0.9.7d
> but plan on moving to Apache 2 at some time.
>
> Charlie ;)
>
> "Postmaster" made the following annotations.
> ------------------------------------------------------------------
> ------------
> This message may contain confidential information, and is
> intended only for
> the use of the individual(s) to whom it is addressed.
> ==================================================================
> ============
>
>
> --
> Report problems: http://perl.apache.org/bugs/
> Mail list info: http://perl.apache.org/maillist/modperl.html
> List etiquette: http://perl.apache.org/maillist/email-etiquette.html
>
>
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
