Lines 95-109
Specified user must have C<editcatalogue> permission.
Link Here
|
95 |
|
95 |
|
96 |
sub new { |
96 |
sub new { |
97 |
my $class = shift; |
97 |
my $class = shift; |
98 |
my $self = {@_}; |
98 |
my $self = {@_}; |
99 |
bless $self, $class; |
99 |
bless $self, $class; |
100 |
|
100 |
|
101 |
my $url = $self->{url} || die "no url found"; |
101 |
my $url = $self->{url} || die "no url found"; |
102 |
my $user = $self->{user} || die "no user specified"; |
102 |
my $user = $self->{user} || die "no user specified"; |
103 |
my $password = $self->{password} || die "no password"; |
103 |
my $password = $self->{password} || die "no password"; |
104 |
|
104 |
|
105 |
my $ua = LWP::UserAgent->new(); |
105 |
my $ua = LWP::UserAgent->new(); |
106 |
$ua->cookie_jar({}); |
106 |
$ua->cookie_jar( {} ); |
107 |
|
107 |
|
108 |
my $get_resp = $ua->get("$url/authentication"); |
108 |
my $get_resp = $ua->get("$url/authentication"); |
109 |
my $csrf_token = $get_resp->header('CSRF-TOKEN'); |
109 |
my $csrf_token = $get_resp->header('CSRF-TOKEN'); |
Lines 149-159
sub get {
Link Here
|
149 |
=cut |
149 |
=cut |
150 |
|
150 |
|
151 |
sub post { |
151 |
sub post { |
152 |
my ($self,$biblionumber,$marcxml) = @_; |
152 |
my ( $self, $biblionumber, $marcxml ) = @_; |
153 |
my $url = $self->{url}; |
153 |
my $url = $self->{url}; |
154 |
warn "# post $url/bib/$biblionumber\n" if $self->{debug}; |
154 |
warn "# post $url/bib/$biblionumber\n" if $self->{debug}; |
155 |
my $csrf_token = $self->{csrf_token}; |
155 |
my $csrf_token = $self->{csrf_token}; |
156 |
my $resp = $self->{ua}->post( |
156 |
my $resp = $self->{ua}->post( |
157 |
"$url/bib/$biblionumber", |
157 |
"$url/bib/$biblionumber", |
158 |
'Content_type' => 'text/xml', |
158 |
'Content_type' => 'text/xml', |
159 |
'Csrf_Token' => $csrf_token, |
159 |
'Csrf_Token' => $csrf_token, |
160 |
- |
|
|