PERL-MOJO写一个简单的登录验证页面

继吉

use Mojolicious::Lite;　　

　　
my $password='1253';
　　

　　
get '/login' => sub {
　　
    my $self = shift;
　　
    $self->render('login');
　　
};
　　

　　
post '/login' => sub {
　　
    my $self = shift;
　　
        $self->render('loged',
　　
        pwd=>$password,
　　
        );
　　
};
　　

　　
get 'loged' => sub {
　　
    my $self = shift;
　　
       $self->render('loged',
　　
       pwd=>$password,
　　
       );
　　
};
　　

　　
get logOut => sub {
　　
    my $self = shift;
　　
    $self->session->{login}=0;
　　
    $self->render('login');
　　
};
　　

　　
app->start;
　　
__DATA__
　　

　　
@@ login.html.ep
　　

　　

　　

　　

　　
:
　　

　　

　　

　　
@@loged.html.ep
　　
% my $apw=param 'password';
　　
% my $login=session 'login';
　　
% if ($login ==1 ) {
　　
welcome!
　　
Log Out1
　　
%} elsif ($pwd == $apw) {
　　
% session->{login}=1;
　　
welcome!
　　
Log Out2
　　
%}  else {
　　
ReLog
　　
%=session 'password';
　　
%=param 'password';
　　
%=session 'login' ;
　　
%=$pwd;
　　
%};