comment on

package CGI::Application::Session;

use base qw/ CGI::Application /;
use strict;

use Apache::Session::File;

sub cgiapp_init {
    my $self = shift;
    my $cgi = $self->query;

    my $params;
    if (ref($_[0]) eq 'HASH') {
        $params = $self->_cap_hash(%{ $_[0] });
    } else {
        $params = $self->_cap_hash({ @_ });
    }

    my $id = $cgi->cookie(
        -name   =>  ( $params->{'SESSIONS_NAME'} || 'CGI::Application:
+:Session' ),
        -path   =>  ( $params->{'SESSIONS_PATH'} || '/' )
    );
    my %session;
    if (defined $id) {
        tie %session, 'Apache::Session::File', $id;
    } else {
        tie %session, 'Apache::Session::File';
        $id = $session{'_session_id'};
    }
    $self->{'__SESSION_OBJ'} = \%session;
    $self->{'__SESSION_ID'} = $id;

    $self->header_props(
        -cookie  =>  $cgi->cookie(
            -expires =>  ( $params->{'SESSIONS_EXPIRY'} || '+1y' ),
            -name    =>  ( $params->{'SESSIONS_NAME'} || 'CGI::Applica
+tion::Session' ),
            -path    =>  ( $params->{'SESSIONS_PATH'} || '/' ),
            -value   =>  $id
        )
    );

    return $self;
}

1;

__END__
[download]

In reply to CGI::Application::Session - A stateful extension to CGI::Application by rob_au

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


Perl: the Markov chain saw
	PerlMonks