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

SEE ALSO

Perl(1), Net::Radius::Server(3), Net::Radius::Server::Radius(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.