|
|
@ -5,6 +5,7 @@ use Modern::Perl; |
|
|
|
use JSON; |
|
|
|
use YAML; |
|
|
|
use REST::Client; |
|
|
|
use URI::Escape qw( uri_escape ); |
|
|
|
|
|
|
|
|
|
|
|
has client => (is => 'rw', isa => 'REST::Client'); |
|
|
@ -76,7 +77,7 @@ sub BUILD { |
|
|
|
$self->client( REST::Client->new() ); |
|
|
|
|
|
|
|
if ( $self->login ) { |
|
|
|
my $response = $self->get('login?login=' . $self->login . "&password=" . $self->password); |
|
|
|
my $response = $self->get('login?login=' . uri_escape($self->login) . "&password=" . uri_escape($self->password)); |
|
|
|
if ( $response->{error} ) { |
|
|
|
say "Wrong login/password to BZ"; |
|
|
|
exit 1; |
|
|
|