WWW :: Scripter的身份验证问题

Question

我正在使用插件WWW :: Scripter （ WWW :: Mechanize的子类）对主机的登录页面进行身份验证。 他们在登录页面上使用带有某些JavaScript函数的Ruby ，所以我不能只使用LWP::Agent模块。 这是代码：

#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;

use LWP::Debug qw(+);
use LWP::ConnCache;
use WWW::Scripter;

my $url = 'https://control.vp.net/login';
my $username = 'example@example.com';
my $password = 'example';

my $w = WWW::Scripter->new(keep_alive => 1) or die "error1: $!\n";
$w->conn_cache(LWP::ConnCache->new);
$w->use_plugin('JavaScript') or die "error2: $!\n";
$w->credentials($url, undef, $username, $password) or die "error3: $!\n";
$w->get($url) or die "error4: $!\n";
print $w->content() or die "error5: $!\n";

我遇到以下错误：

Uncaught exception from user code:
error3

我已经花了几个小时在谷歌上搜索，现在我真的需要您的帮助。 我将不胜感激任何帮助您理解为何无法进行身份验证的帮助。 如果重要的话，我的Perl版本在Ubuntu 11上为5.10.1。

谢谢。

更新资料

我已将代码中的一行更改为：

$w->credentials($username, $password) or die "error3: $!\n";

并立即获得白页。 如果启用了诊断编译指示，则会出现一个相当普遍的错误：

Use of uninitialized value in subroutine entry at blib/lib/Net/SSLeay.pm
(autosplit into blib/lib/auto/Net/SSLeay/randomize.al) line 2227 (#1)
(W uninitialized) An undefined value was used as if it were already
defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
To suppress this warning assign a defined value to your variables.

Answer 1

credentials可用于标准HTTP身份验证 ，但是Web表单有所不同。 删除该方法调用，并了解Web表单的功能。 JavaScript对Web表单没有影响，机械化就足够了。

use strictures;
my ($url, $username, $password)
    = qw(https://control.vps.net/login example@example.com example);
my $w = WWW::Mechanize->new;
$w->get($url);  # automatically raises exception on HTTP errors
$w->submit_form(with_fields => {
    'session[email_address]' => $username,
    'session[password]' => $password,
});
die 'login failed'
    if $w->content =~ /your email and password combination were incorrect/;

Answer 2

您不能简单地期望每个函数都会在成功时返回真实值，而在失败时返回虚假值。

例如， credentials条目对返回的内容一无所知，因此您不应尝试对返回的内容进行任何操作。

对于get -它返回一个响应对象，该对象始终为true。

您需要调用所有函数，然后检查$w->status() 。 如果返回401或403，则身份验证失败。