Пишу вроде простой скрипт на perl'е и вот беда:
use Ourfa;
use Data::Dumper;
use XML::Dumper;
binmode(STDOUT,':utf8');
my $ourfa = Ourfa->new(
api_xml_file=>"/netup/utm5/xml/api.xml",
server=>'xxx',
login=>'xxx',
password=>'xxx',
ssl_cert=>'/netup/utm5/admin.crt',
ssl_key=>'/netup/utm5/admin.key',
ssl => 'rsa_cert'
);
my $res = $ourfa->rpcf_user_get_userinfo(user_id=>12345);
my $xml = pl2xml($res);
print $xml;
Этот код прекрасно работает, а если заменить на rpcf_user_get_userinfo на rpcf_user5_get_user_info:
my $res = $ourfa->rpcf_user_get_userinfo(user_id=>12345);
Выдает:
Access denied at /usr/local/lib/perl5/site_perl/5.8.9/mach/Ourfa.pm line 383.
Function `rpcf_user5_get_user_info` node `ROOT`. Access denied
Ourfa::ScriptCall::call: Function `rpcf_user5_get_user_info` node `ROOT`. Access denied
at ourfa_test.pl line 19
Может кто подскажет в чем может быть проблема?
Не работает rpcf_user5_get_user_info
Re: Не работает rpcf_user5_get_user_info
Сами переписывали?Midvidko писал(а):
use Ourfa;
можете выложить?