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

(-)a/misc/migration_tools/koha-svc.pl (-7 / +6 lines)
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
- 

Return to bug 37553