Как использовать POST-запрос с Nginx в Perl? - PullRequest
Новая
       4

Как использовать POST-запрос с Nginx в Perl?

0 голосов
/ 11 февраля 2020

Это URL до применения Nginx равен http://IP: PORT / rest / auth / login . Я также написал скрипт для отправки данных на сервер, как показано ниже: 

use strict;
use warnings;
use v5.10;
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;
use JSON qw( decode_json );

my $ua = LWP::UserAgent->new();
my $post_auth = POST 'http://IP:PORT/rest/auth/login';
$post_auth->authorization_basic('admin', 'pass');
my $res_auth = $ua->request($post_auth);
my $json = decode_json ( $res_auth -> content );
my $auth_token = $json->{'accessToken'};
my $url = "http://IP/rest/data/..."
my $data = "...";
my $request_post = PUT ($url, 
    "Content_Type" => 'application/yang-data+xml',
            "Accept" => 'application/json, text/plain, */*',
            "Authorization" => "Bearer $auth_token",
            "Content" => $data);

my $result= $ua->request($request_post);
say "HTTP RESPONSE CODE:" , $result->status_line; // status is 200

Но после использования Nginx. URL становится https://IP/prefix/rest/auth/login, а затем измените приведенный выше скрипт и повторите его. Возникла проблема КОД ОТВЕТА HTTP: 308 Постоянное перенаправление

Мой вопрос, как использовать Nginx POST в Perl? Кто-нибудь даст мне пример этого?

...