Transports/Action/Login.pm

use warnings;
use strict;

=head1 NAME

Transports::Action::Login

=cut

package Transports::Action::Login;
use base qw/Transports::Action Jifty::Action/;

=head2 arguments

Return the email and password form fields

=cut

sub arguments { 
    return( { email => { label => 'Email address',
                           mandatory => 1,
                           ajax_validates => 1,
                            }  ,

              password => { type => 'password',
                            label => 'Password',
                            mandatory => 1
                        },
              remember => { type => 'checkbox',
                            label => 'Remember me?',
                            hints => 'If you want, your browser can remember your login for you',
                            default => 0,
                          }
          });

}

=head2 validate_email ADDRESS

Makes sure that the email submitted is a legal email address and that there's a user in the database with it.


=cut

sub validate_email {
    my $self  = shift;
    my $email = shift;

    unless ( $email =~ /\S\@\S/ ) {
        return $self->validation_error(email => "That doesn't look like an email address." );
    }

    my $u = Transports::Model::User->new(current_user => Transports::CurrentUser->superuser);
    $u->load_by_cols( email => $email );
    return $self->validation_error(email => 'No account has that email address.') unless ($u->id);


    return $self->validation_ok('email');
}

=head2 take_action

Actually check the user's password. If it's right, log them in.
Otherwise, throw an error.


=cut

sub take_action {
    my $self = shift;
    my $user = Transports::CurrentUser->new( email => $self->argument_value('email'));

    unless ( $user->id  && $user->password_is($self->argument_value('password'))) {
        $self->result->error( 'You may have mistyped your email address or password. Give it another shot?' );
        return;
    }

    unless ($user->user_object->email_confirmed) {
        $self->result->error( q{You haven't confirmed your account yet.} );
        return;
    }

    # Set up our login message
    $self->result->message("Welcome back, " . $user->user_object->name . "." );

    # Actually do the signin thing.
    Jifty->web->current_user($user);
    Jifty->web->session->expires($self->argument_value('remember') ? '+1y' : undef);
    Jifty->web->session->set_cookie;

    return 1;
}

1;
1	use warnings;
2	use strict;
3
4	=head1 NAME
5
6	Transports::Action::Login
7
8	=cut
9
10	package Transports::Action::Login;
11	use base qw/Transports::Action Jifty::Action/;
12
13	=head2 arguments
14
15	Return the email and password form fields
16
17	=cut
18
19	sub arguments {
20	return( { email => { label => 'Email address',
21	mandatory => 1,
22	ajax_validates => 1,
23	} ,
24
25	password => { type => 'password',
26	label => 'Password',
27	mandatory => 1
28	},
29	remember => { type => 'checkbox',
30	label => 'Remember me?',
31	hints => 'If you want, your browser can remember your login for you',
32	default => 0,
33	}
34	});
35
36	}
37
38	=head2 validate_email ADDRESS
39
40	Makes sure that the email submitted is a legal email address and that there's a user in the database with it.
41
42
43	=cut
44
45	sub validate_email {
46	my $self = shift;
47	my $email = shift;
48
49	unless ( $email =~ /\S\@\S/ ) {
50	return $self->validation_error(email => "That doesn't look like an email address." );
51	}
52
53	my $u = Transports::Model::User->new(current_user => Transports::CurrentUser->superuser);
54	$u->load_by_cols( email => $email );
55	return $self->validation_error(email => 'No account has that email address.') unless ($u->id);
56
57
58	return $self->validation_ok('email');
59	}
60
61	=head2 take_action
62
63	Actually check the user's password. If it's right, log them in.
64	Otherwise, throw an error.
65
66
67	=cut
68
69	sub take_action {
70	my $self = shift;
71	my $user = Transports::CurrentUser->new( email => $self->argument_value('email'));
72
73	unless ( $user->id && $user->password_is($self->argument_value('password'))) {
74	$self->result->error( 'You may have mistyped your email address or password. Give it another shot?' );
75	return;
76	}
77
78	unless ($user->user_object->email_confirmed) {
79	$self->result->error( q{You haven't confirmed your account yet.} );
80	return;
81	}
82
83	# Set up our login message
84	$self->result->message("Welcome back, " . $user->user_object->name . "." );
85
86	# Actually do the signin thing.
87	Jifty->web->current_user($user);
88	Jifty->web->session->expires($self->argument_value('remember') ? '+1y' : undef);
89	Jifty->web->session->set_cookie;
90
91	return 1;
92	}
93
94	1;