Я создаю Perl-скрипт, который подключается к RHN, но, похоже, у меня проблемы.
У меня есть такой код:
#!/usr/bin/perl
use Frontier::Client;
my $HOST = 'xmlrpc.rhn.redhat.com';
my $client = new Frontier::Client(url => "https://$HOST/rpc/api", debug=>1);
my $ver = $client->call('api->getVersion');
print "$ver\n";
Для этого нужно просто подключиться к RHN и получить версию API. Однако он возвращает следующее:
---- request ----
<?xml version="1.0"?>
<methodCall>
<methodName>api->getVersion</methodName>
<params>
</params>
</methodCall>
500 Connect failed: connect: Connection timed out; Connection timed out
Я предполагаю, что это HTTP 500, и поэтому я подключаюсь к серверу?
Я не могу проверить связь с хостом, но могу решить эту проблему. Я могу получить доступ к RHN с помощью rhnreg_ks, поэтому я не уверен, что идет не так: / Сценарий позже будет делать больше и в настоящее время больше PoC, что не очень хорошо работает!