ldap-client/edit_base.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for editing the LDAP search bases for users, groups other objects
   3
   4 require './ldap-client-lib.pl';
   5 &ui_print_header(undef, $text{'base_title'}, "", "base");
   6
   7 $conf = &get_config();
   8 print &ui_form_start("save_base.cgi", "post");
   9 print &ui_table_start($text{'base_header'}, "width=100%", 2);
  10
  11 print &ui_table_row($text{'base_base'},
  12         &ui_textbox("base", &find_svalue("base", $conf), 50)."\n".
  13         &base_chooser_button("base", 0));
  14
  15 $scopes = [ [ "", $text{'default'} ],
  16             [ "sub", $text{'base_ssub'} ],
  17             [ "one", $text{'base_sone'} ],
  18             [ "base", $text{'base_sbase'} ] ];
  19 print &ui_table_row($text{'base_scope'},
  20         &ui_select("scope", &find_svalue("scope", $conf), $scopes));
  21
  22 print &ui_table_row($text{'base_timelimit'},
  23         &ui_opt_textbox("timelimit", &find_svalue("timelimit", $conf), 5,
  24                         $text{'default'})." ".$text{'base_secs'});
  25
  26 $sp = "&nbsp;" x 5;
  27 foreach $b (@base_types) {
  28         local $base = &find_svalue("nss_base_".$b, $conf);
  29         local ($scope, $filter);
  30         if ($base =~ /^(.*)\?(.*)\?(.*)$/) {
  31                 $base = $1;
  32                 $scope = $2;
  33                 $filter = $3;
  34                 }
  35         elsif ($base =~ /^(.*)\?(.*)$/) {
  36                 $base = $1;
  37                 $scope = $2;
  38                 }
  39         print &ui_table_row($text{'base_'.$b},
  40                 &ui_opt_textbox("base_$b", $base, 50, $text{'base_global'})." ".
  41                 &base_chooser_button("base_$b", 0).
  42                 "<br><table>\n".
  43                 "<tr> <td>$sp</td> <td><b>$text{'base_bscope'}</b></td>\n".
  44                 "<td>".&ui_select("scope_$b", $scope, $scopes)."</td> </tr>\n".
  45                 "<tr> <td>$sp</td> <td><b>$text{'base_bfilter'}</b></td>\n".
  46                 "<td>".&ui_textbox("filter_$b", $filter, 50)."</td> </tr>\n".
  47                 "</table>");
  48         }
  49
  50 print &ui_table_end();
  51 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  52
  53 &ui_print_footer("", $text{'index_return'});
  54
  55