Advertisement
Guest User

Untitled

a guest
Mar 29th, 2016
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. post '/loginform' => sub {
  2. my $username = params->{username};
  3. my $password = params->{password};
  4.  
  5.  
  6. my $user = $schema->resultset('User')->search({ username => $username })->first;
  7.  
  8.  
  9.  
  10. #my $registred_user = $user->username;
  11. #my $registerd_pass = $user->password;
  12.  
  13. if($user && passphrase($password)->matches($user->password) && $username eq $user->username)
  14. {
  15. my $redir_url = param('redirect_url') || '/admin';
  16. redirect $redir_url;
  17. session user => $username;
  18. redirect $redir_url;
  19. }
  20. else
  21. {
  22. "wrong user name or password "
  23. }
  24.  
  25.  
  26.  
  27. };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement