/usr/share/perl5/CGI/Session/Driver/mysql.pm is in libcgi-session-perl 4.48-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | package CGI::Session::Driver::mysql;
# $Id$
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.43';
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("INSERT INTO " . $self->table_name .
" ($self->{IdColName}, $self->{DataColName}) VALUES(?, ?) ON DUPLICATE KEY UPDATE $self->{DataColName} = ?",
undef, $sid, $datastr, $datastr)
or return $self->set_error( "store(): \$dbh->do failed " . $dbh->errstr );
return 1;
}
sub table_name {
my $self = shift;
return $self->SUPER::table_name(@_);
}
1;
__END__;
=pod
=head1 NAME
CGI::Session::Driver::mysql - CGI::Session driver for MySQL database
=head1 SYNOPSIS
$s = CGI::Session->new( 'driver:mysql', $sid);
$s = CGI::Session->new( 'driver:mysql', $sid, { DataSource => 'dbi:mysql:test',
User => 'sherzodr',
Password => 'hello' });
$s = CGI::Session->new( '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
);
To use different column names, change the 'create table' statement, and then simply do this:
$s = CGI::Session->new('driver:mysql', undef,
{
TableName=>'session',
IdColName=>'my_id',
DataColName=>'my_data',
DataSource=>'dbi:mysql:project',
});
or
$s = CGI::Session->new('driver:mysql', undef,
{
TableName=>'session',
IdColName=>'my_id',
DataColName=>'my_data',
Handle=>$dbh,
});
=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 = CGI::Session->new( 'driver:mysql', $sid, {DataSource=>'shopping_cart'});
# is the same as:
$s = CGI::Session->new( 'driver:mysql', $sid, {DataSource=>'dbi:mysql:shopping_cart'});
=head2 BACKWARDS COMPATIBILITY
As of V 4.30, the global variable $CGI::Session::MySQL::TABLE_NAME cannot be used to set the session
table's name.
This is due to changes in CGI::Session::Driver's new() method, which now allows the table's name to be
changed (as well as allowing both the 'id' column name and the 'a_session' column name to be changed).
See the documentation for CGI::Session::Driver::DBI for details.
In particular, the new syntax for C<new()> applies to all database drivers, whereas the old - and bad -
global variable method only applied to MySQL.
Alternately, call $session -> table_name('new_name') just after creating the session object if you wish to
change the session table's name.
=head1 LICENSING
For support and licensing see L<CGI::Session|CGI::Session>.
=cut
|