Question

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

请不要说使用Catalyst。我通常这样做，但不是在这个场合。

Answer 1

经过长时间的努力，我终于有了一个有效的解决方案：

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

你需要一个带有一个名为session的表的数据库：

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";

Answer 2

看起来我在

中找到了答案

MasonX::Request::WithApacheSession

使用html :: mason管理会话状态

2 个答案: