1#!/usr/local/bin/perl
2# Create the LDAP base DN
3
4use strict;
5use warnings;
6require './acl-lib.pl';
7our (%in, %text, %config, %access);
8$access{'pass'} || &error($text{'sql_ecannot'});
9&ReadParse();
10&error_setup($text{'makedn_err'});
11
12my %miniserv;
13&get_miniserv_config(\%miniserv);
14my $dbh = &connect_userdb($in{'userdb'});
15ref($dbh) || &error($dbh);
16
17&ui_print_unbuffered_header(undef, $text{'makedn_title'}, "");
18
19# Work out object class for the DN
20my ($proto, $user, $pass, $host, $prefix, $argstr) =
21	&split_userdb_string($in{'userdb'});
22my $schema = $dbh->schema();
23my @allocs = map { $_->{'name'} }
24		grep { $_->{'structural'} }
25			$schema->all_objectclasses();
26my @ocs = ( );
27foreach my $poc ("top", "domain") {
28        if (&indexof($poc, @allocs) >= 0) {
29                push(@ocs, $poc);
30                }
31        }
32@ocs || &error(&text('makedn_eoc'));
33
34# Create the DN
35print &text('makedn_exec', "<tt>$prefix</tt>"),"<br>\n";
36my @attrs = ( "objectClass", \@ocs );
37if (&indexof("domain", @ocs) >= 0 && $prefix =~ /^([^=]+)=([^, ]+)/) {
38	# Domain class needs dc
39	push(@attrs, $1, $2);
40	}
41my $rv = $dbh->add($prefix, attr => \@attrs);
42if (!$rv || $rv->code) {
43	print &text('makedn_failed',
44		    $rv ? $rv->error : "Unknown error"),"<p>\n";
45	}
46else {
47	print &text('makedn_done'),"<p>\n";
48	}
49&disconnect_userdb($in{'userdb'}, $dbh);
50
51# Check again if OK
52my $err = &validate_userdb($in{'userdb'}, 0);
53if ($err) {
54	print "<b>",&text('makedn_still', $err),"</b><p>\n";
55	}
56else {
57	&lock_file($ENV{'MINISERV_CONFIG'});
58	$miniserv{'userdb'} = $in{'userdb'};
59	$miniserv{'userdb_addto'} = $in{'addto'};
60	&put_miniserv_config(\%miniserv);
61	&unlock_file($ENV{'MINISERV_CONFIG'});
62	&reload_miniserv();
63	}
64
65&ui_print_footer("", $text{'index_return'});
66
67