howto define Auth-Type in perl script?

[Tomas Hoger]

On 3/18/07, Markus Krause <krause at biochem.mpg.de> wrote:
> i am writing a perl script to authorize and authenticate users.
> authorization works (so the script itself works and seems to be used
> by freeradius as expected) but as i do not know how to define the
> Auth-Type with the perl script i get the following error message "no
> Auth-Type found" when running radiusd -XAs.
> How can i set "Auth-Type" from a perl script or how is this done correctly?

$RAD_CHECK{'Auth-Type'}= 'FOO';

th.