On Tue, 29 Aug 2000, Morano Merce, Xavier wrote:
#You must try with perl-ldap 0.19...
#
#there is a bug in 0.20 8)
Oh! I didn't know that. Very sorry to all. Thanks for the information!
#
#
#Xavier Morano Merc�
#System Manager
#* Tel: (+34) 91 270 64 68
#* Fax: (+34) 91 270 61 61
#* Email: [EMAIL PROTECTED]
#
#
#
#
#> -----Mensaje original-----
#> De: Goh Sek Chye [mailto:[EMAIL PROTECTED]]
#> Enviado el: martes 29 de agosto de 2000 14:25
#> Para: [EMAIL PROTECTED]
#> Asunto: (RADIATOR) AuthBy LDAP2 problem
#>
#>
#>
#> Hi! I was trying to configure radiator to authenticate to Microsoft
#> LDAP server. The versions of the software are as follows:
#>
#> Radiator version 2.16.3
#> perl-ldap version 0.20
#> Perl version 5.005_03
#>
#> Here is my radius.cfg for the radiator:
#> ---8<--------------------------------------------------------
#> LogDir /usr/local/etc/raddb
#> DbDir /usr/local/etc/raddb
#>
#> # You will probably want to change this to suit your site.
#> <Client DEFAULT>
#> Secret blahsecret
#> </Client>
#>
#> <Log FILE>
#> Filename %L/logdir/logfile.%Y%m%d
#> Trace 4
#> </Log>
#>
#> <Realm DEFAULT>
#> <AuthBy LDAP2>
#> Host 192.1.1.2
#> AuthDN cn=administrator,ou=members,o=blahbase
#> AuthPassword blahblah
#> BaseDN o=blahbase
#> Port 1004
#> UsernameAttr cn
#> PasswordAttr userPassword
#> </AuthBy>
#> # Log accounting to the detail file in LogDir
#> AcctLogFileName %L/radacct/detail
#> </Realm>
#>
#> -8<-----------------------------------------------------------
#> ---------
#>
#> From the debug, I kept seeing the password as an array instead of the
#> actual password value.
#>
#> "Tue Aug 29 09:10:45 2000: DEBUG: LDAP got userPassword:
#> ARRAY(0x869e5c0)"
#>
#> Looking at the AuthByLDAP2.pm, I see at line 385, the
#> following statement:
#>
#> my @vals = $ent->get($attr);
#>
#>
#> However, from the following man page for perl-ldap version 0.20
#>
#> --8<------------------------------------------------------------------
#> perldoc Net::LDAP::Entry
#>
#> get ( ATTR [, OPTIONS ] )
#> Get the values for the attribute ATTR. The result will
#> be a reference to an array, if that attribute exists.
#> If the attribute does not exist the undef will be
#> returned.
#> --8<----------------------------------------------------------
#> ---------
#>
#> it appears that $ent->get($attr) returns a reference to an
#> array. I think
#> the syntax is not correct. I think it should be changed to:
#>
#> my @vals = @{ $ent->get($attr) };
#>
#>
#> After the above modification, my wonderful Radiator can talk
#> to Microsoft
#> LDAP happily .
#>
#>
#> Just thought that I should share the finding with the list.
#>
#> Long live open source.
#>
#> Cheers!
#>
#> ________________________________
#> Goh Sek Chye
#> SingNet Network Operations Centre
#>
#>
#>
#> ===
#> Archive at http://www.starport.net/~radiator/
#> Announcements on [EMAIL PROTECTED]
#> To unsubscribe, email '[EMAIL PROTECTED]' with
#> 'unsubscribe radiator' in the body of the message.
#>
#
________________________________
Goh Sek Chye
SingNet Network Operations Centre
===
Archive at http://www.starport.net/~radiator/
Announcements on [EMAIL PROTECTED]
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
