/usr/share/perl5/Apache/SessionX/Manager.pm is in libapache-sessionx-perl 2.01-4.
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 | ###################################################################################
#
# Apache::SessionX - Copyright (c) 1999-2001 Gerald Richter / ecos gmbh
# Copyright(c) 1998, 1999 Jeffrey William Baker (jeffrey@kathyandjeffrey.net)
#
# You may distribute under the terms of either the GNU General Public
# License or the Artistic License, as specified in the Perl README file.
#
# THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
# $Id: Manager.pm,v 1.1 2002/03/12 08:50:32 richter Exp $
#
###################################################################################
package Apache::SessionX::Manager ;
use strict;
use vars qw(@ISA $VERSION);
$VERSION = '2.00b5';
use Apache::Session;
use Apache::SessionX::Config ;
sub new
{
my $class = shift;
my $args = shift || {};
if(ref $args ne "HASH")
{
die "Additional arguments should be in the form of a hash reference";
}
my $config = $args -> {config} || $Apache::SessionX::Config::default;
foreach my $cfg (keys (%{$Apache::SessionX::Config::param{$config}}))
{
$args -> {$cfg} = $Apache::SessionX::Config::param{$config} -> {$cfg} if (!exists $args -> {$cfg}) ;
}
my $self =
{
args => $args,
};
bless $self, $class;
Apache::SessionX -> require_modules ($args) ;
Apache::SessionX::populate ($self) ;
return $self ;
}
sub count_sessions
{
my $self = shift;
return $self->{object_store}->count_sessions($self);
}
sub first_session_id
{
my $self = shift;
return $self->{object_store}->first_session_id($self);
}
sub next_session_id
{
my $self = shift;
return $self->{object_store}->next_session_id($self);
}
sub first_session
{
my $self = shift;
my %session ;
my $id = $self -> first_session_id ;
return undef if (!$id) ;
tie %session, 'Apache::SessionX', $id, $self -> {args} ;
return \%session ;
}
sub next_session
{
my $self = shift;
my $id = $self -> next_session_id ;
my %session ;
return undef if (!$id) ;
tie %session, 'Apache::SessionX', $id, $self -> {args} ;
return \%session ;
}
|