Should't you be using rlm_perl rather than exec? Set Auth-Type Accept in those cases and place perl before chap in authorize.
Ivan Kalik Kalik Informatika ISP Dana 5/4/2008, "rsg" <[EMAIL PROTECTED]> piše: >Hi, > >It's not just one Calling-Station-Id..You have many and Exec program >checks for it in an SQL DB.. > > > >2008/4/4 Ivan Kalik <[EMAIL PROTECTED]>: >> DEFAULT Calling-Station_Id == whatever, Auth-Type := Accept >> >> Put that in users file. You don't need exec program. >> >> Ivan Kalik >> Kalik Informatika ISP >> >> >> Dana 4/4/2008, "rsg" <[EMAIL PROTECTED]> piše: >> >> >> >> >Hi, >> > >> >While bypassing password Authentication based on the >> >Calling-Station-Id, is there a way to still the Authentication to be >> >handled by rlm_pap and rlm_chap ? >> > >> >When "Exec-Program-Wait" is used, PAP/CHAP based authentication can >> >still be performed by an external perl script. But that is not what I >> >want to do. >> > >> >I want the rlm modules(PAP/CHAP) to handle the normal authentication >> >while bypassing them only for selected caller-ids. >> > >> >Please advise. >> > >> >Regards, >> >rg. >> > >> > >> > >> >On Fri, Mar 7, 2008 at 5:47 PM, Escobar, Emilio <[EMAIL PROTECTED]> wrote: >> >> You still need to grab the value of that environment variable properly >> Perl uses the $ENV hash list to store all the environment variables. So for >> example you'd have to use, $ENV{"CALLING_STATION_ID"}. >> >> >> >> Regards, >> >> >> >> Emilio >> >> >> >> >> >> >> >> -----Original Message----- >> >> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of rsg >> >> Sent: Friday, March 07, 2008 10:37 AM >> >> To: FreeRadius users mailing list >> >> Subject: Re: ENV variables in external scripts >> >> >> >> Well.. What I meant was I actually would like to call an environmental >> >> variable as a variable in my simple perl script. >> >> >> >> Following "Attributes as environment variables in executed programs" >> >> in variables.txt for instance I tried the below. >> >> --------------------------------------- >> >> #!/usr/bin/perl -w >> >> use Mysql; >> >> >> >> $Check = $CALLING_STATION_ID; >> >> >> >> print STDERR "\t: $Check\n"; >> >> >> >> $db = Mysql->connect("localhost","radius","root",""); >> >> $status = $db->Mysql::query("select if((select CallingStationId from >> >> radcheck where CallingStationId='$Check' order by Id limit >> >> 1),'y','n')"); >> >> ($chk)= $status->FetchRow(); >> >> print STDERR "\t: $chk\n"; >> >> >> >> if($chk eq 'n'){ >> >> exit 255; >> >> } >> >> -------------------------------------------------- >> >> >> >> But I see nothing for the -> print STDERR "\t: $Check\n"; which should >> >> ideally give the Calling-Station-Id. >> >> >> >> And the Sql check obviously gives "n". >> >> >> >> >> >> P.S. In the context, I have nothing that I cannot share with you. So >> >> my apologies if I sounded so, in my previous mail. >> >> >> >> Thanks for your help, >> >> >> >> >> >> >> >> >> >> >> >> On Fri, Mar 7, 2008 at 4:07 PM, Alan DeKok <[EMAIL PROTECTED]> wrote: >> >> > rsg wrote: >> >> > > I unsuccessfully attempted the options given by >> ../docs/variables.txt. >> >> > > Please help with the correct syntax. >> >> > >> >> > Q: I won't tell you what I did, or what happened when I did it, but I >> >> > need to know why it doesn't work. >> >> > >> >> > A: Damned if I know. >> >> > >> >> > Alan DeKok. >> >> > - >> >> > 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/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