use strict;

use DBI;

use Apache::Session::MySQL;



my %session;



#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};



#...time passes...



#get the session data back out again during some other request

my %session;

tie %session, 'Apache::Session::MySQL', $id;



print($session{visa_number});



#delete a session from the object store permanently

tied(%session)->delete;

Content-type:text/html

Can't connect( HASH(0x19ec484)), no database driver specified and DBI_DSN env
var not set at C:/Perl/lib/Apache/Session/Lock/MySQL.pm line 36

use Apache::Session::MySQL;

#if you want Apache::Session to open new DB handles:

tie %hash, 'Apache::Session::MySQL', $id, {
DataSource => 'dbi:mysql:sessions',
UserName => $db_user,
Password => $db_pass,
LockDataSource => 'dbi:mysql:sessions',
LockUserName => $db_user,
LockPassword => $db_pass
};

#or, if your handles are already opened:

tie %hash, 'Apache::Session::MySQL', $id, {
Handle => $dbh,
LockHandle => $dbh
};

#!C:\Perl\bin\Perl.exe
print "Content-type:text/html\n\n";

use strict;
use DBI;
use Apache::Session::MySQL;

my $db="Sensei-d";
my $host="localhost";
my $user="****";
my $password="****";
my $Database = DBI->connect ("DBI:mysql:$db:$host",
$user,
$password)
or die "Can't connect to database: $DBI::errstr<br>";

#make a fresh session for a first-time visitor
my %session;
tie %session, 'Apache::Session::MySQL', undef, {
Handle => $Database,
LockHandle => $Database
};

#stick some stuff in it
$session{visa_number} = "1234 5678 9876 5432";

#get the session id for later use
my $id = $session{_session_id};

#...time passes...

#get the session data back out again during some other request
my %session;
tie %session, 'Apache::Session::MySQL', $id;

print($session{visa_number});

#delete a session from the object store permanently
tied(%session)->delete;

#...time passes...

#get the session data back out again during some other request
my %session;
tie %session, 'Apache::Session::MySQL', $id;