Решил попробовать библиотеку ourfa на 5.2.1-008-update6.
Скачал admin.crt и положил в /netup/utm5/
Далее делаю:
Код: Выделить всё
#! /usr/bin/perl
use strict;
use Ourfa;
use Data::Dumper;
my $ourfa = Ourfa->new(
api_xml_file=>"/netup/utm5/xml/api.xml",
server=>'127.0.0.1',
login=>'user',
password=>'password',
login_type=>0,
ssl => 'rsa_cert',
);
my $res = $ourfa->rpcf_user5_brief_report_for_wintray();
print Dumper($res);
Запускаю:
./scriptname.pl
Код: Выделить всё
$VAR1 = {
'balance' => '27',
'user_int_status' => 1
};
Все нормально..
Этот же скрипт запускаю через URL:
https://10.10.10.10/perl-cgi/script.pl (Apache+mod_ssl+mod_perl), в error.log apache ошибка:
Код: Выделить всё
BIO_do_handshake() error at /usr/local/lib/perl5/site_perl/5.8.8/mach/Ourfa.pm line 380.
[error] PerlRun: `Ourfa::Connection::open: SSL error at /usr/local/lib/perl5/site_perl/5.8.8/mach/Ourfa.pm line 380.\n at /www/test_site/public_html/perl-cgi/scriptname.pl line 15\n'
В main.log биллинга:
Код: Выделить всё
Info : Nov 04 00:28:30 0c6cae00 RPCServer@0.0.0.0: Client connecting: 127.0.0.1:65129
Info : Nov 04 00:28:30 0c6cae00 RPCConn: Connection from: 127.0.0.1:65129 new Session Key <9e23b34e88a2be434339e8dc996075ff>
Info : Nov 04 00:28:30 0c6cae00 RPCConn[SSL]<user@127.0.0.1>: Access granted to [SSL]<user@127.0.0.1> (UID: 2333)
ERROR : Nov 04 00:28:30 0c6cae00 RPCConn[SSL]<user@127.0.0.1>: SSL connection failed (4), system errno <0>
ОС: FreeBSD 6.4-RELEASE-p11 #0
На 5.2.1-006-update5 без использования SSL, все работает отлично.
Подскажите пожалуйста где копать.