From 7c9edef280b9585f2ab0529a22b0e505278ee73b Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 10 Nov 2011 21:39:55 +0100 Subject: [PATCH] Bug 7213: simple /svc/ HTTP example --- misc/migration_tools/koha-svc.pl | 47 ++++++++++++++++++++++++++++++++++++++ 1 files changed, 47 insertions(+), 0 deletions(-) create mode 100755 misc/migration_tools/koha-svc.pl diff --git a/misc/migration_tools/koha-svc.pl b/misc/migration_tools/koha-svc.pl new file mode 100755 index 0000000..6ba9ae0 --- /dev/null +++ b/misc/migration_tools/koha-svc.pl @@ -0,0 +1,47 @@ +#!/usr/bin/perl + +use warnings; +use strict; + +use LWP::UserAgent; +use File::Slurp; + +my $url = 'http://srvgit.koha-dev.rot13.org:8080/cgi-bin/koha/svc'; + +my $biblionumber = 252283; + +my $file = "bib-$biblionumber.marcxml"; + +my $user = 'svcuser'; +my $password = 'svcpasswd'; +my $debug = 1; + +my $ua = LWP::UserAgent->new(); +$ua->cookie_jar({}); +my $resp = $ua->post( "$url/authentication", {userid =>$user, password => $password} ); +die $resp->status_line unless $resp->is_success; + +if ( ! -e $file ) { + + $resp = $ua->get( "$url/bib/$biblionumber", userid =>$user, password => $password ); + die $resp->status_line unless $resp->is_success; + write_file $file, $resp->decoded_content; + print "saved $file ", -s $file, " bytes\n"; + +} + +print $resp->decoded_content; + +$resp = $ua->post( "$url/bib/$biblionumber", {userid =>$user, password => $password} ); +die $resp->status_line unless $resp->is_success; + +print "Authentication successful\n"; + +my $resp = $ua->post( "$url/bib/$biblionumber", {userid =>$user, password => $password, + POSTDATA => scalar read_file($file), +} ); + +print $resp->status_line; + +die $resp->status_line unless $resp->is_success; + -- 1.7.2.5