2 # Create a whole new object
4 require './ldap-server-lib.pl';
5 &error_setup($text{'oadd_err'});
7 $ldap = &connect_ldap_db();
8 ref($ldap) || &error($ldap);
11 $in{'dn1'} =~ /^\S+$/ || &error($text{'oadd_edn1'});
12 $in{'dn2'} =~ /\S/ || &error($text{'oadd_edn2'});
13 @classes = split(/\r?\n/, $in{'classes'});
14 @classes || &error($text{'oadd_eclasses'});
15 foreach $c (@classes) {
16 $c =~ /^\S+$/ || &error(&text('oadd_eclass', $c));
18 push(@attrs, "objectClass", \@classes);
19 for($i=0; defined($in{"name_$i"}); $i++) {
20 next if ($in{"name_$i"} eq "");
21 $in{"name_$i"} =~ /^\S+$/ || &error(&text('oadd_ename', $i+1));
22 push(@attrs, $in{"name_$i"}, [ split(/\r?\n/, $in{"value_$i"}) ]);
24 $dn = $in{'dn1'}."=".$in{'dn2'};
25 $dn .= ", $in{'base'}" if ($in{'base'});
28 $rv = $ldap->search(base => $dn,
29 filter => '(objectClass=*)',
31 if ($rv && !$rv->code) {
32 ($clash) = $rv->all_entries;
33 $clash && &error(&text('oadd_eclash', "<tt>$dn</tt>"));
37 $rv = $ldap->add($dn, attr => \@attrs);
38 if (!$rv || $rv->code) {
39 &error(&text('oadd_eadd', "<tt>$dn</tt>",
43 &webmin_log('create', 'dn', $dn);
44 &redirect("edit_browser.cgi?base=".&urlize($dn));