Could unlang be used check Calling-station-Id for instance, from an SQL backend?
2008/4/10 Ivan Kalik <[EMAIL PROTECTED]>: > You use unlang for that. Read man unlang. > > > > Ivan Kalik > Kalik Informatika ISP > > > Dana 10/4/2008, "rsg" <[EMAIL PROTECTED]> piše: > > >Hi, > > > >After a brief review of the logic, i managed to get it working. My > >apologies for the trouble and thank you for your time. > > > > > > > >rlm_perl related question once again: > > When performing credential based Auth, how could I simply fall-though > >to the next check when there isn't a match. > > > >With RAD_REQUEST if Calling-Station-Id is found Password > >authentication could be bypassed. > > > >If not found how to hand the process into a different module e.g. PAP or > CHAP? > > > >Is it possible to achieve this with rlm_perl? > > > >Also could it be possible to go to a deeper level like user credential > >checking? E.g. to check on a particular user profile and perform IP > >allocation,etc? And this should come after the Calling-station-id > >check. > > > >Thanks once again for your valuable thoughts. > > > >rg. > > > > > > > > > > > > > > > >2008/4/10 Ivan Kalik <[EMAIL PROTECTED]>: > >> $myvalue = $RAD_REQUEST{'Calling-Station-Id'}; > >> # Print it or check in some other way > >> > >> $myquery = "SELECT IF(EXISTS(SELECT callerid FROM auth WHERE > >> callerid='" . $myvalue . "'),'y','n')"; > >> # Now print or check in some other way the query to see if it is joined > >> well > >> > >> $yourquery = "SELECT IF(EXISTS(SELECT callerid FROM auth WHERE > >> callerid='$RAD_REQUEST{/'Calling-Station-Id'/}'),'y','n')"; > >> # And print or check in some other way this to see why it doesn't work > >> > >> $status = $db->Mysql::query($myquery); > >> > >> > >> Ivan Kalik > >> Kalik Informatika ISP > >> > >> > >> Dana 10/4/2008, "rsg" <[EMAIL PROTECTED]> piše: > >> > >> > >> > >> >Hi, > >> > > >> >I attempted setting it to a local variable as well. > >> > > >> >Result was the same. > >> > > >> >Thanks so much for your suggestions & guidance. It's really appreciated. > >> > > >> > > >> > > >> >On Thu, Apr 10, 2008 at 1:02 PM, <[EMAIL PROTECTED]> wrote: > >> >> Hi, > >> >> > >> >> > >> >> > My next query is when I tried to retrieve the CallerId from a > Mysql DB > >> >> > using the same perl script with, > >> >> > > >> >> > --------- > >> >> > use Mysql; > >> >> > : > >> >> > : > >> >> > $status = $db->Mysql::query("SELECT IF(EXISTS(SELECT callerid FROM > >> >> > auth WHERE > callerid='$RAD_REQUEST{/'Calling-Station-Id'/}'),'y','n')"); > >> >> > >> >> your escape characters are wrong > >> >> > >> >> $RAD_REQUEST{\'Calling-Station-Id\'} > >> >> > >> >> personally, i would set the value into a local variable and do some > >> >> sanity checking to ensure it'll not screw up the SQL... a nasty > >> >> person could do something trivial like set their Calling station id > >> >> to "'; drop all from users" :-) > >> >> > >> >> alan > >> >> > >> >> > >> >> - > >> >> List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/usershtml > >> > >> > >> >> > >> >- > >> >List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/users.html > >> > > >> > > >> > >> - > >> List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/usershtml > >> > > > >- > >List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/users.html > > > > > > - > List info/subscribe/unsubscribe? See > http://www.freeradius.org/list/users.html > - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html