@artem78

Почему не работает скрипт проверки домена на perl?

Есть скрипт проверки доменов на занятость. Он использует модуль Regru::API. Работает на Windows.

Код в общих чертах выглядит примерно таким образом:
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 . ")";
}


При запуске на компьютере заказчика появляется ошибка;
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)


Из информации о системе известно только то что ОС Windows 7 home premium 64bit (на японском языке), антивирус отключён, файрвола нет. Из браузера запрос к api.reg.ru проходит. Сам скрипт упакован в exe при помощи утилиты PAR::Packer (pp), все необходимые модули/dll подключены (на чистой системе работоспособность проверена).
  • Вопрос задан
  • 189 просмотров
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы