5 # sudo apt-get install librpc-xml-perl libio-socket-ssl-perl
7 #use IO::Socket::SSL qw(debug4);
11 require RPC::XML::Client;
14 use Data::Dump qw(dump);
19 my $auth = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_auth.php');
21 my $login_id = $auth->send_request('auth.rlogin', '_koha', $ENV{PASSWD} )->value;
22 die dump $login_id if ref $login_id eq 'HASH';
24 warn "# login_id $login_id\n";
26 my $self = { login_id => $login_id };
31 our $users = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_users.php');
33 my ($self,$code) = @_;
35 my $path = "ferweb/$code";
36 return YAML::LoadFile $path if -e $path;
38 my $res = $users->send_request(
39 'users.getinfobycode', $self->{login_id}, RPC::XML::string->new($code)
42 print "[$code] = ", dump($res), $/;
44 YAML::DumpFile $path, $res;