<%= header('Edit Configuration', menubar( 'Main Menu' => $p ) ) %> <% my $conf = new FS::Conf; my @config_items = $conf->config_items; %>

<% foreach my $section ( qw(required billing username password UI session shell BIND ), '', 'deprecated') { %> <% foreach my $nav_section ( qw(required billing username password UI session shell BIND ), '', 'deprecated') { %> <% if ( $section eq $nav_section ) { %> [<%= ucfirst($nav_section || 'unclassified') %>] <% } else { %> [<%= ucfirst($nav_section || 'unclassified') %>] <% } %> <% } %>
<%= table("#cccccc", 2) %> <%= ucfirst($section || 'unclassified') %> configuration options <% foreach my $i (grep $_->section eq $section, @config_items) { %> <% my $n = 0; foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) { #warn $i->key unless defined($type); %> <% if ( $type eq '' ) { %> no type <% } elsif ( $type eq 'textarea' ) { %> <%= "\n". join("\n", $conf->config($i->key) ) %> <% } elsif ( $type eq 'checkbox' ) { %> exists($i->key) ? ' CHECKED' : '' %>> <% } elsif ( $type eq 'text' ) { %> <% } elsif ( $type eq 'select' || $type eq 'selectmultiple' ) { %> > <% my %saw; foreach my $value ( "", @{$i->select_enum} ) { local($^W)=0; next if $saw{$value}++; %> config($i->key) || ( $type eq 'selectmultiple' && grep { $_ eq $value } $conf->config($i->key) ) ? ' SELECTED' : '' %>><%= $value %> <% } %> <% if ( $conf->exists($i->key) && $conf->config($i->key) && ! grep { $conf->config($i->key) eq $_ } @{$i->select_enum}) { %> config($i->key) %> SELECTED><%= $conf->config($i->key) %> <% } %> <% } elsif ( $type eq 'select-sub' ) { %> <% my %options = &{$i->options_sub}; my @options = sort { $a <=> $b } keys %options; my %saw; foreach my $value ( @options ) { local($^W)=0; next if $saw{$value}++; %> config($i->key) ? ' SELECTED' : '' %>><%= $value %>: <%= $options{$value} %> <% } %> <% if ( $conf->exists($i->key) && $conf->config($i->key) && ! exists $options{$conf->config($i->key)} ) { %> config($i->key) %> SELECTED><%= $conf->config($i->key) %>: <%= &{ $i->option_sub }( $conf->config($i->key) ) %> <% } %> <% } elsif ( $type eq 'editlist' ) { %> ---------------------------------------------------------------- <% foreach my $line ( $conf->config($i->key) ) { %> <%= $line %> <% } %>

<%= itable() %> <% if ( defined $i->editlist_parts ) { %> <% my $pnum=0; foreach my $part ( @{$i->editlist_parts} ) { %> <% if ( $part->{type} eq 'text' ) { %> "> <% } elsif ( $part->{type} eq 'immutable' ) { %> <%= $part->{value} %>" value="<%= $part->{value} %>"> <% } elsif ( $part->{type} eq 'select' ) { %> "> <% foreach my $key ( keys %{$part->{select_enum}} ) { %> <%= $part->{select_enum}{$key} %> <% } %> <% } else { %> unknown type <%= $part->type %> <% } %> <% $pnum++; } %> <% } else { %> <% } %> <% } else { %> unknown type <%= $type %> <% } %> <% $n++; } %> <%= $i->key %> - <%= $i->description %> <% } %>
You may need to restart Apache and/or freeside-queued for configuration changes to take effect.


<% } %>