ldap-server/down_schema.cgi

   1 #!/usr/local/bin/perl
   2 # Move a schema include down (later)
   3
   4 require './ldap-server-lib.pl';
   5 &local_ldap_server() == 1 || &error($text{'slapd_elocal'});
   6 $access{'schema'} || &error($text{'schema_ecannot'});
   7 &ReadParse();
   8
   9 # Find it includes
  10 &lock_slapd_files();
  11 $conf = &get_config();
  12 @incs = &find_value("include", $conf);
  13 $idx = &indexof($in{'file'}, @incs);
  14 $idx > 0 || &error($text{'schema_emove'});
  15
  16 # Move up
  17 ($incs[$idx+1], $incs[$idx]) = ($incs[$idx], $incs[$idx+1]);
  18 &save_directive($conf, "include", @incs);
  19 &flush_file_lines($config{'config_file'});
  20 &unlock_slapd_files();
  21
  22 &webmin_log("sup", undef, $in{'file'});
  23 &redirect("edit_schema.cgi");
  24