diff options
author | Antoine Ginies <aginies@mandriva.com> | 2004-08-09 02:03:22 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2004-08-09 02:03:22 +0000 |
commit | 8179d5dd17f5bc37056eb65bfa878c877c2f60d7 (patch) | |
tree | 445e6bb940535ec8a44878db537e2dafe92549ab /ldap_wizard/ldap.pm | |
parent | 19de2370d1f2e7795c9083442d101057b605c49b (diff) | |
download | drakwizard-8179d5dd17f5bc37056eb65bfa878c877c2f60d7.tar drakwizard-8179d5dd17f5bc37056eb65bfa878c877c2f60d7.tar.gz drakwizard-8179d5dd17f5bc37056eb65bfa878c877c2f60d7.tar.bz2 drakwizard-8179d5dd17f5bc37056eb65bfa878c877c2f60d7.tar.xz drakwizard-8179d5dd17f5bc37056eb65bfa878c877c2f60d7.zip |
small fix
Diffstat (limited to 'ldap_wizard/ldap.pm')
-rw-r--r-- | ldap_wizard/ldap.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/ldap_wizard/ldap.pm b/ldap_wizard/ldap.pm index fffe3427..e3e11533 100644 --- a/ldap_wizard/ldap.pm +++ b/ldap_wizard/ldap.pm @@ -3,7 +3,7 @@ # GPL like # aginies@mandrakesoft.com -package MDK::Wizard::Ldap; +package MDK::Wizard::ldap; use lib qw(/usr/lib/libDrakX); use ugtk2; use strict; @@ -55,7 +55,7 @@ my $o = { -my $ldap_suffix=join(',dc=', split(/\./, `hostname -f`)); +my $ldap_suffix=join(',dc=', split(/\./, chomp_(`hostname -f`))); $ldap_suffix =~ s/[^,]*,//; my $conf_file = "/etc/sysconfig/ldapconf"; my $LDAPCONF = "/etc/openldap/slapd.conf"; @@ -75,11 +75,9 @@ if (-f $conf_file) { $o->{var}{defou} = $conf{users}; } else { - - my $hostname = `hostname`; - $o->{var}{srv} = $hostname; - $o->{var}{suffix} = $ldap_suffix; - + my $hostname = chomp_(`hostname`); + $o->{var}{srv} = $hostname; + $o->{var}{suffix} = $ldap_suffix; } @@ -129,7 +127,7 @@ $o->{pages} = { next => 'password' }, password => { - name => N("LDAP User Password") . "\n\n" . N("Password for Users: ").$o->{var}{sn}.",".$o->{var}{sn}.",". $o->{var}{cn} . $o->{var}{defou} . "," . $o->{var}{suffix}, + name => N("LDAP User Password") . "\n\n" . N("Password for Users: ") . $o->{var}{sn} . "," . $o->{var}{sn} . "," . $o->{var}{cn} . $o->{var}{defou} . "," . $o->{var}{suffix}, data => [ { label => N("Password:"), val => \$o->{var}{uidpass}, hidden => 1 }, |