From e35056ba8bef83d18cdeaf9f5ac30fe0d83443a2 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillaume.rousse@renater.fr>
Date: Fri, 3 Aug 2018 16:47:08 +0200
Subject: [PATCH] dump parameters in debug mode
---
lib/AccountManager/App.pm | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lib/AccountManager/App.pm b/lib/AccountManager/App.pm
index 4f96f48..73be30b 100644
--- a/lib/AccountManager/App.pm
+++ b/lib/AccountManager/App.pm
@@ -144,6 +144,12 @@ sub new {
sub run {
my ($self) = @_;
+ if ($self->{logger}->is_debug()) {
+ require Data::Dump;
+ my %parameters = $self->{cgi}->Vars();
+ $self->{logger}->debugf("input parameters: %s", Data::Dump::dump(\%parameters));
+ }
+
# process requested action
my $action = $self->{cgi}->param('action') || 'home';
if ($actions{$action}) {
--
GitLab