BWS-PKG - Log GET and POST params for each request

bywatersolutions · Oct 10, 2023 · cc56536 · cc56536
1 parent f0524cb
commit cc56536
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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') || '';