1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
package CGI::Session::Driver::mysql;
# $Id: mysql.pm 351 2006-11-24 14:16:50Z markstos $
use strict;
use Carp;
use CGI::Session::Driver::DBI;
@CGI::Session::Driver::mysql::ISA = qw( CGI::Session::Driver::DBI );
$CGI::Session::Driver::mysql::VERSION = "4.20";
sub _mk_dsnstr {
my ($class, $dsn) = @_;
unless ( $class && $dsn && ref($dsn) && (ref($dsn) eq 'HASH')) {
croak "_mk_dsnstr(): usage error";
}
my $dsnstr = $dsn->{DataSource};
if ( $dsn->{Socket} ) {
$dsnstr .= sprintf(";mysql_socket=%s", $dsn->{Socket});
}
if ( $dsn->{Host} ) {
$dsnstr .= sprintf(";host=%s", $dsn->{Host});
}
if ( $dsn->{Port} ) {
$dsnstr .= sprintf(";port=%s", $dsn->{Port});
}
return $dsnstr;
}
sub init {
my $self = shift;
if ( $self->{DataSource} && ($self->{DataSource} !~ /^dbi:mysql/i) ) {
$self->{DataSource} = "dbi:mysql:database=" . $self->{DataSource};
}
if ( $self->{Socket} && $self->{DataSource} ) {
$self->{DataSource} .= ';mysql_socket=' . $self->{Socket};
}
return $self->SUPER::init();
}
sub store {
my $self = shift;
my ($sid, $datastr) = @_;
croak "store(): usage error" unless $sid && $datastr;
my $dbh = $self->{Handle};
$dbh->do("REPLACE INTO " . $self->table_name . " (id, a_session) VALUES(?, ?)", undef, $sid, $datastr)
or return $self->set_error( "store(): \$dbh->do failed " . $dbh->errstr );
return 1;
}
# If the table name hasn't been defined yet, check this location for 3.x compatibility
sub table_name {
my $self = shift;
unless (defined $self->{TableName}) {
$self->{TableName} = $CGI::Session::MySQL::TABLE_NAME;
}
return $self->SUPER::table_name(@_);
}
1;
__END__;
=pod
=head1 NAME
CGI::Session::Driver::mysql - CGI::Session driver for MySQL database
=head1 SYNOPSIS
$s = new CGI::Session( "driver:mysql", $sid);
$s = new CGI::Session( "driver:mysql", $sid, { DataSource => 'dbi:mysql:test',
User => 'sherzodr',
Password => 'hello' });
$s = new CGI::Session( "driver:mysql", $sid, { Handle => $dbh } );
=head1 DESCRIPTION
B<mysql> stores session records in a MySQL table. For details see L<CGI::Session::Driver::DBI|CGI::Session::Driver::DBI>, its parent class.
It's especially important for the MySQL driver that the session ID column be
defined as a primary key, or at least "unique", like this:
CREATE TABLE sessions (
id CHAR(32) NOT NULL PRIMARY KEY,
a_session TEXT NOT NULL
);
=head2 DRIVER ARGUMENTS
B<mysql> driver supports all the arguments documented in L<CGI::Session::Driver::DBI|CGI::Session::Driver::DBI>. In addition, I<DataSource> argument can optionally leave leading "dbi:mysql:" string out:
$s = new CGI::Session( "driver:mysql", $sid, {DataSource=>'shopping_cart'});
# is the same as:
$s = new CGI::Session( "driver:mysql", $sid, {DataSource=>'dbi:mysql:shopping_cart'});
=head2 BACKWARDS COMPATIBILITY
For backwards compatibility, you can also set the table like this before calling C<new()>. However, it is not recommended because it can cause conflicts in a persistent environment.
$CGI::Session::MySQL::TABLE_NAME = 'my_sessions';
=head1 LICENSING
For support and licensing see L<CGI::Session|CGI::Session>.
=cut
|
