| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/usr/share/webmin/acl/ |
Upload File : |
#!/usr/bin/perl
# Create the LDAP base DN
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';
our (%in, %text, %config, %access);
$access{'pass'} || &error($text{'sql_ecannot'});
&ReadParse();
&error_setup($text{'makedn_err'});
my %miniserv;
&get_miniserv_config(\%miniserv);
my $dbh = &connect_userdb($in{'userdb'});
ref($dbh) || &error($dbh);
&ui_print_unbuffered_header(undef, $text{'makedn_title'}, "");
# Work out object class for the DN
my ($proto, $user, $pass, $host, $prefix, $argstr) =
&split_userdb_string($in{'userdb'});
my $schema = $dbh->schema();
my @allocs = map { $_->{'name'} }
grep { $_->{'structural'} }
$schema->all_objectclasses();
my @ocs = ( );
foreach my $poc ("top", "domain") {
if (&indexof($poc, @allocs) >= 0) {
push(@ocs, $poc);
}
}
@ocs || &error(&text('makedn_eoc'));
# Create the DN
print &text('makedn_exec', "<tt>$prefix</tt>"),"<br>\n";
my @attrs = ( "objectClass", \@ocs );
if (&indexof("domain", @ocs) >= 0 && $prefix =~ /^([^=]+)=([^, ]+)/) {
# Domain class needs dc
push(@attrs, $1, $2);
}
my $rv = $dbh->add($prefix, attr => \@attrs);
if (!$rv || $rv->code) {
print &text('makedn_failed',
$rv ? $rv->error : "Unknown error"),"<p>\n";
}
else {
print &text('makedn_done'),"<p>\n";
}
&disconnect_userdb($in{'userdb'}, $dbh);
# Check again if OK
my $err = &validate_userdb($in{'userdb'}, 0);
if ($err) {
print "<b>",&text('makedn_still', $err),"</b><p>\n";
}
else {
&lock_file($ENV{'MINISERV_CONFIG'});
$miniserv{'userdb'} = $in{'userdb'};
$miniserv{'userdb_addto'} = $in{'addto'};
&put_miniserv_config(\%miniserv);
&unlock_file($ENV{'MINISERV_CONFIG'});
&reload_miniserv();
}
&ui_print_footer("", $text{'index_return'});