acl/makedn.cgi

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