package ACC::Handlers::Login;
use vars qw($VERSION);
$VERSION = 0.01;

use strict;
use base qw(ACC::Handlers);

use CGI::Cookie;

sub pathfixup {
    my $self = shift;

    $self->dispatch('login');
    $self->r->content_type('text/html');
}

sub do_login {
    my $self = shift;

    my $cert = $self->in->{cert};
    $self->module->hatena_auth->login($cert);

    my $cookie = CGI::Cookie->new(
                                  -name => 'session',
                                  -value => $cert,
                                  -expires => '+1M');
    $self->r->err_headers_out->add('Set-Cookie' => $cookie->as_string);
    $self->redirect('/');
}

1;

__END__

auther & copyright Kazuhiro Osawa