diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2004-12-10 13:55:09 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2004-12-10 13:55:09 +0000 |
| commit | 7ee99a36f0ff236592900dccf73cda1c8ced8635 (patch) | |
| tree | 144f2df598e37144a66345d30bc8fe47bf10ec3d /ldap_wizard | |
| parent | b5eb1fe51f655fb4e1c869ce9e8ddfb4944475dd (diff) | |
| download | drakwizard-7ee99a36f0ff236592900dccf73cda1c8ced8635.tar drakwizard-7ee99a36f0ff236592900dccf73cda1c8ced8635.tar.gz drakwizard-7ee99a36f0ff236592900dccf73cda1c8ced8635.tar.bz2 drakwizard-7ee99a36f0ff236592900dccf73cda1c8ced8635.tar.xz drakwizard-7ee99a36f0ff236592900dccf73cda1c8ced8635.zip | |
some fix
Diffstat (limited to 'ldap_wizard')
| -rw-r--r-- | ldap_wizard/ldapdef.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ldap_wizard/ldapdef.pm b/ldap_wizard/ldapdef.pm index ab7bdd3e..d731d24f 100644 --- a/ldap_wizard/ldapdef.pm +++ b/ldap_wizard/ldapdef.pm @@ -18,13 +18,13 @@ use vars qw(@ISA @EXPORT %cfg %cfgfile $congfile $msg $attrs %ldap $ldap); # Connect to Ldap server sub ldap_connect { my ($u) = @_; - my $ldap = Net::LDAP->new($u->{var}{srv}) or err_dialog(N("Error!"), N("Unable to connect to %s", $u->{var}{srv})); + my $ldap = Net::LDAP->new($u->{var}{srv}) or err_dialog("Error!", "Unable to connect to %s", $u->{var}{srv}); return $ldap; } # bind root sub root_bind { - my ($ldap,$u) = @_; + my ($ldap, $u) = @_; my $mesg = $ldap->bind(dn => $u->{var}{rootdn},password => $u->{var}{rootpass}); return $mesg; } @@ -51,7 +51,7 @@ sub ldap_search { } sub get_dn { - my ($ldap, $filter, $basedn, $attrs) = @_; + my ($ldap, $filter, $basedn) = @_; my $mesg = $ldap->search( base => $basedn, filter => $filter, @@ -103,6 +103,6 @@ sub add_user { ); # create_dialog("", ldap_error_text($result->code)); #$result->code && die $result->error; - return ($result->error, ldap_error_text($result->code)); + return $result->error, ldap_error_text($result->code); #return ldap_error_text($result->code); } |