remove hash from first column name

[MojoFacets.git] / lib / MojoFacets / Config.pm

diff --git a/lib/MojoFacets/Config.pm b/lib/MojoFacets/Config.pm
index 7aab7c5..0769259 100644 (file)
--- a/lib/MojoFacets/Config.pm
+++ b/lib/MojoFacets/Config.pm
@@ -8,12 +8,24 @@ use base 'Mojolicious::Controller';
 sub index {
        my $self = shift;
 
-       if ( my $master = $self->param('MASTER') ) {
-               $ENV{MASTER} = $master;
-               warn "MASTER = $master\n";
+       my @config = (qw(
+               MASTER
+               MAX_FACETS
+               PROFILE
+               DEBUG
+       ));
+
+       foreach my $name ( @config ) {
+               my $val = $self->param($name);
+               if ( defined $val ) {
+                       $ENV{$name} = $val;
+                       warn "$name = $val\n";
+               }
        }
 
-       $self->render;
+       $self->render(
+               config => \@config,
+       );
 }
 
 1;