Использование LWP :: UserAgent не удается подключиться после перехода на новый сервер - PullRequest
Новая
       76

Использование LWP :: UserAgent не удается подключиться после перехода на новый сервер

0 голосов
/ 19 января 2020

У меня есть низкотехнологичное устройство, подключенное к inte rnet (даже не использует https), в которое я иногда вхожу, используя небольшой скрипт perl, который я написал несколько лет go. Для работы сценария необходимы сессионные куки-файлы.

Я просто изменил свою хостинговую компанию и переместил скрипт на новый сервер (и изменил разрешения для файла на 755). Когда я запускаю сценарий, он запускает , но сообщает, что ему не удалось подключиться к устройству.

Поскольку устройство и сценарий совпадают, это должно быть что-то с настройкой сервера , Если я изменю URL-адрес на другой http-URL, он сообщит об успешном.

... и, прежде чем кто-то прокомментирует это, несанкционированный доступ к устройству не может причинить никакого вреда. 

#!/usr/bin/perl
print "Content-type: text/html\n\n";


my $Authenticate = "http://www.stealmylogin.com";

use strict qw/refs/;
use HTTP::Cookies;
use LWP::UserAgent;
use HTTP::Request::Common qw/POST GET/;


my $Browser = LWP::UserAgent->new(
    cookie_jar            => HTTP::Cookies->new,
    requests_redirectable => [],
    timeout               => 4,
    agent => "Mozilla/5.0 (Windows NT 5.1; rv:11.0) Gecko/20100101 Firefox/11.0"
);


my $Page = $Browser->request(GET $Authenticate);


print "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>";

print "<head>
<META NAME='ROBOTS' CONTENT='NOINDEX, NOFOLLOW'>
<META HTTP-EQUIV='CACHE-CONTROL' CONTENT='NO-CACHE'>
</head>";


if ($Page->is_success) {print "Success"; }
else { print "fail"; }``
...