diff options
Diffstat (limited to 'ldap_wizard/ldap.pm')
| -rw-r--r-- | ldap_wizard/ldap.pm | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/ldap_wizard/ldap.pm b/ldap_wizard/ldap.pm index 6b40d689..0eb9bef8 100644 --- a/ldap_wizard/ldap.pm +++ b/ldap_wizard/ldap.pm @@ -35,13 +35,14 @@ my $o = { rootdn => 'manager', rootpass => 'secret', cn => '', - sn => '', - uid => 'vincent', + sn=> '', + uid => '', uidpass => '', lshell => '/bin/bash', + home => '/home/', uidnb => '', guinb => '', - container => 'ou=users,dc=people.', + container => '', objectclass => 'top,account,posixaccount', shadowmax => '99999', shadowmin => '-1', @@ -86,10 +87,10 @@ $o->{pages} = { { label => N("Last Name:"), val => \$o->{var}{sn} }, { label => N("User Name:"), val => \$o->{var}{uid} }, { label => N("Password:"), val => \$o->{var}{uidpass} }, + { label => N("Home Directory:"), val => \$o->{var}{home} }, { label => N("Login shell:"), val => \$o->{var}{lshell} }, { label => N("uid number:"), val => \$o->{var}{uidnb} }, { label => N("Group ID:"), val => \$o->{var}{guidnb} }, - { label => N("Container:"), val => $o->{var}{container} . $DC }, ], post => \&test_add, next => 'summaryadd', @@ -116,7 +117,7 @@ $o->{pages} = { { label => N("Last Name:"), fixed_val => \$o->{var}{sn2} }, { label => N("User Name:"), fixed_val => \$o->{var}{uid2} }, { label => N("Password:"), fixed_val => \$o->{var}{uidpass} }, - { label => N("Home directory:"), fixed_val => \$o->{var}{uid} }, + { label => N("Home directory:"), fixed_val => \$o->{var}{home} }, { label => N("Login shell:"), fixed_val => \$o->{var}{lshell} }, { label => N("uid number:"), fixed_val => \$o->{var}{uidnb} }, { label => N("Group ID:"), fixed_val => \$o->{var}{guidnb} }, @@ -178,7 +179,7 @@ sub rootdse_to_dc { my ($data) = @_; my @t = split(/\./, $data); $o->{var}{dom} = $t[0]; - my $dcall = join(',dc=', split(/\./, $data)); + my $dcall = join( ',dc=', split(/\./, $data)); return $dcall; } @@ -193,7 +194,7 @@ sub get_dc { } sub do_it_setldap { - if (!-f $LDAPCONF) { die "no $LDAPCONF found" }; + if (!-f $LDAPCONF) { die "no $LDAPCONF found"}; cp_af($LDAPCONF, $LDAPCONF . '.save'); if (!-f "$LDAPCONF.example") { cp_af($LDAPCONF, $LDAPCONF . '.example') }; cp_af($LDAPCONF . '.example', $LDAPCONF); @@ -202,7 +203,7 @@ sub do_it_setldap { # set suffix if (any { /^suffix/ } cat_($LDAPCONF)) { substInFile { - s/suffix.*/suffix\t"dc=$dcall"/; + s/suffix.*/suffix\t\"dc=$dcall\"/; } $LDAPCONF; } else { append_to_file($LDAPCONF, "suffix\t\"dc=$dcall\""); @@ -216,7 +217,7 @@ sub do_it_setldap { # set rootdn if (any { /^rootdn/ } cat_($LDAPCONF)) { substInFile { - s/rootdn.*/rootdn\t"cn=$o->{var}{rootdn},dc=$dcall"/; + s/rootdn.*/rootdn\t\"cn=$o->{var}{rootdn},dc=$dcall\"/; } $LDAPCONF; } else { append_to_file($LDAPCONF, "rootdn\t\"$o->{var}{rootdn},dc=$dcall\""); @@ -225,11 +226,11 @@ sub do_it_setldap { # set rootpass my $cryptpass = crypt($o->{var}{rootpass}, "crypt"); if (any { /^rootpw/ } cat_($LDAPCONF)) { - substInFile { - s/rootpw.*/rootpw $cryptpass/; - } $LDAPCONF; - } else { - append_to_file($LDAPCONF, "rootpw {CRYPT}$cryptpass"); + substInFile { + s/rootpw.*/rootpw $cryptpass/; + } $LDAPCONF; + }else { + append_to_file($LDAPCONF, "rootpw {CRYPT}$cryptpass"); } # reset premisions |