/usr/share/perl5/Apache/Session/SQLite3.pm is in libapache-session-sqlite3-perl 0.03-1.
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 | package Apache::Session::SQLite3;
$Apache::Session::SQLite3::VERSION = '0.03';
use strict;
use base 'Apache::Session';
use DBD::SQLite 1.00;
use Apache::Session;
use Apache::Session::Lock::Null;
use Apache::Session::Store::SQLite3;
use Apache::Session::Generate::MD5;
use Apache::Session::Serialize::Storable;
sub populate {
my $self = shift;
$self->{object_store} = Apache::Session::Store::SQLite3->new($self);
$self->{lock_manager} = Apache::Session::Lock::Null->new($self);
$self->{generate} = \&Apache::Session::Generate::MD5::generate;
$self->{validate} = \&Apache::Session::Generate::MD5::validate;
$self->{serialize} = \&Apache::Session::Serialize::Storable::serialize;
$self->{unserialize} = \&Apache::Session::Serialize::Storable::unserialize;
return $self;
}
1;
=head1 NAME
Apache::Session::SQLite3 - Use DBD::SQLite 1.x for Apache::Session storage
=head1 VERSION
This document describes version 0.03 of Apache::Session::SQLite3, released
February 2, 2005.
=head1 SYNOPSIS
use Apache::Session::SQLite3;
tie %hash, 'Apache::Session::SQLite3', $id, {
DataSource => 'dbi:SQLite:dbname=/tmp/session.db'
};
# to purge all sessions older than 30 days, do this:
tied(%hash)->{object_store}{dbh}->do(qq[
DELETE FROM Sessions WHERE ? > LastUpdated
], {}, time - (30 * 86400));
=head1 DESCRIPTION
This module is an implementation of Apache::Session. It uses the DBD::SQLite
backing store. It requires DBD::SQLite version 1.00 or above, due to its use
of SQLite3 API for BLOB support. Also, an extra C<LastUpdated> field is
populated with the current C<time()>.
There is no need to create the data source file beforehand; this module creates
the C<session> table automatically.
=head1 AUTHOR
Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>
=head1 COPYRIGHT
Copyright 2004, 2005 by Autrijus Tang E<lt>autrijus@autrijus.orgE<gt>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=head1 SEE ALSO
L<Apache::Session>, L<Apache::Session::SQLite>, L<DBD::SQLite>
=cut
|