Schema file editing and viewing

diff --git a/ldap-server/edit_schema.cgi b/ldap-server/edit_schema.cgi
index 281589f..b805f57 100644 (file)
--- a/ldap-server/edit_schema.cgi
+++ b/ldap-server/edit_schema.cgi
@@ -16,7 +16,7 @@ foreach $i (&find_value("include", $conf)) {
 
 # Show a table of all known schema files, with checkboxes
 print $text{'schema_pagedesc'},"<p>\n";
-@tds = ( "width=5", undef, undef, "width=10%", "width=5%" );
+@tds = ( "width=5", "width=20%", "width=65%", "width=10%", "width=5% nowrap" );
 print &ui_form_start("save_schema.cgi", "post");
 print &ui_columns_start([ "",
                          $text{'schema_file'},

diff --git a/ldap-server/edit_sfile.cgi b/ldap-server/edit_sfile.cgi
new file mode 100644 (file)
index 0000000..c3ee9db
--- /dev/null
+++ b/ldap-server/edit_sfile.cgi
@@ -0,0 +1,30 @@
+#!/usr/local/bin/perl
+# Show a schema file for editing
+
+require './ldap-server-lib.pl';
+&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
+&ReadParse();
+&is_under_directory($config{'schema_dir'}, $in{'file'}) ||
+       &error($text{'schema_edir'});
+
+&ui_print_header(undef, $text{'schema_etitle'}, "");
+
+print $text{'schema_edesc'},"<p>\n";
+
+print &ui_form_start("save_sfile.cgi", "form-data");
+print &ui_hidden("file", $in{'file'});
+print &ui_table_start($text{'schema_eheader'}, undef, 2, [ "width=30%" ]);
+
+# Filename
+print &ui_table_row($text{'schema_path'},
+       "<tt>".&html_escape($in{'file'})."</tt>");
+
+# Contents
+print &ui_table_row(undef,
+       &ui_textarea("data", &read_file_contents($in{'file'}), 20, 80), 2);
+
+print &ui_table_end();
+print &ui_form_end([ [ undef, $text{'save'} ] ]);
+
+&ui_print_footer("edit_schema.cgi", $text{'schema_return'});
+

diff --git a/ldap-server/lang/en b/ldap-server/lang/en
index ae27c0b..9f46426 100644 (file)
--- a/ldap-server/lang/en
+++ b/ldap-server/lang/en
@@ -65,7 +65,7 @@ slapd_gencertdesc=To run your LDAP server in TLS mode, an SSL certificate and pr
 slapd_gencertwarn=Warning - your existing certificate will no longer be used.
 
 schema_title=Manage Schema
-schema_file=Schema name
+schema_file=Name
 schema_desc=Description
 schema_pagedesc=The LDAP schema determines which object classes and attributes can be stored in your LDAP database. This page allows you to select which schema types are supported by your server - but be careful de-selecting any entries that are used by existing objects.
 schema_err=Failed to save schema
@@ -73,6 +73,12 @@ schema_move=Move
 schema_act=Actions..
 schema_view=View
 schema_edit=Edit
+schema_edir=File is not in the schema directory!
+schema_etitle=Edit Schema File
+schema_eheader=Schema file contents
+schema_path=Full filename
+schema_edesc=This page allows you to manually edit an LDAP schema file. This should only be done if you are familiar with the file format, as no checking is done by Webmin.
+schema_return=schema list
 
 acl_title=LDAP Access Control
 
@@ -180,6 +186,7 @@ log_apply=Applied configuration
 log_slapd=Changed LDAP server configuration
 log_schema=Changed enabled LDAP schemas
 log_gencert=Generated new SSL certificate
+log_sfile=Modified schema file $1
 
 gencert_title=Generate SSL Certificate
 gencert_header=New SSL certificate details

diff --git a/ldap-server/log_parser.pl b/ldap-server/log_parser.pl
index 7196438..ed5d810 100644 (file)
--- a/ldap-server/log_parser.pl
+++ b/ldap-server/log_parser.pl
@@ -32,6 +32,9 @@ elsif ($type eq 'attrs') {
        return &text('log_'.$action.'_attrs', $object,
                     "<tt>".&html_escape($p->{'dn'})."</tt>");
        }
+elsif ($type eq 'sfile') {
+       return &text('log_sfile', "<tt>".&html_escape($object)."</tt>");
+       }
 else {
        return $text{'log_'.$action};
        }

diff --git a/ldap-server/save_sfile.cgi b/ldap-server/save_sfile.cgi
new file mode 100644 (file)
index 0000000..7671f3a
--- /dev/null
+++ b/ldap-server/save_sfile.cgi
@@ -0,0 +1,22 @@
+#!/usr/local/bin/perl
+# Write out a schema file
+
+require './ldap-server-lib.pl';
+&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
+&ReadParseMime();
+
+# Validate
+&error_setup($text{'schema_eerr'});
+&is_under_directory($config{'schema_dir'}, $in{'file'}) ||
+       &error($text{'schema_edir'});
+$in{'data'} =~ s/\r//g;
+$in{'data'} =~ /\S/ || &error($text{'schema_edata'});
+
+# Save
+&open_lock_tempfile(FILE, ">$in{'file'}");
+&print_tempfile(FILE, $in{'data'});
+&close_tempfile(FILE);
+
+&webmin_log("sfile", undef, $in{'file'});
+&redirect("edit_schema.cgi");
+

diff --git a/ldap-server/view_sfile.cgi b/ldap-server/view_sfile.cgi
new file mode 100644 (file)
index 0000000..daf4b59
--- /dev/null
+++ b/ldap-server/view_sfile.cgi
@@ -0,0 +1,11 @@
+#!/usr/local/bin/perl
+# Just output a schema file
+
+require './ldap-server-lib.pl';
+&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
+&ReadParse();
+&is_under_directory($config{'schema_dir'}, $in{'file'}) ||
+       &error($text{'schema_edir'});
+print "Content-type: text/plain\n\n";
+print &read_file_contents($in{'file'});
+