From cc56536641b9f5fbad3e2d76448f4772c6b2d886 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Tue, 10 Oct 2023 09:49:33 -0400
Subject: [PATCH] BWS-PKG - Log GET and POST params for each request

---
 Koha/Middleware/SetEnv.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Koha/Middleware/SetEnv.pm b/Koha/Middleware/SetEnv.pm
index e1a3d96698..b5e55513ad 100644
--- a/Koha/Middleware/SetEnv.pm
+++ b/Koha/Middleware/SetEnv.pm
@@ -80,6 +80,10 @@ sub call {
     my ( $self, $env ) = @_;
     my $req = Plack::Request->new($env);
 
+    Koha::Logger->get()
+        ->warn( $req->request_uri . " CALLED WITH " . Data::Dumper::Dumper( $req->parameters->as_hashref_mixed ) )
+        if $req->method eq 'POST';
+
     # First, we split the result only on unescaped commas.
     my @setenv_headers = split /(?<!\\),\s*/, $req->header('X-Koha-SetEnv') || '';