Perl电商应用使用CGI::Application::Plugin::Session如何避免重复创建会话

注意：与相关线程类似但仍存在差异。

在一款自制电商应用中，当商品添加至购物车时，所有实例共用的Perl模块会创建包含order_id参数的会话，配置代码如下：

$self->session_config(
    DEFAULT_EXPIRY => '+4h',
    COOKIE_PARAMS  => {
        -name    => 'ECOMM_SESSID',
        -expires => '+4h',
        -path    => '/',
        -domain  => '.mydomain.com',
    },
    SEND_COOKIE => 1
);

该实例由cart.cgi触发并调用Cart.pm。查看购物车时，变量输出显示：

• $self->session->param( 'order_id' ) = 4123
• session id = 1111111*
• ECOMM_SESSID cookie存在于请求头†

添加其他商品时，变量输出始终保持上述值。

点击“结账”后，shipping.cgi触发并调用Shipping.pm，模块的cgiapp_prerun阶段会检查order_id参数是否存在，但数据输出显示：

• $self->session->param( 'order_id' ) = null
• session id = 2222222*
• ECOMM_SESSID cookie缺失于请求头†

此时会创建新会话，导致order_id参数丢失。但返回购物车页面时，原有数据仍存在。

现需解决：如何阻止创建新会话，保留原有会话及结账流程所需的参数值？

*为简化表述
†数据来自浏览器开发者工具

核心定位 #

问题根源在于shipping.cgi发起请求时未携带ECOMM_SESSID Cookie，导致Perl会话模块无法识别原有会话，进而创建新会话。

解决步骤 #

1. 校验域名与协议匹配 #

• 确认shipping.cgi所在域名属于.mydomain.com子域名范围，避免跨域名场景（如从http://mydomain.com跳转到https://checkout.mydomain.com时，协议不一致会导致Cookie不携带）。
• 若站点启用HTTPS，需在COOKIE_PARAMS中添加-secure => 1，确保Cookie仅通过HTTPS传输。

2. 统一会话配置 #

确保Shipping.pm与Cart.pm使用完全一致的会话配置：

• 检查Shipping.pm是否调用了相同的session_config代码，若配置存在差异（如Cookie名称、域名不一致），会导致无法识别原有会话。
• 建议将会话配置抽离到公共模块，所有CGI脚本统一引用，避免配置不一致。

3. 兜底：手动传递会话ID #

若配置检查无误仍有问题，可在结账跳转时手动传递会话ID：

• 在购物车页面的结账链接中添加会话ID参数，如：/shipping.cgi?sessid=1111111。
• 在Shipping.pm的cgiapp_prerun阶段优先从URL参数获取会话ID并初始化：

sub cgiapp_prerun {
    my $self = shift;
    my $sessid = $self->query->param('sessid') || $self->cookie('ECOMM_SESSID');
    if ($sessid) {
        $self->session->init({ id => $sessid });
    }
    # 后续检查order_id逻辑
}

4. 排查浏览器设置 #

引导用户检查浏览器是否允许第三方Cookie（若结账页面在不同子域名），或是否启用隐私模式导致Cookie无法持久化。

内容的提问来源于stack exchange，提问作者breadwild