<% header('Configuration set') %> <%once> #false laziness w/config-view.cgi my %namecol = ( 'part_svc' => 'svc', 'part_pkg' => 'pkg', 'pkg_class' => 'classname', ); <%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied\n" unless $curuser->access_right('Configuration'); my $conf = new FS::Conf; if ( $conf->exists('disable_settings_changes') ) { my @changers = split(/\s*,\s*/, $conf->config('disable_settings_changes')); my %changers = map { $_=>1 } @changers; unless ( $changers{$curuser->username} ) { errorpage("Disabled in web demo"); die "shouldn't be reached"; } } $FS::Conf::DEBUG = 1; my @config_items = grep { $_->key != ~/^invoice_(html|latex|template)/ } $conf->config_items; my %confitems = map { $_->key => $_ } $conf->config_items; my $agentnum = $cgi->param('agentnum'); my $key = $cgi->param('key'); my $i = $confitems{$key}; my @touch = (); my @delete = (); my $n = 0; foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) { if ( $type eq '' ) { } elsif ( $type eq 'textarea' ) { if ( $cgi->param($i->key.$n) ne '' ) { my $value = $cgi->param($i->key.$n); $value =~ s/\r\n/\n/g; #browsers? $conf->set($i->key, $value, $agentnum); } else { $conf->delete($i->key, $agentnum); } } elsif ( $type eq 'binary' || $type eq 'image' ) { if ( defined($cgi->param($i->key.$n)) && $cgi->param($i->key.$n) ) { my $fh = $cgi->upload($i->key.$n); if (defined($fh)) { local $/; $conf->set_binary($i->key, <$fh>, $agentnum); } }else{ warn "Condition failed for " . $i->key; } } elsif ( $type eq 'checkbox' ) { if ( defined $cgi->param($i->key.$n) ) { push @touch, $i->key; } else { push @delete, $i->key; } } elsif ( $type =~ /^(editlist|selectmultiple)$/ or ( $type =~ /^select(-(sub|part_svc|part_pkg|pkg_class))?$/ || $i->multiple ) ) { if ( scalar(@{[ $cgi->param($i->key.$n) ]}) ) { $conf->set($i->key, join("\n", @{[ $cgi->param($i->key.$n) ]} ), $agentnum); } else { $conf->delete($i->key, $agentnum); } } elsif ( $type =~ /^(text|select(-(sub|part_svc|part_pkg|pkg_class))?)$/ ) { if ( $cgi->param($i->key.$n) ne '' ) { $conf->set($i->key, $cgi->param($i->key.$n), $agentnum); } else { $conf->delete($i->key, $agentnum); } } $n++; } # warn @touch; $conf->touch($_, $agentnum) foreach @touch; $conf->delete($_, $agentnum) foreach @delete;