<div><div>Hi,</div><div><br></div><div>I was wondering how would I use "Packet-Src-IP-Address" using Perl for</div><div>Dynamic Clients. I thought it might be part of the RAD_REQUEST hash.</div><div>If some direction could be made as to setting</div>
<div>"FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I</div><div>would be very grateful. I already have Perl working for the normal AAA</div><div>functions. This just doesn't appear to work the same way. I am not a</div>
<div>Perl developer in the slightest so apologies in advance if this is a</div><div>monumentally stupid question.</div><div><br></div><div>Thank you</div><div><br></div><div>---</div><div><br></div><div>FreeRADIUS Version 2.1.10, for host x86_64-redhat-linux-gnu</div>
<div><br></div><div>---</div><div><br></div><div>client dynamic {</div><div>        ipaddr = 0.0.0.0</div><div>        netmask = 0</div><div>        dynamic_clients = dynamic_client_server</div><div>        lifetime = 3600</div>
<div>}</div><div><br></div><div>server dynamic_client_server {</div><div>        authorize {</div><div>                dynamic-clients-pl</div><div>        }</div><div>}</div><div><br></div><div>---</div><div><br></div><div>
use strict;</div><div>use Data::Dumper;</div><div><br></div><div>use vars qw(%RAD_REQUEST);</div><div><br></div><div>use constant RLM_MODULE_REJECT => 0;</div><div>use constant RLM_MODULE_FAIL => 1;</div><div>use constant RLM_MODULE_OK => 2;</div>
<div>use constant RLM_MODULE_HANDLED => 3;</div><div>use constant RLM_MODULE_INVALID => 4;</div><div>use constant RLM_MODULE_USERLOCK => 5;</div><div>use constant RLM_MODULE_NOTFOUND => 6;</div><div>use constant RLM_MODULE_NOOP => 7;</div>
<div>use constant RLM_MODULE_UPDATED => 8;</div><div>use constant RLM_MODULE_NUMCODES => 9;</div><div><br></div><div>sub authorize {</div><div>  &log_request_attributes;</div><div><br></div><div>  return RLM_MODULE_FAIL;</div>
<div>}</div><div><br></div><div>sub log_request_attributes {</div><div>  for (keys %RAD_REQUEST) {</div><div>    &radiusd::radlog(1, "RAD_REQUEST: $_ = $RAD_REQUEST{$_}");</div><div>  }</div><div>}</div><div>
---</div><div><br></div><div>rad_recv: Access-Request packet from host 41.132.69.140 port 51951,</div><div>id=31, length=212</div><div>server dynamic_client_server {</div><div>} # server dynamic_client_server</div><div>Ignoring request to authentication address * port 1812 as server r9</div>
<div>from unknown client 41.132.69.140 port 51951</div><div>Ready to process requests.</div><div><br></div><div>---</div></div><div><br></div><br><br><div class="gmail_quote">On Tue, Aug 28, 2012 at 4:21 PM, Steven Eksteen <span dir="ltr"><<a href="mailto:steve@saoirse.co.za" target="_blank">steve@saoirse.co.za</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Thank you. Much appreciated<br>
<div class="HOEnZb"><div class="h5"><br>
<br>
On Tue, Aug 28, 2012 at 4:14 PM, Alan DeKok <<a href="mailto:aland@deployingradius.com">aland@deployingradius.com</a>> wrote:<br>
> Steven Eksteen wrote:<br>
>> I was wondering how would I use "Packet-Src-IP-Address" using Perl for<br>
>> Dynamic Clients. I thought it might be part of the RAD_REQUEST hash.<br>
><br>
>   It's not, but you can do:<br>
><br>
> server dynamic_client_server {<br>
>         authorize {<br>
>                 update request {<br>
>                         Tmp-IP-Address-0 := "%{Packet-Src-IP-Address}"<br>
>                 }<br>
><br>
>                 dynamic-clients-pl<br>
>         }<br>
> }<br>
><br>
><br>
>   And then use the Tmp-IP-Address-0 in the Perl code.<br>
><br>
>> If some direction could be made as to setting<br>
>> "FreeRADIUS-Client-Shortname", "FreeRADIUS-Client-Secret", etc. too I<br>
>> would be very grateful.<br>
><br>
>   You just set them in the RAD_REPLY hash.<br>
><br>
>> I already have Perl working for the normal AAA<br>
>> functions. This just doesn't appear to work the same way. I am not a<br>
>> Perl developer in the slightest so apologies in advance if this is a<br>
>> monumentally stupid question.<br>
><br>
>   Nope.  It's a complicated system.<br>
><br>
>   Alan DeKok.<br>
> -<br>
> List info/subscribe/unsubscribe? See <a href="http://www.freeradius.org/list/users.html" target="_blank">http://www.freeradius.org/list/users.html</a><br>
</div></div></blockquote></div><br>