Changeset 7674 for lang/perl/Chaostr

Show
Ignore:
Timestamp:
03/09/08 02:10:51 (6 years ago)
Author:
vkgtaro
Message:

lang/perl/Chaostr: remove CP::FormValidator::Simple

Location:
lang/perl/Chaostr/trunk
Files:
8 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Chaostr/trunk/conf/chaostr_web.yml

    r7668 r7674  
    3333  auto: 0 
    3434 
    35 validator: 
    36   plugins: 
    37     - Japanese 
    38     - Number::Phone::JP 
    39     - DBIC::Unique 
    40   options: 
    41     charset: utf8 
    42     dbic_base_class: Chaostr::DB::Model::Schema 
    43   messages: conf/messages.yml 
    44  
  • lang/perl/Chaostr/trunk/lib/Chaostr/Web.pm

    r7668 r7674  
    2929    Email::Japanese 
    3030 
    31     FormValidator::Simple 
    3231    RequestToken 
    3332    DateTime 
  • lang/perl/Chaostr/trunk/lib/Chaostr/Web/Controller/Login.pm

    r7665 r7674  
    2121=cut 
    2222 
    23 sub index : Private { 
     23sub index : Local { 
    2424    my ( $self, $c ) = @_; 
    2525 
     
    3030    return if $c->req->method eq 'GET'; 
    3131 
    32     $c->form( 
    33         username => [qw/NOT_BLANK ASCII/], 
    34         password => [qw/NOT_BLANK ASCII/], 
    35     ); 
    36  
    3732    $c->authenticate( 
    3833        {   name     => $c->req->param('username'), 
     
    4136    ); 
    4237 
    43     if ( !$c->user ) { 
    44         $c->set_invalid_form( login => 'LOGIN' ); 
    45     } 
    46  
    47     if ( $c->form->has_error ) { 
    48         $c->log->info( $c->req->param('username') . '(' 
    49                 . $c->req->address 
    50                 . ') failed login' ); 
    51         return; 
     38    if ( !$c->user_exists ) { 
     39        # ログインできてなかった場合 
    5240    } 
    5341 
  • lang/perl/Chaostr/trunk/lib/Chaostr/Web/Controller/User.pm

    r7665 r7674  
    4343    my ( $self, $c ) = @_; 
    4444 
    45     $c->form( page => [qw/INT/], ); 
    46  
    4745    my $page = $c->req->param('page') || 1; 
    48     if ( $c->form->has_error ) { 
    49         $page = 1; 
    50     } 
    5146 
    5247    $c->stash->{users} = $c->model('DBIC::User') 
     
    10297    $c->req->method eq 'GET' 
    10398        && return; 
    104  
    105     $c->form( 
    106         name => [ 
    107             'NOT_BLANK', 
    108             [ 'REGEX', qr/^(?:\w|\-)+$/ ], 
    109             [ 'DBIC_UNIQUE', $c->model('DBIC::User'), 'name' ] 
    110         ], 
    111         password     => [qw/NOT_BLANK ASCII/], 
    112         password_cfm => [qw/NOT_BLANK ASCII/], 
    113         { duplication_check => [qw/password password_cfm/] } => 
    114             ['DUPLICATION'], 
    115         mail => [qw/NOT_BLANK EMAIL/], 
    116     ); 
    117  
    118     if ( $c->form->has_error ) { 
    119         $c->forward('TT'); 
    120         $c->fillform; 
    121         return; 
    122     } 
    12399 
    124100    my $create_user = $c->model('DBIC::User')->create( 
     
    179155    my $profile = $c->stash->{profile}; 
    180156 
    181     my %check = ( 
    182         new  => [qw/NOT_BLANK ASCII/], 
    183         new2 => [qw/NOT_BLANK ASCII/], 
    184         { passwords => [qw/new new2/] } => ['DUPLICATION'], 
    185     ); 
    186  
    187157    # 管理者権限でなければ 
    188158    # 現在のパスワードのチェックもする 
    189159    if ( !$c->check_user_roles(qw/admin/) ) { 
    190         $check{current} = [qw/NOT_BLANK ASCII/]; 
    191     } 
    192  
    193     $c->form(%check); 
    194  
    195     if ( $profile->password ne sha1_hex( $c->req->param('current') ) 
    196         && !$c->check_user_roles(qw/admin/) ) 
    197     { 
    198         $c->set_invalid_form( current => 'NOT_MATCH' ); 
    199     } 
    200  
    201     if ( $c->form->has_error ) { 
    202         $c->forward('TT'); 
    203         $c->fillform; 
    204         return; 
    205160    } 
    206161 
     
    234189    my $profile = $c->stash->{profile}; 
    235190 
    236     my %check = ( mail => [qw/NOT_BLANK EMAIL/], ); 
    237  
    238     $c->form( mail => [qw/NOT_BLANK EMAIL/], ); 
    239  
    240     if ( $c->form->has_error ) { 
    241         $c->forward('TT'); 
    242         $c->fillform; 
    243         return; 
    244     } 
    245  
    246191    $profile->update( { mail => $c->req->param('mail'), } ); 
    247192 
  • lang/perl/Chaostr/trunk/root/src/login/index.tt

    r7658 r7674  
    22 
    33<p>フォーム入力してください。</p> 
    4  
    5 [% IF c.form.has_error %] 
    6 <ul class="error"> 
    7 [% FOREACH message IN c.form.messages('login') %] 
    8   <li>[% message %]</li> 
    9 [% END %] 
    10 </ul> 
    11 [% END %] 
    124 
    135<form action="[% c.uri_for('/login') %]" method="post"> 
  • lang/perl/Chaostr/trunk/root/src/user/create.tt

    r7658 r7674  
    22 
    33<p>ユーザを新規作成します</p> 
    4  
    5 [% IF c.form.has_error %] 
    6 <ul class="error"> 
    7 [% FOREACH message IN c.form.messages('create_user') %] 
    8   <li>[% message | html %]</li> 
    9 [% END %] 
    10 </ul> 
    11 [% END %] 
    124 
    135<form action="[% c.uri_for('/user/create') %]" method="post"> 
  • lang/perl/Chaostr/trunk/root/src/user/update_mailaddress.tt

    r7658 r7674  
    11[% META title = 'メールアドレス変更' %] 
    2  
    3 [% IF c.form.has_error %] 
    4 <ul class="error"> 
    5 [% FOREACH message IN c.form.messages('user_mailaddress') %] 
    6   <li>[% message | html %]</li> 
    7 [% END %] 
    8 </ul> 
    9 [% END %] 
    102 
    113<form action="[% c.uri_for('/user', username, 'update_mailaddress') %]" method="post"> 
  • lang/perl/Chaostr/trunk/root/src/user/update_password.tt

    r7658 r7674  
    11[% META title = 'パスワード変更' %] 
    2  
    3 [% IF c.form.has_error %] 
    4 <ul class="error"> 
    5 [% FOREACH message IN c.form.messages('user_password') %] 
    6   <li>[% message | html %]</li> 
    7 [% END %] 
    8 </ul> 
    9 [% END %] 
    102 
    113<form action="[% c.uri_for('/user', username, 'update_password') %]" method="post">