chore: import upstream snapshot with attribution

ldap-server/save_schema.cgi

@@ -0,0 +1,31 @@
+#!/usr/local/bin/perl
+# Save included schema files
+
+require './ldap-server-lib.pl';
+&error_setup($text{'schema_err'});
+$access{'schema'} || &error($text{'schema_ecannot'});
+&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
+&ReadParse();
+
+# Get non-schema includes
+$conf = &get_config();
+foreach $i (&find_value("include", $conf)) {
+	if ($i !~ /^(.*)\/(\S+)$/ || $1 ne $config{'schema_dir'} ||
+				     $2 eq 'core.schema') {
+		push(@incs, $i);
+		}
+	}
+
+# Build new list of includes
+push(@incs, split(/\0/, $in{'d'}));
+@incs = &unique(@incs);
+
+# Write out
+&lock_slapd_files();
+&save_directive($conf, "include", @incs);
+&flush_file_lines($config{'config_file'});
+&unlock_slapd_files();
+
+&webmin_log("schema");
+&redirect("");
+