ferweb-xmlrpc.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 # sudo apt-get install librpc-xml-perl libio-socket-ssl-perl
   6
   7 #use IO::Socket::SSL qw(debug4);
   8 #use LWP::Debug qw(+);
   9
  10 require RPC::XML;
  11 require RPC::XML::Client;
  12
  13 use Data::Dump qw(dump);
  14
  15 my $code = shift @ARGV;
  16
  17 my $auth = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_auth.php');
  18
  19 my $login_id = $auth->send_request('auth.rlogin', '_koha', $ENV{PASSWD} )->value;
  20 die dump $login_id if ref $login_id eq 'HASH';
  21
  22 warn "# login_id $login_id\n";
  23
  24 my $users = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_users.php');
  25 my $res = $users->send_request('users.getinfobycode',$login_id, RPC::XML::string->new($code) )->value;
  26
  27 print "[$code] = ", dump($res), $/;
  28