diff options
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); } |