PAL.C.T MINI SHELL
#!/usr/bin/perl
# Actually create a new base DN
require './ldap-server-lib.pl';
&ReadParse();
&error_setup($text{'create_err'});
$access{'create'} || &error($text{'create_ecannot'});
$ldap = &connect_ldap_db();
ref($ldap) || &error($ldap);
# Validate inputs
if ($in{'mode'} == 0) {
$in{'domain'} =~ /^[a-z0-9\.\-]+$/ || &error($text{'create_edom'});
@p = split(/\./, $in{'domain'});
$dn = join(", ", map { "dc=$_" } @p);
}
else {
$in{'dn'} =~ /^\S+=\S+/ || &error($text{'create_edn'});
$dn = $in{'dn'};
}
# Work out class for the DN
$schema = $ldap->schema();
@allocs = map { $_->{'name'} }
grep { $_->{'structural'} }
$schema->all_objectclasses();
@ocs = ( );
foreach my $poc ("top", "domain") {
if (&indexof($poc, @allocs) >= 0) {
push(@ocs, $poc);
}
}
@ocs || &error(&text('create_eoc'));
# Do it, while showing the user
&ui_print_unbuffered_header(undef, $text{'create_title'}, "");
# Create the DN
print &text('create_doingdn', "<tt>".&html_escape($dn)."</tt>"),"<br>\n";
@attrs = ( "objectClass", \@ocs );
if (&indexof("domain", @ocs) >= 0) {
# Domain class needs dc
if ($dn =~ /^([^=]+)=([^, ]+)/) {
push(@attrs, $1, $2);
}
}
$rv = $ldap->add($dn, attr => \@attrs);
if (!$rv || $rv->code) {
print &text('create_edoingdn', &ldap_error($rv)),"<p>\n";
}
else {
print $text{'create_done'},"<p>\n";
$ok = 1;
}
if ($ok && $in{'example'}) {
# Add the example user/alias
if ($in{'example'} == 1 || $in{'example'} == 2) {
# User
$edn = "uid=example, ".$dn;
@attrs = ( "cn", "Example user",
"sn", "Example user",
"uid", "example",
"uidNumber", 9999,
"gidNumber", 9999,
"loginShell", "/bin/sh",
"homeDirectory", "/home/example",
"objectClass", [ "posixAccount", "person" ],
"userPassword", "*LK*" );
if ($in{'example'} == 2) {
# With mail
push(@attrs, "mail", "example\@example.com");
}
}
elsif ($in{'example'} == 3) {
# Virtuser
# XXX not sure about these .. is there any standard?
$edn = "cn=example\@example.com, ".$dn;
@attrs = ( "mail", "example\@example.com",
"mailForwardingAddress", "example\@somewhere.com",
"objectClass", [ "top" ] );
}
elsif ($in{'example'} == 4) {
# Unix group
$edn = "cn=example, ".$dn;
@attrs = ( "cn", "example",
"gidNumber", 9999,
"memberUid", "example",
"objectClass", [ "posixGroup" ] );
}
print &text('create_doingex',
"<tt>".&html_escape($edn)."</tt>"),"<br>\n";
$rv = $ldap->add($edn, attr => \@attrs);
if (!$rv || $rv->code) {
print &text('create_edoingex', &ldap_error($rv)),"<p>\n";
}
else {
print $text{'create_done'},"<p>\n";
}
}
if ($ok) {
&webmin_log("create", undef, $dn);
}
&ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`