CGI::Minimal的问题

Question

我的现有代码在普通cgi上工作得很好

#!/usr/bin/env perl
use strict;
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session;

my ( $session, $cgi);

$cgi = new CGI();
$cgi->charset('UTF-8');

$session = new CGI::Session( "driver:File;serializer:Storable",
    $cgi, { Directory => '../home/tmp' } );
$session->expire( 'authorized', '1440m' );

切换到CGI::Minimal会导致CGI::Session出错

#!/usr/bin/env perl
use strict;
use CGI::Minimal;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session;

my ( $session,  $cgi);

my $cgi = CGI::Minimal->new;

$session = new CGI::Session( "driver:File;serializer:Storable",
    $cgi, { Directory => '../web/tmp' } ) or or die CGI::Session->errstr();
$session->expire( 'authorized', '1440m' );

错误

Can't call method "expire" on an undefined value at /var/webserver/iris/htdocs/index.cgi line 13.

编辑:添加or die CGI::Session->errstr()后

new(): failed: query object CGI::Minimal=HASH(0x9916a64) does not support cookie() and param() methods: 

不太确定是什么导致了这一点，真的很感谢你的见解。

Answer 1

由于CGI::Minimal确实是相当小的，所以您必须自己处理Cookie，并将手动检索的session_id而不是cgi对象传递给CGI::Session构造函数。

use warnings;
use strict;

use CGI::Cookie;
use CGI::Minimal;

use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session;

my $cgi = CGI::Minimal->new();

my %cookies = CGI::Cookie->fetch;

my $session_id;

if( defined $cookies{'SESSION_ID'} ){
   $session_id = $cookies{'SESSION_ID'}->value;
}

my $session = CGI::Session->new(
  "driver:File;serializer:Storable",
  $session_id,
  { Directory => '../web/tmp' }
  ) or die CGI::Session->errstr();

$session->expire( 'authorized', '1440m' );

my $session_cookie = CGI::Cookie->new(-name => 'SESSION_ID',-value => $session->id());

print $session->header(-cookie=>[$session_cookie]);

print 'ok with session_id: ' . $session->id();