On Wed, 14 Jun 2000, William Hernandez wrote:
>
> Hola Hugh -
>
> Thanks for your help.
>
Where you have this:
#print LOG "$ctime:$time:$user:$submitted_pw:$correct_pw:$r\n";
my $nas_name = $p->getNasId();
if ($r eq 'PASS') {
print LOG "$ctime: Login OK: [$user] ($nas_name)\n";
} else {
print LOG "$ctime: Login incorrect: [$user/$submitted_pw]
($nas_name)\n";
}
You should just be able to do this (because your Clients are defined with
names in the configuration file):
my $nas_name = $p->{Client}->{Name};
Let me know how you get on.
regards
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.
===
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.