\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�

2009鐃緒申鐃緒申鐃緒申06·鐃緒申鐃�05鐃緒申鐃緒申鐃緒申06:06

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

Catalyst鐃緒申鐃緒申鐃緒申\鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�µ鐃緒申�鐃緒申½鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申�鐃盾Ǚ申鐃緒申鐃�µ鐃緒申鐃�³鐃緒申鐃�³鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申

vkgtaro鐃緒申鐃�µ鐃緒申鐃緒申鐃術�緒申鐃緒申鐃�\³\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申陝�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�URL鐃緒申鐃緒申鐃緒申»²¹鐃緒申鐃緒申鐃緒申鐃緒申鐃� MyApp::Plugin::Session.pm 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申µ鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃署´�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃曙¡�曙™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申«鐃緒申臓鐃�MyApp::Plugin::Session.pm 鐃緒申鐃緒申鐃緒申 hidek 鐃緒申鐃�µ鐃緒申鐃緒申鐃術�緒申鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃�鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃�¹鐃緒申鐃緒申鐃庶™申鐃緒申鐃緒申鐃渋￥申��申½鐃緒申��申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申��申鐃殉�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋�緒申鐃緒申鐃緒申鐃�
鐃書¨°ǚ申鐃緒申鐃緒申鐃峻�緒申鐃緒申鐃�¹¹鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申(09/06/08)

coderepos 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃� plugin 鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� http://coderepos.org/share/browser/lang/perl/Catalyst-Plugin-Session-DynamicExpiry-Cookie/trunk

鐃緒申�鐃盾Ǚ申鐃緒申鐃�µ鐃緒申鐃�³鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡¡￥申Catalyst鐃緒申鐃緒申鐃緒申鐃緒申��緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Web\鐃緒申\鐃緒申\鐃緒申鐃�\鐃殉�緒申¼\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�µ鐃緒申�鐃緒申½鐃緒申�鐃緒申¼鐃緒申鐃�²鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�¾鐃緒申鐃緒申鐃渋￢�緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃淳�緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃渋￥申��申²¼鐃緒申鐃緒申鐃緒申\µ\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»²¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申

Catalyst 鐃緒申鐃緒申鐃緒申\鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃盾™申鐃緒申鐃� Cookie 鐃緒申鐃緒申鐃述�申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃�»鐃緒申鐃緒申鐃緒申
C::P::Session::DynamicExpiry鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�remember me

»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

1. \鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃盾™申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�¾鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃出�渋�緒申\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�30鐃緒申鐃緒申�鐃渋�緒申
2. \鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃盾™申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�¾鐃緒申�鐃緒申鐃緒申咫��申»鐃緒申鐃渋�緒申\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�2½µ鐃緒申鐃緒申�鐃渋�緒申

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申µ鐃緒申�鐃緒申½鐃緒申鐃緒申鐃緒申 Catalyst::Plugin::Session::DynamicExpiry 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申½½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申 Catalyst::Plugin::Session::State::Cookie 鐃緒申鐃緒申鐃述�緒申鐃緒申�鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申expires鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申2¼鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�session 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�cookie 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃�²鐃緒申�鐃緒申鐃緒申鐃� session cookie鐃緒申�鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃盾™申鐃緒申鐃�cookie 鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申cookie_expires 鐃緒申鐃緒申鐃緒申 0 鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申YAML鐃緒申鐃緒申鐃緒申½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

session:
  expires: 1800 # »鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃� 7200
  cookie_expires: 0 # »鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃� expires 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

cookie 鐃緒申鐃緒申鐃緒申 expire s鐃緒申鐃緒申鐃緒申 0 鐃緒申�鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申臓鐃�session 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃緒申鐃緒申30鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申³«鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃曙™申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�cookie 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�ID鐃緒申鐃縮�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申鐃�·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃�³«»鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃�³鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡Ǚ申鐃緒申鐃緒申鐃渋�緒申(*Ž\鐃緒申�鐃緒申Ž\)\鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑¡￥申\鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�session_time_to_live \鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申session 鐃緒申鐃緒申鐃緒申expires 鐃緒申鐃緒申鐃緒申 1800 鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�緒申�鐃渋￥申session_time_to_live \鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申臓��¿�峻�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¼«鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹¹²鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

