Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- use v5.10;
- use strict;
- use warnings;
- use Mojo::JWT;
- use DBM::Deep;
- use Data::Dumper;
- # database
- my $db = DBM::Deep->new( "users.db" );
- my $jwt_o = Mojo::JWT->new(secret => 'ildenice' || die);
- #my ($user, $password) = @ARGV;
- my $userParam = $ARGV[0] || "";
- my $passParam = $ARGV[1] || "";
- # $db->{chaves} = {
- # id => 1,
- # username => 'chaves',
- # password => 'ildenice',
- # email => 'tacito.ma@hotmail.com'
- # };
- # $db->{rose} = {
- # id => 2,
- # username => 'rose',
- # password => 'ildenice',
- # email => 'rose@outlook.com'
- # };
- # print $db->{$user}->{email};
- # my $jwt = $jwt_o->claims({ username => $user, email => $db->{$user}->{email}})->encode;
- # my $claims = $jwt_o->decode($jwt);
- # saindo se usuário ou senha errados
- die "Usuário não existe", "\n" if $db->{$userParam}->{'password'} ne $passParam or $db->{$userParam}->{'username'} ne $userParam;
- my $user = $db->{$userParam};
- $user->{api_key} = $jwt_o->claims({ username => $userParam, email => $db->{$userParam}->{email}})->encode;;
- print Dumper $user;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement