diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-04-11 15:55:44 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-04-11 15:55:44 +0000 |
| commit | d9d59b7951e15b75b35405db4746b0a6388d5741 (patch) | |
| tree | 464b196c2ba3a9339ef938ecd3feda2d508ac49d | |
| parent | 2ef4e657396062a172048e14abee7c0f7114e9d8 (diff) | |
| download | drakwizard-d9d59b7951e15b75b35405db4746b0a6388d5741.tar drakwizard-d9d59b7951e15b75b35405db4746b0a6388d5741.tar.gz drakwizard-d9d59b7951e15b75b35405db4746b0a6388d5741.tar.bz2 drakwizard-d9d59b7951e15b75b35405db4746b0a6388d5741.tar.xz drakwizard-d9d59b7951e15b75b35405db4746b0a6388d5741.zip | |
fix passwd pb
| -rw-r--r-- | ldap_wizard/Ldap.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm index 8d9d8742..385d7fb0 100644 --- a/ldap_wizard/Ldap.pm +++ b/ldap_wizard/Ldap.pm @@ -60,10 +60,6 @@ my $o = { } }; -my $wiz = new MDK::Wizard::Wizcommon; -my $wiz_domain_name = $wiz->{net}->network_get("DOMAINNAME"); -my $wiz_host_name = $wiz->{net}->network_get("HOSTNAME"); - my $ldap_suffix=join(',dc=', split(/\./, chomp_(`hostname -f`))); $ldap_suffix =~ s/[^,]*,//; my $conf_file = "/etc/sysconfig/ldapwiz"; @@ -168,10 +164,13 @@ $o->{pages} = { complete => sub { if (!$o->{var}{uidpass}) { $::in->ask_warn(N("Error"), N("You must enter a password for LDAP.")); + $o->{var}{uidpass} = ""; return 1; } if ($o->{var}{uidpass} ne $o->{var}{uidpass2}) { $::in->ask_warn(N("Error"), N("The passwords do not match")); + $o->{var}{uidpass} = ""; + $o->{var}{uidpass2} = ""; return 1; } }, @@ -189,7 +188,7 @@ $o->{pages} = { pre => sub { $o->{var}{rootdn} = "cn=" . N("Administrator,%s", $o->{var}{suffix}); my $_cryptpass = crypt($o->{var}{rootpass}, "crypt"); - $o->{var}{rootpass} = $_cryptpass; +# $o->{var}{rootpass} = $_cryptpass; }, complete => sub { if (!$o->{var}{suffix} || $o->{var}{suffix} !~ /dc/) { @@ -198,10 +197,13 @@ $o->{pages} = { } if (!$o->{var}{rootpass}) { $::in->ask_warn(N("Error"), N("You must enter a password for LDAP.")); + $o->{var}{rootpass} = ""; return 1; } if ($o->{var}{rootpass} ne $o->{var}{rootpass2}) { $::in->ask_warn(N("Error"), N("The passwords do not match")); + $o->{var}{rootpass} = ""; + $o->{var}{rootpass2} = ""; return 1; } #$o->{var}{rootdn} = "cn=".$rootdn_cn.$o->{var}{suffix}, |