sub login : Local {
    my ($self, $c) = @_;   

    if ( $c->authenticate($userinfo) ) {

        if ( $c->req->param('remember_me') ) {
            $c->session->{autologin} = 1;
            $c->session_time_to_live( 60 * 60 * 24 * 14 ); # 2½µ鐃緒申鐃緒申鐃�
        }
        
        # ..snip..
    }
}

\鐃緒申鐃�\鐃緒申\鐃緒申\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�session_time_to_live \鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃� undef 鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�Catalyst::Plugin::Session::DynamicExpiry 鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�if¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃術�渋￥申�鐃緒申鐃緒申�鐃獣￥申鐃緒申鐃渋�獣�渋�緒申

sub logout : Local {
    my ($self, $c) = @_;

    $c->logout();

    if ( $c->session->{autologin} ) {
        $c->session_time_to_live(undef);
        delete $c->session->{autologin};
        delete $c->session->{cookie_expires};
    }

    $c->res->redirect( $c->uri_for('/') );
}

Catalyst::Plugin::Session::DynamicExpiry.pm

sub calculate_extended_session_expires {
    my $c = shift;

    if ( defined(my $ttl = $c->session_time_to_live) ) {
        $c->log->debug("Overridden time to live: $ttl") if $c->debug;
        return time() + $ttl;
    }

    return $c->NEXT::calculate_extended_session_expires( @_ );
}

鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申鐃�³鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� cookie 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃緒申鐃緒申 0 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�session 鐃緒申鐃緒申鐃緒申2½µ鐃緒申鐃緒申�鐃緒申鐃緒申鐃� expires 鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃渋￥申鐃�½鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�cookie 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃緒申鐃緒申¼«鐃緒申��緒申鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹²鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�
鐃書¨°Ǚ申鐃緒申鐃緒申��申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申\鐃緒申鐃�\»\¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 cookie 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\»\\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃薯Å鐃緒申��申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申»鐃淳�緒申鐃緒申鐃緒申鐃渋￥申½鐃緒申鐃�²鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃� cookie 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃縮�緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申2½µ鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申

MyApp::Plugin::Session.pm

package MyApp::Plugin::Session;

use strict;
use warnings;
use parent 'Catalyst::Plugin::Session::DynamicExpiry';

sub calculate_session_cookie_expires {
    my $c = shift;

    if ( defined (my $ttl = $c->session_time_to_live) ) {
        $c->log->debug("Overridden session cookie time to live: $ttl") if $c->debug;
        $c->session->{cookie_expires} ||= ( time() + $ttl );
        return $c->session->{cookie_expires};
    }

    return $c->NEXT::calculate_session_cookie_expires(@_);
}

1;

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃�½鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

use Catalyst qw/
    +MyApp::Plugin::Session
    Session
    Session::Store::DBIC
    Session::State::Cookie
/;

Catalyst::Plugin::Session::State::Cookie 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 ¼«鐃緒申��緒申鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申calculate_session_cookie_expires \鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�MyApp::Plugin::Session 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�cookie 鐃緒申鐃緒申鐃緒申 expires 鐃緒申鐃緒申 session 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹¹鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ»鐃緒申�鐃渋￥申鐃�³鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃縦�渋￥申.Ž鐃緒申鐃�Ž鐃緒申鐃�+.(Ž\鐃緒申鐃�Ž\)Ž鐃緒申鐃�+.Ž鐃緒申鐃�

1. \鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申�鐃緒申µ鐃緒申鐃緒申鐃盾™申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�¾鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃出�渋�緒申\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�30鐃緒申鐃緒申�鐃渋�緒申
2. \鐃緒申��申¼\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃盾™申鐃緒申鐃�¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�¾鐃緒申�鐃緒申鐃緒申咫��申»鐃緒申鐃渋�緒申\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�2½µ鐃緒申鐃緒申�鐃渋�緒申

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: perl; Catalyst; \»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�

2008鐃緒申鐃緒申鐃緒申09·鐃緒申鐃�08鐃緒申鐃緒申鐃緒申01:05

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

Catalyst::Plugin::Session::State::URI鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

