X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FFERWeb.pm;fp=lib%2FFERWeb.pm;h=bed57dc622d34f88c3f3bb44ff2f9b55db3e202d;hb=51c7c40dba990905e76dc7751afb153dd431fd23;hp=0000000000000000000000000000000000000000;hpb=33ad5b9c4e4829dfa239842107d790f07c5a91b4;p=ferlib2koha.git

diff --git a/lib/FERWeb.pm b/lib/FERWeb.pm
new file mode 100755
index 0000000..bed57dc
--- /dev/null
+++ b/lib/FERWeb.pm
@@ -0,0 +1,43 @@
+package FERWeb;
+use warnings;
+use strict;
+
+# sudo apt-get install librpc-xml-perl libio-socket-ssl-perl
+
+#use IO::Socket::SSL qw(debug4);
+#use LWP::Debug qw(+);
+
+require RPC::XML;
+require RPC::XML::Client;
+
+use Data::Dump qw(dump);
+
+sub new {
+	my ($class) = @_;
+
+	my $auth = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_auth.php');
+
+	my $login_id = $auth->send_request('auth.rlogin', '_koha', $ENV{PASSWD} )->value;
+	die dump $login_id if ref $login_id eq 'HASH';
+
+	warn "# login_id $login_id\n";
+
+	my $self = { login_id => $login_id };
+	bless $self, $class;
+	return $self;
+}
+
+our $users = RPC::XML::Client->new('https://www.fer.hr/xmlrpc/xr_users.php');
+sub getinfobycode {
+	my ($self,$code) = @_;
+
+	my $res = $users->send_request(
+		'users.getinfobycode', $self->{login_id}, RPC::XML::string->new($code)
+	)->value;
+
+	print "[$code] = ", dump($res), $/;
+
+	return $res;
+}
+
+1;