NAME

Net::Radius::Server::Set::Server - Proxy the RADIUS request to a RADIUS server

SYNOPSIS

  use Net::Radius::Server::Set::Proxy;
  use Net::Radius::Server::Base qw/:set/;


  my $proxy = Net::Radius::Server::Set::Proxy->new
    ({
       server => $real_server_ip,
       port => $real_server_port,
       dictionary => $dictionary_file,
       tries => 2,
       timeout => 3,
       result => NRS_SET_RESPOND,
      });
  my $proxy_sub = $proxy->mk;

DESCRIPTION

"Net::Radius::Server::Set::Proxy" allows for proxying the (matching) RADIUS requests through a RADIUS server. The following attributes are supported:

server: This entry is mandatory and specifies the address of the server to which the RADIUS request must be sent.
port: The port in the RADIUS server where the current request must be sent. Defaults to the current port.
secret: The RADIUS shared secret to be used to protect the interaction with the server. Defaults to the secret used to handle the current request.
dictionary: Dictionary to use for packet coding/decoding when talking to the RADIUS server. If left unspecified, the currently configured dictionary will be used to handle that interaction as well.
timeout: How many seconds before retrying request to the real RADIUS server. Defaults to 3 seconds.
tries: How many attempts to proxy the request to the real RADIUS server. Defaults to 2 attempts.
result: The result to be returned by the method. See Net::Server::Base(3) for more information.

When proxying is succesful, "$self->result" will be returned (if specified). Otherwise, "NRS_SET_CONTINUE | NRS_SET_RESPOND" will be returned by default.

Upon a failure in the proxying, "NRS_SET_CONTINUE" is returned.

EXPORT

None by default.

HISTORY

  $Log$
  Revision 1.13  2007/01/03 00:29:58  lem
  Improve check for non-responses

  Revision 1.12  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.11  2006/12/14 15:52:25  lem
  Fix CVS tags

AUTHOR

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

COPYRIGHT AND LICENSE

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 283:: Non-ASCII character seen before =encoding in 'Muñoz,'. Assuming UTF-8