Attachment 102821 Details for Bug 23571 – Bug 23571: Prevent concurrent execution of fines.pl

[patch] Bug 23571: Prevent concurrent execution of fines.pl

Bug-23571-Prevent-concurrent-execution-of-finespl.patch (text/plain), 1.82 KB, created by Tomás Cohen Arazi (tcohen) on 2020-04-13 11:56:04 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Tomás Cohen Arazi (tcohen)

Created: 2020-04-13 11:56:04 UTC

Size: 1.82 KB

patch

obsolete

>From 90b109f379c2dd745136d8a59ff02be1398f6407 Mon Sep 17 00:00:00 2001
>From: Tomas Cohen Arazi <tomascohen@theke.io>
>Date: Sun, 12 Apr 2020 10:27:57 -0300
>Subject: [PATCH] Bug 23571: Prevent concurrent execution of fines.pl
>
>This patch introduces locking in fines.pl. It does so by leveraging on
>bug 25109, which introduces a generic locking implementation on
>Koha::Script.
>
>The introduced changes:
>1. Try to get the lock
>2.a. If success, normal execution happens
>2.b. If rejected, cronlogaction is called with a meaningful message and
>  a normal exit happens, so we don't flood the logs in vain. --verbose
>  will make the script print the same message on STDERR, as already is
>  the case with this script
>
>To test:
>1. Apply this patch
>2. In two separate consoles run:
>   $ kshell
>  k$ perl misc/cronjobs/fines.pl --verbose
>SUCCESS => The first one runs normally, the second one exists really fast
>  and prints a message about the lock.
>3. Sign off :-D
>
>Sponsored-by: Orex Digital
>
>Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
>
>Amended-pach JD: Fix syntax issue (typo Koha::Scrip and ';' after the
>catch block)
>---
> misc/cronjobs/fines.pl | 14 ++++++++++++++
> 1 file changed, 14 insertions(+)
>
>diff --git a/misc/cronjobs/fines.pl b/misc/cronjobs/fines.pl
>index a5b920a880..10287bbaa6 100755
>--- a/misc/cronjobs/fines.pl
>+++ b/misc/cronjobs/fines.pl
>@@ -36,6 +36,7 @@ use C4::Overdues;
> use Getopt::Long;
> use Carp;
> use File::Spec;
>+use Try::Tiny;
> 
> use Koha::Calendar;
> use Koha::DateUtils;
>@@ -76,6 +77,19 @@ if ($help) {
>     exit;
> }
> 
>+my $script_handler = Koha::Script->new({ script => $0 });
>+
>+try {
>+    $script_handler->lock_exec;
>+}
>+catch {
>+    my $message = "Skipping execution of $0 ($_)";
>+    print STDERR $message
>+        if $verbose;
>+    cronlogaction( $message );
>+    exit;
>+};
>+
> cronlogaction();
> 
> my @borrower_fields =
>-- 
>2.26.0

Actions: View | Diff | Splinter Review

Attachments on bug 23571: 96055 | 96056 | 98898 | 98899 | 99263 | 99264 | 99265 | 102772 | 102804 | 102821 | 102844 | 102888 | 102910 | 102911 | 102912