1

我正在将HTML::MasonwithApache2 mod_perl2用于一个项目，并且不确定什么是轻松管理会话状态的好方法。

请不要说使用催化剂。我通常会这样做，但这次不会。

4

2 回答 2

2

在为此苦苦挣扎了很长时间后，我终于有了一个可行的解决方案：

这是使用 mysql 存储会话数据，这样无论您访问哪个前端服务器，您都会获得相同的会话数据。

您将需要一个带有一个名为会话的表的数据库：

CREATE TABLE sessions (id char(32), length int, a_session text);

这是在我的 INC 路径中的 MySession.pm 中。

package MySession;

use DBI();
use Apache::Session::MySQL;
use Apache2::Cookie;

sub start_session($){
  my ($r) = @_;

  my $cookie_name = 'mysite-session';
  my $cookie_domain = '.mysite.com';

  my $dsn = "DBI:mysql:database=db;host=host.com";
  my $dbuser = 'admin';
  my $dbpass = 'password';


  my $dbh = DBI->connect($dsn, $dbuser, $dbpass, {'RaiseError' => 1});

  my $session_cookie = Apache2::Cookie->fetch($r)->{$cookie_name};

  my %cookie_hash;
  if(defined($session_cookie)){
    %cookie_hash = $session_cookie->value();
  } 

  tie my %session, 'Apache::Session::MySQL', $cookie_hash{SessionID}, {
    Handle     => $dbh,
    LockHandle => $dbh
  };

  my $cookie = Apache2::Cookie->new($r,
  -name => $cookie_name,
  -domain => $cookie_domain,
  -value => {SessionID => $session{_session_id}}
  );

  $cookie->bake($r);

  return \%session;
}

1;

然后在您希望使用/修改会话数据的任何页面上：

% use MySession;
% my $session = MySession::start_session($r);
% $session->{variable} = "Wow, I have a cookie";
于 2012-11-27T22:47:09.030 回答
0

看起来我已经找到了答案

MasonX::Request::WithApacheSession
于 2011-11-06T21:14:21.057 回答