diff options
Diffstat (limited to 'httemplate/config/config-process.cgi')
-rw-r--r-- | httemplate/config/config-process.cgi | 190 |
1 files changed, 190 insertions, 0 deletions
diff --git a/httemplate/config/config-process.cgi b/httemplate/config/config-process.cgi new file mode 100644 index 0000000..4e1c85a --- /dev/null +++ b/httemplate/config/config-process.cgi @@ -0,0 +1,190 @@ +%if ( scalar(@error) ) { +% +% my $url = popurl(1)."config.cgi"; +% if ( length($cgi->query_string) > 1920 ) { #stupid IE 2083 URL limit +% +% my $session = int(rand(4294967296)); #XXX +% my $pref = new FS::access_user_pref({ +% 'usernum' => $FS::CurrentUser::CurrentUser->usernum, +% 'prefname' => "redirect$session", +% 'prefvalue' => $cgi->query_string, +% 'expiration' => time + 3600, #1h? 1m? +% }); +% my $pref_error = $pref->insert; +% if ( $pref_error ) { +% die "FATAL: couldn't even set redirect cookie: $pref_error". +% " attempting to set redirect$session to ". $cgi->query_string."\n"; +% } +% +<% $cgi->redirect("$url?redirect=$session") %> +% +% } else { +% +<% $cgi->redirect("$url?". $cgi->query_string ) %> +% +% } +% +%} else { +<% header('Configuration set') %> + <SCRIPT TYPE="text/javascript"> +% my $n = 0; +% foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) { + var configCell = window.top.document.getElementById('<% $agentnum. $i->key. $n %>'); + if ( ! configCell ) { + window.top.location.reload(); + } + //alert('found cell ' + configCell); +% if ( $type eq 'textarea' +% || $type eq 'editlist' +% || $type eq 'selectmultiple' ) { + configCell.innerHTML = + '<font size="-2"><pre>' + "\n" + + <% encode_entities(join("\n", + map { length($_) > 88 ? substr($_,0,88).'...' : $_ } + $conf->config($i->key, $agentnum) + ) ) + |js_string %> + + '</pre></font>'; + +% } elsif ( $type eq 'checkbox' ) { +% if ( $conf->exists($i->key, $agentnum) ) { + configCell.style.backgroundColor = '#00ff00'; + configCell.innerHTML = 'YES'; +% } else { + configCell.style.backgroundColor = '#ff0000'; + configCell.innerHTML = 'NO'; +% } +% } elsif ( $type eq 'select' && $i->select_hash ) { +% my %hash; +% if ( ref($i->select_hash) eq 'ARRAY' ) { +% tie %hash, 'Tie::IxHash', '' => '', @{ $i->select_hash }; +% } else { +% tie %hash, 'Tie::IxHash', '' => '', %{ $i->select_hash }; +% } + configCell.innerHTML = <% $conf->exists($i->key, $agentnum) ? $hash{ $conf->config($i->key, $agentnum) } : '' |js_string %>; + +% } elsif ( $type eq 'text' || $type eq 'select' ) { + configCell.innerHTML = <% $conf->exists($i->key, $agentnum) ? $conf->config($i->key, $agentnum) : '' |js_string %>; +% } elsif ( $type =~ /^select-(part_svc|part_pkg|pkg_class)$/ && ! $i->multiple ) { +% my $table = $1; +% my $namecol = $namecol{$table}; +% my $pkey = dbdef->table($table)->primary_key; +% my $key = $conf->config($i->key, $agentnum); +% my $record = qsearchs($table, { $pkey => $key }); +% my $value = $record ? "$key: ".$record->$namecol() : $key; + configCell.innerHTML = <% $value |js_string %>; +% } elsif ( $type eq 'select-sub' && ! $i->multiple ) { + configCell.innerHTML = + <% $conf->config($i->key, $agentnum) |js_string %> + ': ' + + <% &{ $i->option_sub }( $conf->config($i->key, $agentnum) ) |js_string %>; +% } else { + //alert('unknown type <% $type %>'); + window.top.location.reload(); +% } + +% $n++; +% } + parent.cClick(); + </SCRIPT> +</BODY> +</HTML> +%} +<%once> +#false laziness w/config-view.cgi +my %namecol = ( + 'part_svc' => 'svc', + 'part_pkg' => 'pkg', + 'pkg_class' => 'classname', +); +</%once> +<%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_popup("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 @error = (); +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? + my $error = &{$i->validate}($value, $n) if $i->validate; + push @error, $error if $error; + $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); + my $error = &{$i->validate}($fh, $n) if $i->validate; + push @error, $error if $error; + 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) ]}) ) { + my $error = &{$i->validate}([ $cgi->param($i->key.$n) ], $n) if $i->validate; + push @error, $error if $error; + $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 '' ) { + my $error = &{$i->validate}($cgi->param($i->key.$n), $n) if $i->validate; + push @error, $error if $error; + $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; + +if (scalar(@error)) { + $cgi->param('error', join(' ', @error)); +} + +</%init> |