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') || '';