oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed a bug that wouldn't allow anonymous binds. Added a few API methods to make it easier to get data from the object

Browse source
This commit is contained in:
Frank Dillon 2007-09-07 21:41:42 +00:00
parent a4ed315b32
commit 73113888e0
1 changed files with 30 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

36
lib/WebGUI/LDAPLink.pm
View file

@ -69,12 +69,6 @@ sub bind {
if ($ldapUrl eq "") { if ($ldapUrl eq "") {
$self->{_error} = 100; $self->{_error} = 100;
return 0; return 0;
} elsif ($connectDn eq "") {
$self->{_error} = 101;
return 0;
} elsif ($identifier eq "") {
$self->{_error} = 102;
return 0;
} }
if ($uri = URI->new($ldapUrl)) { if ($uri = URI->new($ldapUrl)) {
@ -89,6 +83,7 @@ sub bind {
} elsif($auth->code > 0) { } elsif($auth->code > 0) {
$self->{_error} = $auth->code; $self->{_error} = $auth->code;
} }
$self->{_uri } = $uri;
$self->{_connection} = $ldap; $self->{_connection} = $ldap;
} else { } else {
$self->{_error} = 105; $self->{_error} = 105;
@ -161,6 +156,33 @@ sub getList {
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getURI ( )
Returns the uri object for the ldap connection.
=cut
sub getURI {
my $self = shift;
return $self->{_uri};
}
#-------------------------------------------------------------------
=head2 getValue ( property )
Returns the value of the property passed in.
=cut
sub getValue {
my $self = shift;
my $prop = shift;
return $self->get->{$prop};
}
#-------------------------------------------------------------------
=head2 unbind ( ) =head2 unbind ( )
Disconnect cleanly from the current databaseLink. Disconnect cleanly from the current databaseLink.
@ -198,7 +220,7 @@ sub new {
my $session = shift; my $session = shift;
$ldapLinkId = shift; $ldapLinkId = shift;
return undef unless $ldapLinkId; return undef unless $ldapLinkId;
$ldapLink = $session->db->quickHashRef("select * from ldapLink where ldapLinkId=".$session->db->quote($ldapLinkId)); $ldapLink = $session->db->quickHashRef("select * from ldapLink where ldapLinkId=?",[$ldapLinkId]);
bless {_session=>$session, _ldapLinkId=>$ldapLinkId, _ldapLink=>$ldapLink }, $class; bless {_session=>$session, _ldapLinkId=>$ldapLinkId, _ldapLink=>$ldapLink }, $class;
} }