|
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 |
- |
|
|