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