Here is the code in question from "Radius/Nas.pm":
#####################################################################
sub isOnlineAscendSNMP
{
my ($name, $nas_id, $nas_port, $session_id, $client) = @_;
return 1 unless &Radius::SNMP::snmpgetprogExists();
my $result = &Radius::SNMP::snmpget($nas_id,
$client->{SNMPCommunity},
"$Radius::Nas::AscendMIB.12.2.1.3.$nas_port");
if ($result =~ /^.*\"([^"]+)".*$/)
{
return $1 eq $name;
}
return 0;
}
If you would like to try to test your theory, you can change the line
"$Radius::Nas::AscendMIB.12.2.1.3.$nas_port");
to
"$Radius::Nas::AscendMIB.12.2.1.4.$session_id");
Please let us know what you find, and tell us which version of Ascend code you
are running if the above does work.
I made the change in Nas.PM but it doesnt effect to my situation
Do I need to change SessSQL.PM too?
Regards
Lutfi
NB - if you change the module in the distribution directory, and you have
previously installed Radiator into the Perl directory structure, you will need
to copy the changed module into the Perl directory and restart Radiator.
Otherwise you can just change the copy in the Perl directory directly, but
don't forget to save the original and save your changed copy in either case.
many thanks
Hugh
--
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, Interbiller, TACACS+, PAM, external, etc, etc.
Available on Unix, Linux, FreeBSD, Windows 95/98/2000, NT, MacOS X.
