如何在 CGI::Session 中更改域？

Question

我想使用 CGI::Session 模块来实现我的网站会话。 我想以适合我想要的域的方式更改会话 cookie。

例如，我有两个站点，www.mysite.com 和 dev.mysite.com

在这种情况下，我希望会话 cookie 域为 mysite.com。

我尝试使用该模块，但它只保留脚本的域，我想更改它。

有办法吗？因为我查看了文档并没有找到任何东西。

Answer 1

首先，如果您希望 cookie 对 www.mysite.com 和 dev.mysite.com 都可见，则 cookie 需要绑定到 .mysite.com，而不是 mysite.com。

关于这个问题。

print $session->header( ... );

被记录为一个快捷方式

my $cookie = CGI::Cookie->new(
   -name  => $session->name,
   -value => $session->id,
);
print $cgi->header( -cookie => $cookie, ... );

所以你可以使用

my $cookie = CGI::Cookie->new(
   -name   => $session->name,
   -value  => $session->id,
   -domain => '.mysite.com',
);
print $cgi->header( -cookie => $cookie );