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/users.html > - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html