Net::Radius::Server::Set::Simple - Simple set methods for RADIUS requests
use Net::Radius::Server::Set::Simple; use Net::Radius::Server::Base qw/:set/; my $set = Net::Radius::Server::Set::Simple->new ({ code => 'Access-Accept', auto => 1, result => NRS_SET_RESPOND, vsattr => [ [ 'Cisco' => 'cisco-avpair' => 'foo=bar' ], [ 'Cisco' => 'cisco-avpair' => 'baz=bad' ], ], attr => [ [ 'Framed-IP-Address' => '127.0.0.1' ], [ 'Reply-Message' => "Welcome home!!!\r\n\r\n" ], ]}); my $set_sub = $set->mk;
Net::Radius::Server::Set::Simple implements simple but effective packet set method factories for use in Net::Radius::Server rules.
Net::Radius::Server::Set::Simple
Net::Radius::Server
See Net::Radius::Server::Set for general usage guidelines. The relevant attributes that control the matching of RADIUS requests are:
Net::Radius::Server::Set
auto
When set to a true value, cause the identifier and authenticator from the RADIUS request to be copied into the response.
attr
Takes a list-ref containing list-refs where the first item is the RADIUS attribute to set and the second item is the value to set in the attribute. This translates to calls to ->set_attr() in Net::Radius::Packet.
->set_attr()
Net::Radius::Packet
code
Sets the RADIUS packet code of the response to the given value. See Net::Radius::Packet(3) for more information on atribute and type representation.
This is a thin wrapper around Net::Radius::Packet->set_code().
Net::Radius::Packet->set_code()
result
The result of the invocation of this set method. See Net::Radius::Server::Set for more information. The example shown in the synopsis would cause an inmediate return of the packet. Other set methods after the current one won't be called at all.
vsattr
Just as attr, but dealing with Net::Radius::Packet->set_vsattr() instead.
Net::Radius::Packet->set_vsattr()
None by default.
$Log$ Revision 1.4 2006/12/14 16:33:17 lem Rules and methods will only report failures in log level 3 and above. Level 4 report success and failure, for deeper debugging Revision 1.3 2006/12/14 15:52:25 lem Fix CVS tags
Perl(1), Net::Radius::Server(3), Net::Radius::Server::Set(3), Net::Radius::Packet(3).
Luis E. Muñoz, <luismunoz@cpan.org>
Copyright (C) 2006 by Luis E. Muñoz
This library is free software; you can redistribute it and/or modify it under the same terms as Perl 5.8.6 itself.
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in 'Muñoz,'. Assuming UTF-8
To install Net::Radius::Server, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Radius::Server
CPAN shell
perl -MCPAN -e shell install Net::Radius::Server
For more information on module installation, please visit the detailed CPAN module installation guide.