Apache-Session-PHP

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Apache::Session::PHP

0.05  Tue Feb  3 03:00:13 JST 2004
	* Now it works under tainting mode
	  Thanks to Ed Summers

0.04  Sat Aug 24 05:02:37 JST 2002
	- Added test for 0.04 fix

0.03  Sat Aug 24 04:34:44 JST 2002
	* Fixed bug that previous session is not correctly cleared
	  Thanks to: Andy Lester <andy@petdance.com>
                     Ed Summers <esummers@cpan.org>

MANIFEST  view on Meta::CPAN

Changes
MANIFEST
Makefile.PL
README
lib/Apache/Session/PHP.pm
lib/Apache/Session/Serialize/PHP.pm
lib/Apache/Session/Store/PHP.pm
t/00_compile.t
t/01_session.t
t/02_trunc.t
t/03_taint.t
META.yml                                 Module meta-data (added by MakeMaker)

lib/Apache/Session/Store/PHP.pm  view on Meta::CPAN

sub new {
    my $class = shift;
    bless {}, $class;
}

sub _file {
    my($self, $session) = @_;
    my $directory = $session->{args}->{SavePath} || '/tmp';
    my $file = $directory.'/sess_'.$session->{data}->{_session_id};
    ## taint safe
    ( $file ) = $file =~ /^(.*)$/;
    return( $file );
}

sub insert {
    my($self, $session) = @_;
    $self->_write($session, 1);
}

sub update {

t/03_taint.t  view on Meta::CPAN

# run things under taint mode

use strict;
use warnings;
use Test::More qw( no_plan ); 

my $sid; 
use_ok( 'Apache::Session::PHP' );

CREATE: {
    tie my %session, 'Apache::Session::PHP', $sid, { SavePath => 't' };