chore: import upstream snapshot with attribution

ldap-server/save_sfile.cgi

@@ -0,0 +1,23 @@
+#!/usr/local/bin/perl
+# Write out a schema file
+
+require './ldap-server-lib.pl';
+&error_setup($text{'schema_eerr'});
+&local_ldap_server() == 1 || &error($text{'slapd_elocal'});
+$access{'schema'} || &error($text{'schema_ecannot'});
+&ReadParseMime();
+
+# Validate
+&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");
+