Hello Requiem -
On Wed, 01 Sep 1999, [EMAIL PROTECTED] wrote:
> >%_Hello
>
> I would like to know how to add reply attributes using a perl module
>
It is much simpler to use AddToReply in the AuthBy:
<AuthBy ....
....
AddToReply .....
</AuthBy>
Otherwise, use the add_attr(....) function. Here is an example:
# Add some reply attributes to the reply message
# if it is a REJECT and there is 1 or fewer there already
PostAuthHook sub { ${$_[1]}->add_attr(`test-attr', \
`test-value') \
if ${$_[2]} == $main::REJECT \
&& ${$_[1]}->attr_count() <= 1; }
hth
Hugh
--
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.
