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