ldap-server/save_sfile.cgi

   1 #!/usr/local/bin/perl
   2 # Write out a schema file
   3
   4 require './ldap-server-lib.pl';
   5 &error_setup($text{'schema_eerr'});
   6 &local_ldap_server() == 1 || &error($text{'slapd_elocal'});
   7 $access{'schema'} || &error($text{'schema_ecannot'});
   8 &ReadParseMime();
   9
  10 # Validate
  11 &is_under_directory($config{'schema_dir'}, $in{'file'}) ||
  12         &error($text{'schema_edir'});
  13 $in{'data'} =~ s/\r//g;
  14 $in{'data'} =~ /\S/ || &error($text{'schema_edata'});
  15
  16 # Save
  17 &open_lock_tempfile(FILE, ">$in{'file'}");
  18 &print_tempfile(FILE, $in{'data'});
  19 &close_tempfile(FILE);
  20
  21 &webmin_log("sfile", undef, $in{'file'});
  22 &redirect("edit_schema.cgi");
  23