From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

FRODWITH / WebGUI-PSGI-0.2 / lib / WebGUI / PSGI / Middleware / Session.pm 

            

              
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

              
package WebGUI::PSGI::Middleware::Session;
our $VERSION = '0.2';
use base qw(Plack::Middleware);
use Plack::Response;
use warnings;
use strict;
=head1 LEGAL
 -------------------------------------------------------------------
  WebGUI is Copyright 2001-2009 Plain Black Corporation.
 -------------------------------------------------------------------
  Please read the legal notices (docs/legal.txt) and the license
  (docs/license.txt) that came with this distribution before using
  this software.
 -------------------------------------------------------------------
  http://www.plainblack.com                     info@plainblack.com
 -------------------------------------------------------------------
=cut
=head1 NAME
WebGUI::PSGI::Middleware::Session
=head1 VERSION
version 0.2
=head1 DESCRIPTION
Ensure a wgSession variable in the environment hash.  
=head1 SYNOPSIS
    builder {
        enable '+WebGUI::PSGI::Middleware::Session';
        $app;
    }
=head1 ENVIRONMENT
In the incoming environment, if a wgSession variable is found, that is simply
passed through.  Otherwise, both the env hash and the %ENV hash are checked
for WEBGUI_ROOT (default: /data/WebGUI) and WEBGUI_CONFIG (will die if none is
found), and the cookies are used to determine a session id.
=cut
sub call {
    my ($self, $env) = @_;
    my $session;
    unless ($session = $env->{wgSession}) {
        my $root = $env->{WEBGUI_ROOT} 
            || $ENV{WEBGUI_ROOT}
            || '/data/WebGUI';
        my $configFile = $env->{WEBGUI_CONFIG} 
            || $ENV{WEBGUI_CONFIG}
            || die q(Couldn't find a WebGUI config);
        require WebGUI::Config;
        require WebGUI::Session;
        my $config = WebGUI::Config->new($root, $configFile);
        require Plack::Request;
        my $request = Plack::Request->new($env);
        my $cookie = $request->cookies->{$config->getCookieName};
        $session = $env->{wgSession} = WebGUI::Session->open(
            $root, $configFile, undef, undef, $cookie
        );
    }
    my $path = $env->{SCRIPT_NAME} || '/';
    local $env->{'psgi.url_scheme'} = 'https' if ($env->{HTTP_SSLPROXY});
    my $response = Plack::Response->new(@{ $self->app->($env) });
    $response->cookies->{$session->config->getCookieName} = {
        value => $session->getId,
        path  => $path,
    };
    return $response->finalize;
}
1;