A
A
artem782017-01-25 20:12:39
Perl
artem78, 2017-01-25 20:12:39

Why doesn't the perl domain check script work?

There is a script for checking domains for employment. It uses the Regru::API module . Works on Windows.
The code in general looks like this:

my $client = Regru::API->new(
  username => 'login',
  password => 'pass',
);

my %params = (
  'domains' => \@domains
);

my $resp = $client->domain->check(%params);
if ($resp->is_success) {
  # Обрабатываем ответ
} else {
  say "Request error: " . $resp->error_text . " (Code: " . $resp->error_code . ")";
}

An error occurs when starting on the customer's computer;
Error: service failed: cant connect to api.reg.ru:443
Bad address at LWP/Protocol/http.pm line 47, <$wf> line 1.
At regru/api/response.pm line 75.
Request error: API response error (Code: API_FAIL)

From the information about the system, we only know that the OS is Windows 7 home premium 64bit (in Japanese), the antivirus is disabled, there is no firewall. From the browser, the request to api.reg.ru passes. The script itself is packaged into an exe using the PAR::Packer (pp) utility , all the necessary modules / dlls are connected (workability was checked on a clean system).

Answer the question

In order to leave comments, you need to log in

Didn't find what you were looking for?

Ask your question

Ask a Question

731 491 924 answers to any question