Changeset 9907 for lang/perl/Chaostr

Timestamp:

04/19/08 21:45:19 (5 years ago)

Author:

tomyhero

Message:

lang/perl/Chaostr : refactoring Login.pm

Location:

lang/perl/Chaostr/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Chaostr/Web/Controller/Login.pm (modified) (5 diffs)

lang/perl/Chaostr/trunk/Makefile.PL

@@ -8 +8 @@
 requires 'Catalyst::Plugin::Static::Simple';
 requires 'Catalyst::Action::RenderView';
+requires 'Catalyst::Plugin::Session::DynamicExpiry';
 requires 'Tset::Spelling' => 0;
 requires 'YAML';    # This should reflect the config file format you've chosen

lang/perl/Chaostr/trunk/lib/Chaostr/Web/Controller/Login.pm

@@ -30 +30 @@
     return if $c->req->method eq 'GET';
 
-
-    $c->form({
-        required => [qw/username password/]
-    });
+    $c->form( { 
+        required => [qw/username password/] ,
+        optional => [qw/auto/],
+    } );
 
     my $v = $c->form->valid;
 
-    $c->log->debug( $v );
-
-    return if  $c->form->has_error;
+    return if $c->form->has_error;
 
     $c->authenticate(
@@ -47 +45 @@
     );
 
-    if ( !$c->user_exists ) {
-        # ログインできてなかった場合
-    }
+    # ログインできてなかった場合
+    return if !$c->user_exists ; 
 
-    if ( $c->req->param('auto') ) {
+    # 自動ログイン。セッションを長生きさせる。
+    if ( $v->{'auto'} ) {
         $c->session->{auto_login} = 1;
-
         # 2 週間
-        $c->session_time_to_live( 1_209_600 );
+        $c->session_time_to_live(1_209_600);
     }
     else {
@@ -62 +59 @@
 
     $c->log->info( $c->user->name . '(' . $c->req->address . ') logined' );
+
     $c->model('DBIC::Users')->find( $c->user->id )
         ->update( { lastlogin_at => $c->datetime() } );
 
+    # 明示的にセッションを保存
+    $c->finalize_session;
     return $c->res->redirect( $c->uri_for(q{/}) );
 }
@@ -79 +79 @@
         $c->delete_session;
         $c->logout;
+        # 明示的にセッションを保存
+        $c->finalize_session;
     }
 
@@ -87 +89 @@
 
 Daisuke Komatsu C<< <taro __at__ cpan.org> >>
+
+Tomohiro Teranishi <tomohiro.teranishi@gmail.com>
 
 =head1 LICENSE