Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
DBI.pm	2.89 KB	-rw-r--r--
DB_File.pm	3.35 KB	-rw-r--r--
File.pm	4.68 KB	-rw-r--r--
Informix.pm	4.6 KB	-rw-r--r--
MySQL.pm	3.44 KB	-rw-r--r--
Oracle.pm	4.68 KB	-rw-r--r--
Postgres.pm	4.69 KB	-rw-r--r--
Sybase.pm	7.71 KB	-rw-r--r--

Code Editor : DBI.pm

#############################################################################
#
# Apache::Session::Store::DBI
# A base class for the MySQL, Postgres, and other DBI stores
# Copyright(c) 2000, 2004 Jeffrey William Baker (jwbaker@acm.org)
# Distribute under the Perl License
#
############################################################################

package Apache::Session::Store::DBI;

use strict;
use DBI;

use vars qw($VERSION);

$VERSION = '1.02';

$Apache::Session::Store::DBI::TableName = "sessions";

sub new {
    my $class = shift;

return bless { table_name => $Apache::Session::Store::DBI::TableName }, $class;
}

sub insert {
    my $self    = shift;
    my $session = shift;
 
    $self->connection($session);

local $self->{dbh}->{RaiseError} = 1;

if (!defined $self->{insert_sth}) {
        $self->{insert_sth} = 
            $self->{dbh}->prepare_cached(qq{
                INSERT INTO $self->{'table_name'} (id, a_session) VALUES (?,?)});
    }

$self->{insert_sth}->bind_param(1, $session->{data}->{_session_id});
    $self->{insert_sth}->bind_param(2, $session->{serialized});
    
    $self->{insert_sth}->execute;

$self->{insert_sth}->finish;
}

sub update {
    my $self    = shift;
    my $session = shift;
 
    $self->connection($session);

local $self->{dbh}->{RaiseError} = 1;

if (!defined $self->{update_sth}) {
        $self->{update_sth} = 
            $self->{dbh}->prepare_cached(qq{
                UPDATE $self->{'table_name'} SET a_session = ? WHERE id = ?});
    }

$self->{update_sth}->bind_param(1, $session->{serialized});
    $self->{update_sth}->bind_param(2, $session->{data}->{_session_id});
    
    $self->{update_sth}->execute;

$self->{update_sth}->finish;
}

sub materialize {
    my $self    = shift;
    my $session = shift;

$self->connection($session);

local $self->{dbh}->{RaiseError} = 1;

if (!defined $self->{materialize_sth}) {
        $self->{materialize_sth} = 
            $self->{dbh}->prepare_cached(qq{
                SELECT a_session FROM $self->{'table_name'} WHERE id = ?});
    }
    
    $self->{materialize_sth}->bind_param(1, $session->{data}->{_session_id});
    
    $self->{materialize_sth}->execute;
    
    my $results = $self->{materialize_sth}->fetchrow_arrayref;

if (!(defined $results)) {
        die "Object does not exist in the data store";
    }

$self->{materialize_sth}->finish;

$session->{serialized} = $results->[0];
}

sub remove {
    my $self    = shift;
    my $session = shift;

$self->connection($session);

local $self->{dbh}->{RaiseError} = 1;

if (!defined $self->{remove_sth}) {
        $self->{remove_sth} = 
            $self->{dbh}->prepare_cached(qq{
                DELETE FROM $self->{'table_name'} WHERE id = ?});
    }

$self->{remove_sth}->bind_param(1, $session->{data}->{_session_id});
    
    $self->{remove_sth}->execute;
    $self->{remove_sth}->finish;
}

${this.title}

Code Editor : DBI.pm