Attachment 109418 Details for Bug 22417 – Bug 22417: [DO NOT PUSH] Add simple worker and add_job scripts

[patch] Bug 22417: [DO NOT PUSH] Add simple worker and add_job scripts

Bug-22417-DO-NOT-PUSH-Add-simple-worker-and-addjob.patch (text/plain), 2.54 KB, created by Jonathan Druart on 2020-09-01 09:39:54 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2020-09-01 09:39:54 UTC

Size: 2.54 KB

patch

obsolete

>From a9cb10b74c4902a88143971e1363bf767391dff6 Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
>Date: Tue, 1 Sep 2020 11:39:36 +0200
>Subject: [PATCH] Bug 22417: [DO NOT PUSH] Add simple worker and add_job
> scripts
>
>---
> koha_worker.pl  | 36 ++++++++++++++++++++++++++++++++++++
> new_koha_job.pl | 23 +++++++++++++++++++++++
> 2 files changed, 59 insertions(+)
> create mode 100644 koha_worker.pl
> create mode 100644 new_koha_job.pl
>
>diff --git a/koha_worker.pl b/koha_worker.pl
>new file mode 100644
>index 0000000000..f6efb07a54
>--- /dev/null
>+++ b/koha_worker.pl
>@@ -0,0 +1,36 @@
>+#!/usr/bin/perl
>+
>+use Modern::Perl;
>+use JSON qw( encode_json decode_json );
>+
>+use Koha::BackgroundJob;
>+
>+my $conn = Koha::BackgroundJob->connect;
>+
>+my @job_types = qw( batch_biblio_record_modification batch_authority_record_modification );
>+
>+# FIXME cf note in Koha::BackgroundJob about $namespace
>+my $namespace = C4::Context->config('memcached_namespace');
>+for my $job_type ( @job_types ) {
>+    $conn->subscribe({ destination => sprintf("%s-%s", $namespace, $job_type), ack => 'client' });
>+}
>+while (1) {
>+    my $frame = $conn->receive_frame;
>+    if ( !defined $frame ) {
>+        # maybe log connection problems
>+        next;    # will reconnect automatically
>+    }
>+
>+    my $body = $frame->body;
>+    say " [x] Received $body";
>+    my $args = decode_json($body);
>+
>+    # FIXME This means we need to have create the DB entry before
>+    # It could work in a first step, but then we will want to handle job that will be created from the message received
>+    my $job = Koha::BackgroundJobs->find($args->{job_id});
>+    my $success = $job->process( $args );
>+    say " [x] Done";
>+
>+    $conn->ack( { frame => $frame } ); # FIXME depending on $success?
>+}
>+$conn->disconnect;
>diff --git a/new_koha_job.pl b/new_koha_job.pl
>new file mode 100644
>index 0000000000..425f412c2c
>--- /dev/null
>+++ b/new_koha_job.pl
>@@ -0,0 +1,23 @@
>+#!/usr/bin/perl
>+
>+use Modern::Perl;
>+use C4::Context;
>+use Koha::BackgroundJob::BatchUpdateBiblio;
>+
>+my $mmtid       = 1;
>+my $record_type = 'biblio';
>+my @record_ids  = ( 1, 2, 3 );
>+
>+C4::Context->_new_userenv(42);
>+C4::Context->set_userenv( 51, 51, 42, 'koha', 'koha', 'CPL', 'CPL', 1 );
>+
>+say " [x] Enqueuing BatchUpdateBiblio mmtid=$mmtid with biblionumber="
>+  . join( ',', @record_ids );
>+Koha::BackgroundJob::BatchUpdateBiblio->new->enqueue(
>+    {
>+        job_type    => 'batch_record_modification',
>+        mmtid       => $mmtid,
>+        record_type => $record_type,
>+        record_ids  => \@record_ids,
>+    }
>+);
>-- 
>2.20.1

Actions: View | Diff | Splinter Review

Attachments on bug 22417: 105542 | 105543 | 107385 | 107386 | 107387 | 107388 | 107389 | 107390 | 107391 | 107392 | 107393 | 107394 | 107395 | 107396 | 107397 | 107398 | 107399 | 107400 | 107401 | 107402 | 107403 | 107404 | 107405 | 107406 | 107481 | 107482 | 107682 | 108023 | 108024 | 108025 | 108026 | 108027 | 108028 | 108029 | 108030 | 108031 | 108032 | 108033 | 108034 | 108035 | 108036 | 108037 | 108038 | 108039 | 108040 | 108041 | 108042 | 108043 | 108044 | 108045 | 108046 | 108047 | 109270 | 109271 | 109319 | 109320 | 109321 | 109322 | 109323 | 109324 | 109325 | 109326 | 109327 | 109328 | 109329 | 109330 | 109331 | 109332 | 109333 | 109334 | 109335 | 109336 | 109337 | 109338 | 109339 | 109340 | 109341 | 109342 | 109343 | 109344 | 109345 | 109350 | 109351 | 109355 | 109390 | 109391 | 109392 | 109393 | 109394 | 109395 | 109396 | 109397 | 109398 | 109399 | 109400 | 109401 | 109402 | 109403 | 109404 | 109405 | 109406 | 109407 | 109408 | 109409 | 109410 | 109411 | 109412 | 109413 | 109414 | 109415 | 109416 | 109417 | 109418 | 109474 | 109475 | 109476 | 109477 | 110150 | 111091 | 111092 | 111093 | 111094 | 111095 | 111096 | 111097 | 111098 | 111099 | 111100 | 111101 | 111102 | 111103 | 111104 | 111105 | 111106 | 111107 | 111108 | 111109 | 111110 | 111111 | 111112 | 111113 | 111114 | 111115 | 111116 | 111117 | 111118 | 111119 | 111120 | 111121 | 111238 | 111239 | 111245