How to know packet-type when using perl script

[moshe levi]

Hi,

I have add perl script execution to recv-coa section in my coa virtual
server
in the script I want to do different operation if I am getting CoA-Request
or  Disconnect-Request
How do I do that? how can I tell which packet-type arrive in the perl
script.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freeradius.org/pipermail/freeradius-users/attachments/20120723/5ad1ed4c/attachment.html>