Hello Requiem,
here is a little example you may find useful:
In your Radiator configuration file, set up a PreAuthHook, whose
text is in an external file, something like this:
<Realm xxxxx>
PreAuthHook file:"preauthhook"
...
</Realm>
And in the file preauthhook:
sub
{
my $p = ${$_[0]};
return unless $p->code() eq 'Access-Request';
my $username = $p->getAttrByNum($Radius::Radius::USER_NAME);
my $nasaddress = $p->getAttrByNum($Radius::Radius::NAS_IP_ADDRESS);
my $timestamp = time;
# etc;
# log it, just for fun
if (open(LOGFILE, ">filename"))
{
print LOGFILE "$timestamp:$username:$nasaddress\n";
close(LOGFILE);
}
}
On Jul 15, 5:24pm, Requiem Aurelien (Ext/NTC) wrote:
> Subject: (RADIATOR) Arguments
> Hello
>
> I'm using a perl module with preauthhook
> but i don't know how to get informations
> sent by the radpwtst qnd also i don't how
> to get attributes.
>
> Thanks a lot to answer me
> Bye
>
> Recycle your PC, Get Linux...
> Recycle your Windows, Get Kde...
>
> ===
> Archive at http://www.thesite.com.au/~radiator/
> To unsubscribe, email '[EMAIL PROTECTED]' with
> 'unsubscribe radiator' in the body of the message.
>-- End of excerpt from Requiem Aurelien (Ext/NTC)
--
Mike McCauley [EMAIL PROTECTED]
Open System Consultants Pty. Ltd Unix, Perl, Motif, C++, WWW
24 Bateman St Hampton, VIC 3188 Australia http://www.open.com.au
Phone +61 3 9598-0985 Fax +61 3 9598-0955
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, TACACS+, PAM, external, etc etc on Unix, Win95/8,
NT, Rhapsody
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
