sub perform_dynauth {
my ($connection_info, $radius_code, $attributes, $vsa) = @_;
# setting up defaults
$connection_info->{'nas_port'} ||= $default_port;
$connection_info->{'timeout'} ||= $default_timeout;
Routine is called by perform_coa:-
sub perform_coa {
my ($connection_info, $attributes, $vsa) = @_;
return perform_dynauth($connection_info, 'CoA-Request', $attributes, $vsa);
}
The code in perform_dynauth overrides any NAS_PORT value stored in the $connection_info variable and consequently from the settings in the SWITCH/SWITCHGROUP config pages.
The code imposes 3799 for CoA and consequently requires specific overrides on switches - Not clever.
Please fix or REMOVE the CoA port option from the SWITCH/SWITCHGROUP config pages