Re: strange behavior of checkrad and radius with Authen::Radius

On 14/02/2024 23:35, Igor Smitran wrote:

But, when called from freeradius Authen::Radius looses $self{'secret'} value, it becomes undef.

When freeradius started with -X it prints:

Use of uninitialized value in subroutine entry at /usr/local/share/perl/5.34.0/Authen/Radius.pm line 1004.

This sounds like an issue retrieving the client password from /etc/raddb/naspasswd

sub cisco_coa {

        return 2 unless (check_authen_radius());

        my ($login, $pass) = naspasswd($ARGV[1], 1);

I would add debug logging at this point to verify the values of $ARGV[1] and $pass are what you expect. -- Nick Porter