/usr/share/perl5/Apache/Session/Store/DBI.pm is in libapache-session-perl 1.93-2.
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 | #############################################################################
#
# Apache::Session::Store::DBI
# A base class for the MySQL, Postgres, and other DBI stores
# Copyright(c) 2000, 2004 Jeffrey William Baker (jwbaker@acm.org)
# Distribute under the Perl License
#
############################################################################
package Apache::Session::Store::DBI;
use strict;
use DBI;
use vars qw($VERSION);
$VERSION = '1.02';
$Apache::Session::Store::DBI::TableName = "sessions";
sub new {
my $class = shift;
return bless { table_name => $Apache::Session::Store::DBI::TableName }, $class;
}
sub insert {
my $self = shift;
my $session = shift;
$self->connection($session);
local $self->{dbh}->{RaiseError} = 1;
if (!defined $self->{insert_sth}) {
$self->{insert_sth} =
$self->{dbh}->prepare_cached(qq{
INSERT INTO $self->{'table_name'} (id, a_session) VALUES (?,?)});
}
$self->{insert_sth}->bind_param(1, $session->{data}->{_session_id});
$self->{insert_sth}->bind_param(2, $session->{serialized});
$self->{insert_sth}->execute;
$self->{insert_sth}->finish;
}
sub update {
my $self = shift;
my $session = shift;
$self->connection($session);
local $self->{dbh}->{RaiseError} = 1;
if (!defined $self->{update_sth}) {
$self->{update_sth} =
$self->{dbh}->prepare_cached(qq{
UPDATE $self->{'table_name'} SET a_session = ? WHERE id = ?});
}
$self->{update_sth}->bind_param(1, $session->{serialized});
$self->{update_sth}->bind_param(2, $session->{data}->{_session_id});
$self->{update_sth}->execute;
$self->{update_sth}->finish;
}
sub materialize {
my $self = shift;
my $session = shift;
$self->connection($session);
local $self->{dbh}->{RaiseError} = 1;
if (!defined $self->{materialize_sth}) {
$self->{materialize_sth} =
$self->{dbh}->prepare_cached(qq{
SELECT a_session FROM $self->{'table_name'} WHERE id = ?});
}
$self->{materialize_sth}->bind_param(1, $session->{data}->{_session_id});
$self->{materialize_sth}->execute;
my $results = $self->{materialize_sth}->fetchrow_arrayref;
if (!(defined $results)) {
die "Object does not exist in the data store";
}
$self->{materialize_sth}->finish;
$session->{serialized} = $results->[0];
}
sub remove {
my $self = shift;
my $session = shift;
$self->connection($session);
local $self->{dbh}->{RaiseError} = 1;
if (!defined $self->{remove_sth}) {
$self->{remove_sth} =
$self->{dbh}->prepare_cached(qq{
DELETE FROM $self->{'table_name'} WHERE id = ?});
}
$self->{remove_sth}->bind_param(1, $session->{data}->{_session_id});
$self->{remove_sth}->execute;
$self->{remove_sth}->finish;
}
1;
|