Advertisement
Guest User

jwt.pl

a guest
Jul 13th, 2017
504
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.10 KB | None | 0 0
  1. #!/usr/bin/env perl
  2.  
  3. use v5.10;
  4. use strict;
  5. use warnings;
  6.  
  7. use Mojo::JWT;
  8. use DBM::Deep;
  9. use Data::Dumper;
  10.  
  11. # database
  12. my $db = DBM::Deep->new( "users.db" );
  13.  
  14. my $jwt_o = Mojo::JWT->new(secret => 'ildenice' || die);
  15.  
  16. #my ($user, $password) = @ARGV;
  17. my $userParam = $ARGV[0] || "";
  18. my $passParam = $ARGV[1] || "";
  19.  
  20. # $db->{chaves} = {
  21. #     id       => 1,
  22. #     username => 'chaves',
  23. #     password => 'ildenice',
  24. #     email    => 'tacito.ma@hotmail.com'
  25. # };
  26. # $db->{rose} = {
  27. #     id       => 2,
  28. #     username => 'rose',
  29. #     password => 'ildenice',
  30. #     email    => 'rose@outlook.com'
  31. # };
  32.  
  33. # print $db->{$user}->{email};
  34. # my $jwt = $jwt_o->claims({ username => $user, email => $db->{$user}->{email}})->encode;
  35. # my $claims = $jwt_o->decode($jwt);
  36.  
  37. # saindo se usuário ou senha errados
  38. die "Usuário não existe", "\n" if $db->{$userParam}->{'password'} ne $passParam or $db->{$userParam}->{'username'} ne $userParam;
  39.  
  40. my $user = $db->{$userParam};
  41. $user->{api_key} = $jwt_o->claims({ username => $userParam, email => $db->{$userParam}->{email}})->encode;;
  42.  
  43. print Dumper $user;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement