/usr/share/perl5/Apache/Session/Flex.pm is in libapache-session-perl 1.90-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 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 | #############################################################################
#
# Apache::Session::Flex
# Apache persistent user sessions stored however you want
# Copyright(c) 2000, 2001 Jeffrey William Baker (jwbaker@acm.org)
# Distribute under the Perl License
#
############################################################################
package Apache::Session::Flex;
use strict;
use vars qw(@ISA $VERSION);
$VERSION = '1.01';
@ISA = qw(Apache::Session);
use Apache::Session;
sub populate {
my $self = shift;
my $store = "Apache::Session::Store::$self->{args}->{Store}";
my $lock = "Apache::Session::Lock::$self->{args}->{Lock}";
my $gen = "Apache::Session::Generate::$self->{args}->{Generate}";
my $ser = "Apache::Session::Serialize::$self->{args}->{Serialize}";
for my $class ($store, $lock) {
unless ($class->can('new')) {
eval "require $class" || die $@;
}
}
unless ($gen->can('validate')) {
eval "require $gen" || die $@;
}
unless ($ser->can('serialize')) {
eval "require $ser" || die $@;
}
$self->{object_store} = new $store $self;
$self->{lock_manager} = new $lock $self;
{
no strict 'refs';
$self->{generate} = \&{$gen . '::generate'};
$self->{validate} = \&{$gen . '::validate'};
$self->{serialize} = \&{$ser . '::serialize'};
$self->{unserialize} = \&{$ser . '::unserialize'};
}
return $self;
}
1;
=pod
=head1 NAME
Apache::Session::Flex - Specify everything at runtime
=head1 SYNOPSIS
use Apache::Session::Flex;
tie %hash, 'Apache::Session::Flex', $id, {
Store => 'DB_File',
Lock => 'Null',
Generate => 'MD5',
Serialize => 'Storable'
};
# or
tie %hash, 'Apache::Session::Flex', $id, {
Store => 'Postgres',
Lock => 'Null',
Generate => 'MD5',
Serialize => 'Base64'
};
# you decide!
=head1 DESCRIPTION
This module is an implementation of Apache::Session. Unlike other
implementations, it allows you to specify the backing store, locking scheme,
ID generator, and data serializer at runtime. You do this by passing
arguments in the usual Apache::Session style (see SYNOPSIS). You may
use any of the modules included in this distribution, or a module of your
own making. If you wish to use a module of your own making, you should
make sure that it is available under the Apache::Session package namespace.
=head1 USAGE
You pass the modules you want to use as arguments to the constructor. The
Apache::Session::Whatever part is appended for you: you should not supply it.
For example, if you wanted to use MySQL as the backing store, you should give
the argument C<Store => 'MySQL'>, and not
C<Store => 'Apache::Session::Store::MySQL'>. There are four modules that you
need to specify. Store is the backing store to use. Lock is the locking scheme.
Generate is the ID generation module. Serialize is the data serialization
module.
There are many modules included in this distribution. For each role, they are:
Store:
MySQL
Postgres
DB_File
File
Lock:
Null
MySQL
Semaphore
Generate:
MD5
Serialize:
Storable
Base64
UUEncode
In addition to the arguments needed by this module, you must provide whatever
arguments are expected by the backing store and lock manager that you are
using. Please see the documentation for those modules.
=head1 AUTHOR
This module was written by Jeffrey William Baker <jwbaker@acm.org>.
=head1 SEE ALSO
L<Apache::Session::File>, L<Apache::Session::DB_File>,
L<Apache::Session::MySQL>, L<Apache::Session::Postgres>, L<Apache::Session>
|