Catalyst鐃緒申鐃緒申鐃緒申\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申僉鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申臓鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Catalyst::Plugin::Session::State::URI鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Catalyst::Plugin::Session::State::Cookie鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�»鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃�²鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申Session::State::URI鐃緒申鐃緒申鐃緒申rewrite\鐃緒申鐃�\鐃緒申\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�no_rewrite_if_cookie\鐃緒申鐃�\鐃緒申\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋￥申��申²¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�ID鐃緒申鐃緒申鐃緒申param鐃緒申鐃�¾鐃緒申鐃緒申鐃緒申SID鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃庶¡￥申(鐃緒申�鐃緒申Ž\鐃緒申�鐃緒申Ž\鐃緒申鐃�)

\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申finalize鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�session_rewrite_if_needed\鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

Catalyst::Plugin::Session::State::URI

sub finalize {
    my $c = shift;
    $c->session_rewrite_if_needed;
    return $c->NEXT::finalize(@_);
}

Catalyst::Plugin::Session::State::URI

sub session_rewrite_if_needed {
    my $c = shift;

    my $sid = $c->_sessionid_to_rewrite || $c->_sessionid_from_uri;

    if ( $sid and $c->session_should_rewrite ) {        鐃緒申�鐃渋�渋�渋�渋�緒申
鐃緒申�鐃緒申
        if ( $c->session_should_rewrite_redirect ) {          
            $c->rewrite_redirect_with_session_id($sid);        鐃緒申�鐃緒申
        }
鐃緒申�鐃緒申
        if ( $c->session_should_rewrite_body ) {鐃緒申�鐃緒申
            $c->rewrite_body_with_session_id($sid);
        }
    }
}

9¹鐃緒申�鐃緒申鐃緒申��申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\¹\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃�3xx(鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申302鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申SID=xxxxx鐃緒申鐃緒申鐃緒申¼«鐃緒申鐃緒申��申鐃緒申��申鐃緒申鐃�rewrite鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

13¹鐃緒申�鐃緒申鐃緒申��申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃縮�緒申鐃緒申鐃�content_type鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申html鐃緒申臓�鐃緒申漫鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申臓��«鐃暑ÜǙ申鐃緒申鐃緒申鐃緒申鐃緒申鐃�URL鐃緒申鐃緒申鐃緒申SID=xxxxx鐃緒申鐃緒申鐃緒申¼«鐃緒申鐃緒申��申鐃緒申��申鐃緒申鐃�rewrite鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申$sid and $c->session_should_rewrite鐃緒申�鐃渋�緒申鐃緒申鐃�¾鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\»\鐃緒申鐃�\·\鐃緒申鐃�\鐃緒申鐃�ID鐃緒申鐃緒申鐃緒申URL鐃緒申鐃緒申鐃緒申¼«鐃緒申鐃緒申��申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓��鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃�«鐃緒申�鐃緒申(鐃緒申�鐃緒申Ž鐃緒申痢鐃緒申Ž鐃緒申鐃�)鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�session_should_rewrite\鐃緒申鐃�\½\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

Catalyst::Plugin::Session::State::URI

sub session_should_rewrite {
    my $c = shift;
    return unless $c->config->{session}{rewrite};

    if ( $c->isa("Catalyst::Plugin::Session::State::Cookie")
        and $c->config->{session}{no_rewrite_if_cookie}
    ) {
        return if defined($c->get_session_cookie);
    }

    return 1;
}

rewrite鐃緒申鐃緒申false鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃渋￥申rewrite鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�(rewrite鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�1)

Catalyst::Plugin::Session::State::Cookie

sub get_session_cookie {
    my $c = shift;
    my $cookie_name = $c->config->{session}{cookie_name};
    return $c->request->cookies->{$cookie_name};
}

鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�Catalyst::Plugin::Session::State::Cookie鐃緒申鐃緒申鐃緒申use鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�no_rewrite_if_cookie\鐃緒申鐃�\鐃緒申\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃�true(\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�1)鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�¼鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃暑ß�緒申¹鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申rewrite鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�rewrite\鐃緒申鐃�\鐃緒申\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�no_rewrite_if_cookie\鐃緒申鐃�\鐃緒申\·\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�緒申¼鐃緒申臓鐃�(,,Ž鐃緒申痢鐃�\Ž鐃緒申鐃�)y鐃緒申鐃緒申臓鐃緒申鐃