NAME

Net::Radius::Server::Set::Simple - Simple set methods for RADIUS requests

SYNOPSIS

  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;

DESCRIPTION

"Net::Radius::Server::Set::Simple" implements simple but effective packet set method factories for use in "Net::Radius::Server" rules.

See "Net::Radius::Server::Set" for general usage guidelines. The relevant attributes that control the matching of RADIUS requests are:

"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".

"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()".

"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.

HISTORY

  $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

SEE ALSO

Perl(1), Net::Radius::Server(3), Net::Radius::Server::Set(3), Net::Radius::Packet(3).

AUTHOR

Luis E. Muñoz, <luismunoz@cpan.org>

COPYRIGHT AND LICENSE

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.

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 166:

Non-ASCII character seen before =encoding in 'Muñoz,'. Assuming UTF-8