未提供身份验证凭据问题答案

【问题标题】：Authentication credentials were not provided issue未提供身份验证凭据问题
【发布时间】：2016-10-31 16:55:27
【问题描述】：

我在向 HotelsPro 网络服务发送 Restful 请求时遇到问题。

我正在尝试使用基本凭据向此链接 https://api-test.hotelspro.com:443 发送请求，但每次“未提供身份验证凭据”时都会出错，尽管此凭据在浏览器上运行。我的代码如下所示

 sub getJSONdata {

    my ($SupplierXMLServer, $message, $compressed,$timeOut) = ();
       ($SupplierXMLServer, $message, $compressed,$timeOut) = @_;

    $SupplierXMLServer='https://api-test.hotelspro.com/api/v2/search/?destination_code=20b05&checkin=2016-11-09&checkout=2016-11-12&currency=USD&client_nationality=PS&pax=2';

    my $username = "Epilgrim";
    my $password = "xxxxxxxxxx";

    use LWP::UserAgent;
    my $userAgent = LWP::UserAgent->new(agent =>"1");
       $userAgent->credentials('https://api-test.hotelspro.com:443', 'api', $username , $password);
       $userAgent->timeout($timeOut) if($timeOut);  # in seconds
    use HTTP::Request::Common;
    my $response = '';
    if($compressed){
         $response = $userAgent->request( GET $SupplierXMLServer,
                                          Content_Type => 'application/json',
                                          Accept_Encoding => "gzip,deflate",
                                          Content => $message);
    }
    else{
         $response = $userAgent->request( GET $SupplierXMLServer,
                                          Content_Type => 'application/json',
                                          Content => $message);
    }
    return $response->error_as_HTML unless $response->is_success;
      #return $response->content;

    if($compressed){
    return $response->decoded_content;
  }

    else{
        return $response->content;
      }
    }

请帮助我编写正确的代码并以正确的方式发送请求以获得有效的响应。

【问题讨论】：

在您对credentials 的调用中，您可以尝试删除协议吗？它的格式应该是hostname:port - 即'api-test.hotelspro.com:443' 请参阅stackoverflow.com/questions/1799147/…

标签： perl web-services credentials restful-url lwp-useragent

【解决方案1】：

给定的链接重定向到https://api-test.hotelspro.com/login/?next=/，它正在查看基于表单的身份验证页面。但是在您的 Perl 脚本中，您正在尝试基本身份验证。请查谷歌了解Basic Auth vs Form Based Auth之间的区别。

现在，为了执行基于表单的身份验证，最好使用 WWW::Mechanize，它是 LWP 的包装器，但提供了更方便的方法。以下是来自WWW::Mechanize's official help page:的基于表单的身份验证的示例代码

 #!/usr/bin/perl -w -T

use strict;
use WWW::Mechanize;

my $login    = "login_name";
my $password = "password";
my $folder   = "folder";

my $url = "http://img78.photobucket.com/albums/v281/$login/$folder/";

# login to your photobucket.com account
my $mech = WWW::Mechanize->new();
$mech->get($url);
$mech->submit_form(
    form_number => 1,
    fields      => { password => $password },
);
die unless ($mech->success);

# upload image files specified on command line
foreach (@ARGV) {
    print "$_\n";
    $mech->form_number(2);
    $mech->field('the_file[]' => $_);
    $mech->submit();
}

希望这会有所帮助！

【讨论】：