Attachment 136395 Details for Bug 31001 – Bug 31001: Fix "CGI::param called in list context" warning in basket.pl

[patch] Bug 31001: Fix "CGI::param called in list context" warning in basket.pl

Bug-31001-Fix-CGIparam-called-in-list-context-warn.patch (text/plain), 1.96 KB, created by Peter Vashchuk on 2022-06-21 13:11:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Peter Vashchuk

Created: 2022-06-21 13:11:00 UTC

Size: 1.96 KB

patch

obsolete

>From 6e368071bc383a677a7cdf6c5f4471f9a8281540 Mon Sep 17 00:00:00 2001
>From: Petro Vashchuk <stalkernoid@gmail.com>
>Date: Tue, 21 Jun 2022 16:02:51 +0300
>Subject: [PATCH] Bug 31001: Fix "CGI::param called in list context" warning in
> basket.pl
>
>CGI param basketno should be explicitly scalar,
>or else error log gets flooded with this warning:
>
>AH01215: CGI::param called in list context from
>/home/vagrant/kohaclone/acqui/basket.pl line 175, this can lead to
>vulnerabilities. See the warning in "Fetching the value or values of a
>single named parameter" at /usr/share/perl5/CGI.pm line 412.
>
>This patch fixes it by working with it in a scalar context.
>The functionality still remains the same but warning doesn't flood
>error log.
>
>To reproduce:
>1. Head over to the acquisitions page.
>2. Pick existing vendor with email contact info or create a new one.
>3. Create a new basket or use existing one, and if it doesn't have
>any orders, add a new order to it.
>4. Use the "E-mail order" button to send order.
>5. Check the error log and find the upper mentioned warning.
>(Note: if you're going to test this more than once, you might need
>to restart your Plack in order for this warning to get added to your
>log file again, reasons of that is that the authors of CGI.pm decided
>to "warn only once")
>6. Apply the patch.
>7. Use the "E-mail order" button again, ensure that the same warning
>doesn't get added to the log file again.
>---
> acqui/basket.pl | 2 +-
> 1 file changed, 1 insertion(+), 1 deletion(-)
>
>diff --git a/acqui/basket.pl b/acqui/basket.pl
>index bdc3a4d455..c028dc0219 100755
>--- a/acqui/basket.pl
>+++ b/acqui/basket.pl
>@@ -172,7 +172,7 @@ if ( $op eq 'delete_confirm' ) {
>     exit;
> } elsif ($op eq 'email') {
>     my $err = eval {
>-        SendAlerts( 'orderacquisition', $query->param('basketno'), 'ACQORDER' );
>+        SendAlerts( 'orderacquisition', scalar $query->param('basketno'), 'ACQORDER' );
>     };
>     if ( $@ ) {
>         push @messages, { type => 'error', code => $@ };
>-- 
>2.35.3

Actions: View | Diff | Splinter Review

Attachments on bug 31001: 136395 | 136558 | 137249