View | Details | Raw Unified | Return to bug 37318
Collapse All | Expand All

(-)a/misc/bin/connexion_import_daemon.pl (-4 / +11 lines)
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
- 

Return to bug 37318