|
Lines 104-110
use MARC::File::XML;
Link Here
|
| 104 |
|
104 |
|
| 105 |
use constant CLIENT_READ_TIMEOUT => 5; |
105 |
use constant CLIENT_READ_TIMEOUT => 5; |
| 106 |
use constant CLIENT_READ_BUFFER_SIZE => 100000; |
106 |
use constant CLIENT_READ_BUFFER_SIZE => 100000; |
| 107 |
use constant AUTH_URI => "/cgi-bin/koha/mainpage.pl"; |
107 |
use constant AUTH_URI => "/cgi-bin/koha/svc/authentication"; |
| 108 |
use constant IMPORT_SVC_URI => "/cgi-bin/koha/svc/import_bib"; |
108 |
use constant IMPORT_SVC_URI => "/cgi-bin/koha/svc/import_bib"; |
| 109 |
|
109 |
|
| 110 |
sub new { |
110 |
sub new { |
|
Lines 373-379
sub handle_request {
Link Here
|
| 373 |
if ( $status == HTTP_UNAUTHORIZED || $status == HTTP_FORBIDDEN ) { |
373 |
if ( $status == HTTP_UNAUTHORIZED || $status == HTTP_FORBIDDEN ) { |
| 374 |
my $user = $self->{user}; |
374 |
my $user = $self->{user}; |
| 375 |
my $password = $self->{password}; |
375 |
my $password = $self->{password}; |
| 376 |
$resp = $ua->post( $base_url . AUTH_URI, { userid => $user, password => $password } ); |
376 |
|
|
|
377 |
$resp = $ua->get( $base_url . AUTH_URI ); |
| 378 |
my $csrf_token = $resp->header('CSRF-TOKEN'); |
| 379 |
$resp = $ua->post( $base_url . AUTH_URI, { |
| 380 |
userid => $user, |
| 381 |
password => $password, |
| 382 |
csrf_token => $csrf_token |
| 383 |
}); |
| 384 |
$csrf_token = $resp->header('CSRF-TOKEN'); |
| 377 |
$resp = $ua->post( |
385 |
$resp = $ua->post( |
| 378 |
$base_url . IMPORT_SVC_URI, |
386 |
$base_url . IMPORT_SVC_URI, |
| 379 |
{ |
387 |
{ |
|
Lines 384-394
sub handle_request {
Link Here
|
| 384 |
'framework' => $self->{params}->{framework}, |
392 |
'framework' => $self->{params}->{framework}, |
| 385 |
'overlay_framework' => $self->{params}->{overlay_framework}, |
393 |
'overlay_framework' => $self->{params}->{overlay_framework}, |
| 386 |
'item_action' => $self->{params}->{item_action}, |
394 |
'item_action' => $self->{params}->{item_action}, |
| 387 |
'xml' => $data |
395 |
'xml' => $data, |
|
|
396 |
csrf_token => $csrf_token |
| 388 |
} |
397 |
} |
| 389 |
) if $resp->is_success; |
398 |
) if $resp->is_success; |
| 390 |
} |
399 |
} |
| 391 |
unless ($resp->is_success) { |
400 |
unless ($resp->is_success) { |
| 392 |
$self->log("Unsuccessful request", $resp->request->as_string, $resp->as_string); |
401 |
$self->log("Unsuccessful request", $resp->request->as_string, $resp->as_string); |
| 393 |
return $self->error_response("Unsuccessful request"); |
402 |
return $self->error_response("Unsuccessful request"); |
| 394 |
} |
403 |
} |
| 395 |
- |
|
|