This optional parameter allows you to define a Perl function
that will be called during packet processing.
PreClientHook is called for each request before it
passed to a Client clause. A reference to the current
request is passed as the only argument.
CAUTION
At the
time this hook is run, integer, address and other special type attributes
such as Service-Type and
NAS-IP-Address, have not yet been unpacked and decoded,
and encrypted attributes have not yet been decrypted. If you need
unpacked, decrypted versions of these attributes, consider using a
per-client ClientHook instead.
The hook code
is compiled by Perl when Radiator starts up. Compilation errors in your
hook code will be reported to the log file at start-up time. Runtime
errors in your hook will also be reported to the log file when your hook
executes. Multiline hooks (i.e. with trailing backslashes (\)) are parsed
by Radiator into one long line. Therefore you should not use trailing
comments in your hook.
PreClientHook can be an
arbitrarily complicated Perl function, that might run external processes,
consult databases, change the contents of the current request or many
other things. The current request has its {Client}
member set to a pointer to the Client clause handling
the request.
# Fake a new attribute into the request
PreClientHook sub { ${$_[0]}->add_attr('test-attr', \
'test-value');}
