PAL.C.T MINI SHELL
#!/usr/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("");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`