ldap-server/view_sfile.cgi

   1 #!/usr/local/bin/perl
   2 # Just output a schema file
   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 &is_under_directory($config{'schema_dir'}, $in{'file'}) ||
   9         &error($text{'schema_edir'});
  10 print "Content-type: text/plain\n\n";
  11 print &read_file_contents($in{'file'});
  12