Changeset 8502

Timestamp:

03/29/08 17:43:31 (5 years ago)

Author:

vkgtaro

Message:

lang/perl/Chaostr:

• TT::ForceUTF8 は協議の結果やっぱり使う事にした
  
• Session::DynamicExpiry::Cookie を使うように変更
  
• yaml 調整
  

Location:

lang/perl/Chaostr/trunk

Files:

• conf/chaostr_web.yml (modified) (1 diff)
• conf/chaostr_web_dfv.yml (modified) (1 diff)
• lib/Chaostr/Web/Controller/Login.pm (modified) (2 diffs)
• lib/Chaostr/Web/Controller/Root.pm (modified) (1 diff)
• lib/Chaostr/Web/View/TT.pm (modified) (1 diff)

lang/perl/Chaostr/trunk/conf/chaostr_web.yml

@@ -3 +3 @@
 session:
   dbic_class: DBIC::Session
-  expires: 100000000
+  cookie_name: chaostr
+  cookie_expires: 0
 
 Plugin::Log::Colorful:

lang/perl/Chaostr/trunk/conf/chaostr_web_dfv.yml

@@ -14 +14 @@
                 - String::length :
                     args :  
-                        min : 3
-                        max : 10
+                        min : 2
+                        max : 30
                 - +Chaostr::ValidateEm::Plugin::String::w
             password :
                 - String::length :
                     args :  
-                        min : 4
-                        max : 12
+                        min : 6
+                        max : 34
                 - +Chaostr::ValidateEm::Plugin::String::w
         loose  : 

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

@@ -35 +35 @@
     });
 
-
     my $v = $c->form->valid;
 
@@ -56 +55 @@
 
         # 2 週間
-        $c->session_expire_key( __user => 1_209_600 );
+        $c->session_time_to_live( 1_209_600 );
     }
     else {
         $c->session->{auto_login} = 0;
-
-        # 2 時間
-        $c->session_expire_key( __user => 7_200 );
     }
 

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

@@ -30 +30 @@
     my ( $self, $c ) = @_;
 
-    $c->session_expire_key( __user => 7_200 );
     if ( $c->session->{auto_login} ) {
-        $c->session_expire_key( __user => 1_209_600 );
+        $c->session_time_to_live( 1_209_600 );
     }
 

lang/perl/Chaostr/trunk/lib/Chaostr/Web/View/TT.pm

@@ -3 +3 @@
 use strict;
 use warnings;
-use base 'Catalyst::View::TT';
+use base 'Catalyst::View::TT::ForceUTF8';
 
 __PACKAGE__->config(