dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add CAS parameters

Browse Source
This commit is contained in:
Eric German 2007-03-30 14:45:29 +00:00
parent 02b509fb1f
commit bb15362d0e
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
modules/lemonldap-portal/lib/Lemonldap/Portal/Standard.pm
View File

@ -9,7 +9,7 @@ use MIME::Base64;
use Data::Dumper;
use Net::LDAP::Constant qw(LDAP_SUCCESS LDAP_INVALID_CREDENTIALS LDAP_OPERATIONS_ERROR);
use Crypt::SaltedHash;
our $VERSION = '3.1.1';
our $VERSION = '3.1.2';
#--------------------------------------------------------------------------------------------------
sub new {
my $class =shift;
@ -151,12 +151,12 @@ sub __controlSyntax {
$self->{'user'} = $user;
my $password = $self->{param}->{'secret'};
if ( $self->{param}->{'password'} ) {
if ( defined ($self->{param}->{'password'}) ) {
$password = $self->{param}->{'password'};
$self->{CAS} = 'CASREQUESTED';
}
if ( $self->{param}->{'it'} ) {
$self->{it} = $self->{param}->{'it'};
if ( $self->{param}->{'lt'} ) {
$self->{it} = $self->{param}->{'lt'};
$self->{CAS} = 'CASREQUESTED';
}
@ -187,7 +187,7 @@ sub __controlSyntax {
sub __contactServer {
my $self= shift;
unless ($self->{ldap}) {
my $ldap = Net::LDAP->new( $self->{server}, port => $self->{port},onerror => undef, ) or $self->{log}->info('Net::LDAP->new: '.$@);
my $ldap = Net::LDAP->new( $self->{server}, port => $self->{port},onerror => undef, ) or print STDERR ('Net::LDAP->new: '.$@);
$self->{ldap}= $ldap;
if ($self->{openldap} && $ldap){
&{$self->{bind}}($self);
@ -304,10 +304,10 @@ sub __ldapsearch {
$self->{log}->info(" Search Filter : " . $filter);
$self->{log}->info(" Search Attributes : " . $self->{'attrs'} );
} else {
print STDERR ("LDAP Search Operation :");
print STDERR (" Search Base : " . $base);
print STDERR (" Search Filter : " . $filter);
print STDERR (" Search Attributes : " . $self->{'attrs'} );
print STDERR ("LDAP Search Operation :\n");
print STDERR (" Search Base : " . $base."\n");
print STDERR (" Search Filter : " . $filter."\n");
print STDERR (" Search Attributes : " . $self->{'attrs'}."\n" );
}
$mesg = $ldap->search( base => $base,
scope => 'sub',
@ -697,11 +697,13 @@ MacEachern - O'REILLY
=item Eric German, E<lt>germanlinux@yahoo.frE<gt>
=item Xavier Guimard, E<lt>x.guimard@free.frE<gt>
=back
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2004 by Eric German
Copyright (C) 2004 by Eric German E<amp> Xavier Guimard
Lemonldap originaly written by Eric german who decided to publish him in 2003
under the terms of the GNU General Public License version 2.