Advertisement
Guest User

Untitled

a guest
Jan 13th, 2016
153
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.40 KB | None | 0 0
  1.   if($c->treat_data('Login','login',$params) ){
  2.     eval{
  3.       say "email: $email";
  4.       say "password: $password";
  5.       $auth = $c->authenticate( { email => $email,
  6.                           passwd => $password,
  7.                          },
  8.                         );
  9.     };
  10.     if($@){
  11.       $c->stash->{error} = q/Can't login!/;
  12.       $c->stash->{status_code} = 500;
  13.       say "LOGIN ERROR: $@";
  14.     }
  15.     elsif(!$auth){
  16.       $c->stash->{error} = q/User or password invalid!/;
  17.       $c->stash->{status_code} = 401;
  18.     }
  19.     else {
  20.       use DDP;
  21.       say "CONTEXT: " . p $c;
  22.       say "USER_EXISTS: " . p $c->user_exists;
  23.       say "USER: " . p $c->user if $c->user_exists;R
  24.       say "SESSION: " . p $c->session if $c->session;
  25.       $c->stash->{'access-key'} = $self->create_access_key($c);
  26.     }
  27.   }
  28.  
  29.  
  30. #### Config do plugin Authentication
  31.  
  32.     'Plugin::Authentication' => {
  33.       default_realm => 'members',
  34.         members => {
  35.             credential => {
  36.                 class => 'Password',
  37.                 password_field => 'passwd',
  38. #                password_type => 'clear',
  39.                 password_type => 'hashed',
  40.                 password_hash_type => 'SHA-1',
  41.             },
  42.             store => {
  43.                 class => 'DBIx::Class',
  44.                 user_model => 'APIDB::Account',
  45.                 role_column => 'roles',
  46.             }
  47.         }    
  48.     },
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement