Bug 42714: (QA follow-up) Add comment with Perl doc for bash

Signed-off-by: Pedro Amorim <pedro.amorim@openfifth.co.uk>
This commit is contained in:
Nick Clemens 2026-06-04 11:37:20 +00:00 committed by Pedro Amorim
parent ad5fe0adff
commit 2d73f3eb42
No known key found for this signature in database
GPG Key ID: 06B75BA7F3894D55
1 changed files with 4 additions and 1 deletions

View File

@ -215,13 +215,16 @@ Logs the path and name of the calling script plus the information provided by pa
=cut
#'
sub cronlogaction {
my $params = shift;
my $info = $params->{info};
my $action = $params->{action};
$action ||= "Run";
# $0 is a special Perl variable containing the program that is currently running
# https://perldoc.perl.org/variables/$0
my $loginfo = $0;
$loginfo .= ' ' . $info if $info;
logaction( 'CRONJOBS', $action, $$, $loginfo ) if C4::Context->preference('CronjobLog');
}