| Subject: | Support for FreeRADIUS Status_Server (Type 12) |
| Date: | Thu, 11 Mar 2010 15:30:20 -0800 |
| To: | bug-RadiusPerl [...] rt.cpan.org |
| From: | Ben Hawkins <benh [...] swimfrog.com> |
I've attached a small patch that adds a few things so that status_server on
FreeRADIUS will work. status_server provides a monitoring interface so that
you can see what kinds of requests/responses have been processed. See
http://wiki.freeradius.org/Status
I'm building the request like:
my $radius_request = new Authen::Radius(
Host => $radiushost.":".$p->opts->radiusport,
Secret => $p->opts->secret,
TimeOut => $p->opts->timeout,
Debug => $p->opts->verbose,
Rfc3579MessageAuth => 1,
);
$radius_request->add_attributes(
{
'Name' => 'FreeRADIUS-Statistics-Type',
'Value' => 1,
'Vendor' => 'FreeRADIUS',
},
);
$radius_request->send_packet(STATUS_SERVER);
I've included a new FreeRADIUS dictionary in the patch that comes from the
freeradius distribution with the vendor appended to the end of each
ATTRIBUTE, like the other RadiusPerl dictionaries have. I also had to
comment out a line so that it did not insert invalid integer descriptions
when the number equaled something that was defined for a different vendor.
That should probably be fixed.
Thanks for a great perl module, it's been very helpful!
Ben Hawkins
Message body is not shown because sender requested not to inline it.