root/lang/perl/Chaostr/trunk/lib/Chaostr/Web/Controller/Login.pm @ 7674

package Chaostr::Web::Controller::Login;

use strict;
use warnings;
use base 'Catalyst::Controller';

=head1 NAME

Chaostr::Web::Controller::Login - Catalyst Controller

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=cut

=head2 index 

=cut

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

    if ( $c->user_exists ) {
        $c->res->redirect( $c->uri_for(q{/}) );
        return;
    }
    return if $c->req->method eq 'GET';

    $c->authenticate(
        {   name     => $c->req->param('username'),
            password => $c->req->param('password')
        }
    );

    if ( !$c->user_exists ) {
        # ログインできてなかった場合
    }

    if ( $c->req->param('auto') ) {
        $c->session->{auto_login} = 1;

        # 2 週間
        $c->session_expire_key( __user => 1_209_600 );
    }
    else {
        $c->session->{auto_login} = 0;

        # 2 時間
        $c->session_expire_key( __user => 7_200 );
    }

    $c->log->info( $c->user->name . '(' . $c->req->address . ') logined' );
    $c->model('DBIC::User')->find( $c->user->id )
        ->update( { lastlogin_at => $c->datetime() } );

    return $c->res->redirect( $c->uri_for(q{/}) );
}

=head2 logout

=cut

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

    if ( $c->user ) {
        $c->log->info( $c->user->name . '(' . $c->req->address . ') logout' );
        $c->logout;
    }

    return $c->res->redirect( $c->uri_for(q{/}) );
}

=head1 AUTHOR

Daisuke Komatsu C<< <taro __at__ cpan.org> >>

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;