move configurable variables in code

added PROFILE

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

diff --git a/templates/config/index.html.ep b/templates/config/index.html.ep
index 2a0cb39..6872ff3 100644 (file)
--- a/templates/config/index.html.ep
+++ b/templates/config/index.html.ep
@@ -6,13 +6,16 @@
 
 <ul>
 
-<h2>Replication</h2>
-<li>MASTER
-<input type=text name=MASTER value="<%= $ENV{MASTER} %>">
+% foreach my $name ( @$config ) {
 
-<h2>Facet display</h2>
-<li>MAX_FACETS
-<input type=text name=MAX_FACETS value="<%= $ENV{MAX_FACETS} %>">
+<li>
+<label>
+<%= $name %>
+<input type=text name=<%= $name %> value="<%= $ENV{$name} %>">
+</label>
+</li>
+
+% }
 
 </ul>