<% include("/elements/header.html",'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 %hash = (); % if ( $i->select_enum ) { % tie %hash, 'Tie::IxHash', % '' => '', map { $_ => $_ } @{ $i->select_enum }; % } elsif ( $i->select_hash ) { % if ( ref($i->select_hash) eq 'ARRAY' ) { % tie %hash, 'Tie::IxHash', % '' => '', @{ $i->select_hash }; % } else { % tie %hash, 'Tie::IxHash', % '' => '', %{ $i->select_hash }; % } % } else { % %hash = ( '' => 'WARNING: neither select_enum nor select_hash specified in Conf.pm for configuration option "'. $i->key. '"' ); % } % % my %saw = (); % foreach my $value ( keys %hash ) { % local($^W)=0; next if $saw{$value}++; % my $label = $hash{$value}; % config($i->key) || ( $type eq 'selectmultiple' && grep { $_ eq $value } $conf->config($i->key) ) ? ' SELECTED' : '' %>><% $label %> % } % my $curvalue = $conf->config($i->key); % if ( $conf->exists($i->key) && $curvalue % && ! $hash{$curvalue} % ) { % <% exists( $hash{ $conf->config($i->key) } ) ? $hash{ $conf->config($i->key) } : $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.


% }

<%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Configuration');