Hi All:
 I am having problem running radiator 2.9 with the latest AuthLDAP.pm
Any authentication attempt will generate 
"Undefined subroutine &Radius::Util::format_special.." and causes 
radiator to exit. Can anyone shed some light?
Thanks in advance for any help.

  We are using:
   perl  5.005_03 
   radiator 2.9
   AuthLDAP from  patches-2.16.2.tar
   Debian Linux 2.2.14 

Below are the various logs.


################### Console log
                                                                                       
                                   *** Received from 136.159.254.34 port 1041 ....
Code:       Access-Request
Identifier: 0
Authentic:  1234567890123456
Attributes:
        User-Name = "noc"
        Service-Type = Framed-User
        NAS-IP-Address = 203.63.154.1
        NAS-Port = 1234
        User-Password = "m<248>`w<23><132>sU<134>]<176><195><157><152><242><243>"
Undefined subroutine &Radius::Util::format_special called at 
/usr/local/lib/site_perl/Radius/AuthLDAP.pm line 157.
No reply
[1]+  Exit 255                ../bin/radiator.start                                    
              

################## my cfg
...
...
<Client nguyen.acs.ucalgary.ca>
        Secret   verysecret
</Client>
 
<Client localhost>
        Secret verysecret
        DupInterval 0
</Client>
#
<Realm DEFAULT>
           <AuthBy LDAP>
                Host            136.159.xx.xx
                BaseDN          o=ucalgary.ca
                UsernameAttr    uid
                PasswordAttr    passwd
        </AuthBy>
        AcctLogFileName %D/detail
        RewriteUsername s/^([^@]+).*/$1/
</Realm>                                              

############### this is /usr/local/lib/site_perl/Radius/AuthLDAP.pm 
 146  #####################################################################
 147  # reconnect
 148  # Connect or reconnect to the LDAP
 149  # Returns true if there is a viable LDAP connection available
 150  sub reconnect
 151  {
 152      my ($self) = @_;
 153
 154      return 1 if $self->{ld}; # We are already up
 155
 156      my $result;
 157      my $host = &Radius::Util::format_special($self->{Host});
 158      $self->log($main::LOG_DEBUG, "Connecting to $host, port $self->{Port}");
 159      if (($self->{ld} = ldap_open($host,                                      


--
Tu Nguyen
email:[EMAIL PROTECTED]





===
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.

Reply via email to