Hi, I was wondering how would I use "Packet-Src-IP-Address" using Perl for Dynamic Clients. I thought it might be part of the RAD_REQUEST hash. If some direction could be made as to setting "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I would be very grateful. I already have Perl working for the normal AAA functions. This just doesn't appear to work the same way. I am not a Perl developer in the slightest so apologies in advance if this is a monumentally stupid question. Thank you --- FreeRADIUS Version 2.1.10, for host x86_64-redhat-linux-gnu --- client dynamic { ipaddr = 0.0.0.0 netmask = 0 dynamic_clients = dynamic_client_server lifetime = 3600 } server dynamic_client_server { authorize { dynamic-clients-pl } } --- use strict; use Data::Dumper; use vars qw(%RAD_REQUEST); use constant RLM_MODULE_REJECT => 0; use constant RLM_MODULE_FAIL => 1; use constant RLM_MODULE_OK => 2; use constant RLM_MODULE_HANDLED => 3; use constant RLM_MODULE_INVALID => 4; use constant RLM_MODULE_USERLOCK => 5; use constant RLM_MODULE_NOTFOUND => 6; use constant RLM_MODULE_NOOP => 7; use constant RLM_MODULE_UPDATED => 8; use constant RLM_MODULE_NUMCODES => 9; sub authorize { &log_request_attributes; return RLM_MODULE_FAIL; } sub log_request_attributes { for (keys %RAD_REQUEST) { &radiusd::radlog(1, "RAD_REQUEST: $_ = $RAD_REQUEST{$_}"); } } --- rad_recv: Access-Request packet from host 41.132.69.140 port 51951, id=31, length=212 server dynamic_client_server { } # server dynamic_client_server Ignoring request to authentication address * port 1812 as server r9 from unknown client 41.132.69.140 port 51951 Ready to process requests. ---
Steven Eksteen wrote:
I was wondering how would I use "Packet-Src-IP-Address" using Perl for Dynamic Clients. I thought it might be part of the RAD_REQUEST hash.
It's not, but you can do: server dynamic_client_server { authorize { update request { Tmp-IP-Address-0 := "%{Packet-Src-IP-Address}" } dynamic-clients-pl } } And then use the Tmp-IP-Address-0 in the Perl code.
If some direction could be made as to setting "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I would be very grateful.
You just set them in the RAD_REPLY hash.
I already have Perl working for the normal AAA functions. This just doesn't appear to work the same way. I am not a Perl developer in the slightest so apologies in advance if this is a monumentally stupid question.
Nope. It's a complicated system. Alan DeKok.
Thank you. Much appreciated On Tue, Aug 28, 2012 at 4:14 PM, Alan DeKok <aland@deployingradius.com> wrote:
Steven Eksteen wrote:
I was wondering how would I use "Packet-Src-IP-Address" using Perl for Dynamic Clients. I thought it might be part of the RAD_REQUEST hash.
It's not, but you can do:
server dynamic_client_server { authorize { update request { Tmp-IP-Address-0 := "%{Packet-Src-IP-Address}" }
dynamic-clients-pl } }
And then use the Tmp-IP-Address-0 in the Perl code.
If some direction could be made as to setting "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I would be very grateful.
You just set them in the RAD_REPLY hash.
I already have Perl working for the normal AAA functions. This just doesn't appear to work the same way. I am not a Perl developer in the slightest so apologies in advance if this is a monumentally stupid question.
Nope. It's a complicated system.
Alan DeKok. - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
Hi, I was wondering how would I use "Packet-Src-IP-Address" using Perl for Dynamic Clients. I thought it might be part of the RAD_REQUEST hash. If some direction could be made as to setting "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I would be very grateful. I already have Perl working for the normal AAA functions. This just doesn't appear to work the same way. I am not a Perl developer in the slightest so apologies in advance if this is a monumentally stupid question. Thank you --- FreeRADIUS Version 2.1.10, for host x86_64-redhat-linux-gnu --- client dynamic { ipaddr = 0.0.0.0 netmask = 0 dynamic_clients = dynamic_client_server lifetime = 3600 } server dynamic_client_server { authorize { dynamic-clients-pl } } --- use strict; use Data::Dumper; use vars qw(%RAD_REQUEST); use constant RLM_MODULE_REJECT => 0; use constant RLM_MODULE_FAIL => 1; use constant RLM_MODULE_OK => 2; use constant RLM_MODULE_HANDLED => 3; use constant RLM_MODULE_INVALID => 4; use constant RLM_MODULE_USERLOCK => 5; use constant RLM_MODULE_NOTFOUND => 6; use constant RLM_MODULE_NOOP => 7; use constant RLM_MODULE_UPDATED => 8; use constant RLM_MODULE_NUMCODES => 9; sub authorize { &log_request_attributes; return RLM_MODULE_FAIL; } sub log_request_attributes { for (keys %RAD_REQUEST) { &radiusd::radlog(1, "RAD_REQUEST: $_ = $RAD_REQUEST{$_}"); } } --- rad_recv: Access-Request packet from host 41.132.69.140 port 51951, id=31, length=212 server dynamic_client_server { } # server dynamic_client_server Ignoring request to authentication address * port 1812 as server r9 from unknown client 41.132.69.140 port 51951 Ready to process requests. --- On Tue, Aug 28, 2012 at 4:21 PM, Steven Eksteen <steve@saoirse.co.za> wrote:
Thank you. Much appreciated
On Tue, Aug 28, 2012 at 4:14 PM, Alan DeKok <aland@deployingradius.com> wrote:
Steven Eksteen wrote:
I was wondering how would I use "Packet-Src-IP-Address" using Perl for Dynamic Clients. I thought it might be part of the RAD_REQUEST hash.
It's not, but you can do:
server dynamic_client_server { authorize { update request { Tmp-IP-Address-0 := "%{Packet-Src-IP-Address}" }
dynamic-clients-pl } }
And then use the Tmp-IP-Address-0 in the Perl code.
If some direction could be made as to setting "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I would be very grateful.
You just set them in the RAD_REPLY hash.
I already have Perl working for the normal AAA functions. This just doesn't appear to work the same way. I am not a Perl developer in the slightest so apologies in advance if this is a monumentally stupid question.
Nope. It's a complicated system.
Alan DeKok. - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
Steven Eksteen wrote:
I was wondering how would I use "Packet-Src-IP-Address" using Perl for Dynamic Clients.
I'm wondering why you didn't read my previous message. You knowm the one you replied to, and quoted verbatim? The one that had the answer to your questions?
I thought it might be part of the RAD_REQUEST hash.
I have no idea why. You were told it wasn't. What part of my message didn't you understand? Or did you simply not read it?
If some direction could be made as to setting "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I would be very grateful.
Do you understand what a RADIUS secret is?
I already have Perl working for the normal AAA functions. This just doesn't appear to work the same way. I am not a Perl developer in the slightest so apologies in advance if this is a monumentally stupid question.
If you're going to ask questions on this list, it helps to read the answers. Alan DeKok.
participants (2)
-
Alan DeKok -
Steven Eksteen