httemplate/config/config-process.cgi

   1 <%
   2   my $conf = new FS::Conf;
   3   $FS::Conf::DEBUG = 1;
   4   my @config_items = $conf->config_items;
   5
   6   foreach my $i ( @config_items ) {
   7     my @touch = ();
   8     my @delete = ();
   9     my $n = 0;
  10     foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) {
  11       if ( $type eq '' ) {
  12       } elsif ( $type eq 'textarea' ) {
  13         if ( $cgi->param($i->key. $n) ne '' ) {
  14           my $value = $cgi->param($i->key. $n);
  15           $value =~ s/\r\n/\n/g; #browsers?
  16           $conf->set($i->key, $value);
  17         } else {
  18           $conf->delete($i->key);
  19         }
  20       } elsif ( $type eq 'checkbox' ) {
  21 #        if ( defined($cgi->param($i->key. $n)) && $cgi->param($i->key. $n) ) {
  22         if ( defined $cgi->param($i->key. $n) ) {
  23           #$conf->touch($i->key);
  24           push @touch, $i->key;
  25         } else {
  26           #$conf->delete($i->key);
  27           push @delete, $i->key;
  28         }
  29       } elsif ( $type eq 'text' || $type eq 'select' )  {
  30         if ( $cgi->param($i->key. $n) ne '' ) {
  31           $conf->set($i->key, $cgi->param($i->key. $n));
  32         } else {
  33           $conf->delete($i->key);
  34         }
  35       } elsif ( $type eq 'editlist' || $type eq 'selectmultiple' )  {
  36         if ( scalar(@{[ $cgi->param($i->key. $n) ]}) ) {
  37           $conf->set($i->key, join("\n", @{[ $cgi->param($i->key. $n) ]} ));
  38         } else {
  39           $conf->delete($i->key);
  40         }
  41       } else {
  42       }
  43       $n++;
  44     }
  45    # warn @touch;
  46     $conf->touch($_) foreach @touch;
  47     $conf->delete($_) foreach @delete;
  48   }
  49
  50 %>
  51 <%= $cgi->redirect("config-view.cgi") %>