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 |
|
377 |
$resp = $ua->post( |
385 |
$resp = $ua->post( |
378 |
$base_url . IMPORT_SVC_URI, |
386 |
$base_url . IMPORT_SVC_URI, |
379 |
{ |
387 |
{ |
Lines 388-394
sub handle_request {
Link Here
|
388 |
} |
396 |
} |
389 |
) if $resp->is_success; |
397 |
) if $resp->is_success; |
390 |
} |
398 |
} |
391 |
unless ($resp->is_success) { |
399 |
unless ($resp->is_success) { |
392 |
$self->log("Unsuccessful request", $resp->request->as_string, $resp->as_string); |
400 |
$self->log("Unsuccessful request", $resp->request->as_string, $resp->as_string); |
393 |
return $self->error_response("Unsuccessful request"); |
401 |
return $self->error_response("Unsuccessful request"); |
394 |
} |
402 |
} |
395 |
- |
|
|