Hi... I worked in my perl script... i did the conection to the web service and it works... I configure freeradius (add perl and sql) in auth section, I made a debug with freeradius -X but I don´t know if freeradius read the perl script before work with mysql... i have this output:<div>
<div>rad_recv: Access-Request packet from host 127.0.0.1 port 45894, id=120, length=62</div><div><span class="Apple-tab-span" style="white-space:pre">      </span>User-Name = "1104015936"</div><div><span class="Apple-tab-span" style="white-space:pre">   </span>User-Password = "fabricio1"</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>NAS-IP-Address = 127.0.1.1</div><div><span class="Apple-tab-span" style="white-space:pre">   </span>NAS-Port = 1812</div><div># Executing section authorize from file /etc/freeradius/sites-enabled/default</div>
<div>+- entering group authorize {...}</div><div>++[preprocess] returns ok</div><div>++[chap] returns noop</div><div>++[mschap] returns noop</div><div>++[digest] returns noop</div><div>[suffix] No '@' in User-Name = "usuario", looking up realm NULL</div>
<div>[suffix] No such realm "NULL"</div><div>++[suffix] returns noop</div><div>[eap] No EAP-Message, not doing EAP</div><div>++[eap] returns noop</div><div>++[files] returns noop</div><div>rlm_perl: Added pair User-Name = usuario</div>
<div>rlm_perl: Added pair User-Password = clave</div><div>rlm_perl: Added pair NAS-Port = 1812</div><div>rlm_perl: Added pair NAS-IP-Address = 127.0.1.1</div><div>++[perl] returns ok</div><div>[sql] <span class="Apple-tab-span" style="white-space:pre">    </span>expand: %{User-Name} -> 1104015936</div>
<div>[sql] sql_set_user escaped user --> 'usuario'</div><div>rlm_sql (sql): Reserving sql socket id: 2</div><div>[sql] <span class="Apple-tab-span" style="white-space:pre"> </span>expand: SELECT id, username, attribute, value, op           FROM radcheck           WHERE username = '%{SQL-User-Name}'           ORDER BY id -> SELECT id, username, attribute, value, op           FROM radcheck           WHERE username = 'usuario'           ORDER BY id</div>
<div>[sql] <span class="Apple-tab-span" style="white-space:pre">        </span>expand: SELECT groupname           FROM radusergroup           WHERE username = '%{SQL-User-Name}'           ORDER BY priority -> SELECT groupname           FROM radusergroup           WHERE username = 'usuario'           ORDER BY priority</div>
<div>rlm_sql (sql): Released sql socket id: 2</div><div>[sql] User usuario not found</div><div>++[sql] returns notfound</div><div>++[expiration] returns noop</div><div>++[logintime] returns noop</div><div>[pap] WARNING! No "known good" password found for the user.  Authentication may fail because of this.</div>
<div>++[pap] returns noop</div><div>ERROR: No authenticate method (Auth-Type) found for the request: Rejecting the user</div><div>Failed to authenticate the user.</div><div>Using Post-Auth-Type Reject</div><div># Executing group from file /etc/freeradius/sites-enabled/default</div>
<div>+- entering group REJECT {...}</div><div>[attr_filter.access_reject] <span class="Apple-tab-span" style="white-space:pre">     </span>expand: %{User-Name} -> usuario</div><div> attr_filter: Matched entry DEFAULT at line 11</div>
<div>++[attr_filter.access_reject] returns updated</div><div>Delaying reject of request 1 for 1 seconds</div><div>Going to the next request</div><div>Waking up in 0.9 seconds.</div><div>Sending delayed reject for request 1</div>
<div>Sending Access-Reject of id 120 to 127.0.0.1 port 45894</div><div>Waking up in 4.9 seconds.</div><div>Cleaning up request 1 ID 120 with timestamp +410</div><div>Ready to process requests.</div><div> </div><div><br></div>
<br><div class="gmail_quote">El 9 de abril de 2012 16:49, Fajar A. Nugraha <span dir="ltr"><<a href="mailto:list@fajar.net">list@fajar.net</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div class="im">On Mon, Apr 9, 2012 at 10:49 PM, Fabricio Flores <<a href="mailto:fabrifloresg@gmail.com">fabrifloresg@gmail.com</a>> wrote:<br>
> is possible to use the perl and mysql in authorization section? in<br>
<br>
</div>As I've already said, yes.<br>
<div class="HOEnZb"><div class="h5"><br>
--<br>
Fajar<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><br clear="all"><div><br></div>-- <br>Fabricio A. Flores G.<br>Egresado en Ingeniería en Sistemas<br><br>MSN: <a href="mailto:fabri_floresg@hotmail.com" target="_blank">fabri_floresg@hotmail.com</a><br>
Google: <a href="mailto:fabrifloresg@gmail.com" target="_blank">fabrifloresg@gmail.com</a><br>Twitter: fabricioflores<br>Skype: fabriciofloresgallardo<br><br><a href="http://fabricioflores.wordpress.com/" target="_blank">Blog Personal</a><br>
<br>
</div>