view release on metacpan or  search on metacpan

lib/Apache/Session/DBMS.pm  view on Meta::CPAN

use Apache::Session::Generate::DBMS;

use Apache::Session::Serialize::DBMS::Storable;

sub populate {
	my $self = shift;

	$self->{object_store} = new Apache::Session::Store::DBMS $self;
	$self->{lock_manager} = new Apache::Session::Lock::Null $self;
	$self->{generate}     = \&Apache::Session::Generate::DBMS::generate;
	$self->{validate}     = \&Apache::Session::Generate::DBMS::validate;

	if( exists $self->{args}->{Serialize} ) {
		my $ser   = "Apache::Session::Serialize::$self->{args}->{Serialize}";

		if (!exists $incl->{$ser}) {
			eval "require $ser" || die $@;
			eval '$incl->{$ser}->[0] = \&' . $ser . '::serialize'   || die $@;
			eval '$incl->{$ser}->[1] = \&' . $ser . '::unserialize' || die $@;

			$self->{serialize}    = $incl->{$ser}->[0];

lib/Apache/Session/Generate/DBMS.pm  view on Meta::CPAN

#############################################################################
#
# Apache::Session::Generate::DBMS;
# Generates session identifier tokens using MD5 and validate them using
# Apache::Session::DBMS extended syntax
#
# Copyright(c) 2005 Asemantics S.r.l.
# Alberto Reggiori (alberto@asemantics.com)
# Distribute under a BSD license (see LICENSE file in main dir)
#
############################################################################

package Apache::Session::Generate::DBMS;

lib/Apache/Session/Generate/DBMS.pm  view on Meta::CPAN

use Apache::Session::Generate::MD5;

$VERSION = '0.1';

sub generate {
	my $session = shift;

	&Apache::Session::Generate::MD5::generate( $session );
	};

sub validate {
	my $session = shift;

	die
		unless( $session->{isObjectPerKey} or
                	$session->{data}->{_session_id} =~ /^[a-fA-F0-9]+$/ );
	};

1;

=pod