rlm_perl

[Abdul Lateef]

hi friends,

I am really sorry to post it again. Because still i
did not find any reply to solve my problems.



--- Abdul Lateef <abdul_zu at yahoo.com> wrote:

> Hi,
> 
> Thanks for your reply. i am going here to post the
> debug logs. from the log it seems rlm_per is loaded
> successfully but when i am trying to call authorize
> and authenticate function from example.pl, the
> functions are not calling well.
> 
> Here is full configuration what i did to work with
> perl module.
> 
> radreply table:
> -------------------
> 123456  	Auth-Type  	:=  	perl
> -------------------
> 
> radiusd.conf
> ---------------------
> modules area:
> 
> 	perl {
> 		
>                 module = /usr/local/etc/example.pl
>                 func_accounting = accounting
>                 func_authenticate = authenticate
> 		func_authorize = authorize
>                 func_preacct = preacct
>                 func_checksimul = checksimul
>                 func_xlat = xlat
> 	}
> 
> 
> 
> authorize {
> 	
> 	preprocess
> 	chap
> 	suffix
> 	perl
> }
> 
> 
> authenticate {
> 	
> 	Auth-Type Perl {
> 		perl
> 	}
> }
> ---------------------
> 
> example.pl
> --------------------
> 
> sub authorize {
>    return RLM_MODULE_OK;
> }
> 
> 
> sub authenticate {
>  if ($RAD_REQUEST{'User-Name'} =~ /^baduser/i) {
>   $RAD_REPLY{'Reply-Message'} = "Denied access";
>   return RLM_MODULE_REJECT;
> } else {
>   $RAD_REPLY{'h323-credit-time'} =
> \"h323-credit-time=200\";
>   return RLM_MODULE_OK;
> 				
> 	}
> }
> 
> 
> --------------------
> 
> Here is the Log:
> ===========================
> Wed Sep 28 07:50:45 2005 : Info: Detach perl
> 0x93af7a0
> Wed Sep 28 07:50:45 2005 : rlm_perl:
> rlm_perl::Detaching. Reloading. Done.
> Wed Sep 28 07:50:45 2005 : Info: detach at 0x93af7a0
> returned status 0
> Wed Sep 28 07:50:45 2005 : Info: Detach perl
> 0x94b0ec8
> Wed Sep 28 07:50:45 2005 : rlm_perl:
> rlm_perl::Detaching. Reloading. Done.
> Wed Sep 28 07:50:45 2005 : Info: detach at 0x94b0ec8
> returned status 0
> Wed Sep 28 07:50:45 2005 : Info: Detach perl
> 0x950b550
> Wed Sep 28 07:50:45 2005 : rlm_perl:
> rlm_perl::Detaching. Reloading. Done.
> Wed Sep 28 07:50:45 2005 : Info: detach at 0x950b550
> returned status 0
> Wed Sep 28 07:50:45 2005 : Info: Detach perl
> 0x9565480
> Wed Sep 28 07:50:45 2005 : rlm_perl:
> rlm_perl::Detaching. Reloading. Done.
> Wed Sep 28 07:50:45 2005 : Info: detach at 0x9565480
> returned status 0
> Wed Sep 28 07:50:45 2005 : Info: Detach perl
> 0x95bf180
> Wed Sep 28 07:50:45 2005 : rlm_perl:
> rlm_perl::Detaching. Reloading. Done.
> Wed Sep 28 07:50:45 2005 : Info: detach at 0x95bf180
> returned status 0
> Wed Sep 28 07:50:45 2005 : rlm_perl:
> rlm_perl::Detaching. Reloading. Done.
> Wed Sep 28 07:50:48 2005 : Info: rlm_sql (sql):
> Driver
> rlm_sql_mysql (module rlm_sql_mysql) loaded and
> linked
> Wed Sep 28 07:50:48 2005 : Info: rlm_sql (sql):
> Attempting to connect to Radius at 10.0.0.65:/radius
> Wed Sep 28 07:50:48 2005 : Info: rlm_sql_mysql:
> Starting connect to MySQL server for #0
> Wed Sep 28 07:50:48 2005 : Info: rlm_sql_mysql:
> Starting connect to MySQL server for #1
> =================================================
> 
> 
> I AM REALLY SORRY FOR BIG THREAD.
> 
> 
> --------
> Yours,
> Abdul Lateef
> Computer Programmer
> HATIF COM
> Mob: +974 - 5405022
> Tel: +974 - 4883068
> ICQ: 276994704
> YM!: abdul_zu
> Fax: +974 - 4883063
> Doha Qatar
> http://www.hatif.com
> 
> 
> 		
> __________________________________ 
> Yahoo! Mail - PC Magazine Editors' Choice 2005 
> http://mail.yahoo.com
> 


--------
Yours,
Abdul Lateef
Computer Programmer
HATIF COM
Mob: +974 - 5405022
Tel: +974 - 4883068
ICQ: 276994704
YM!: abdul_zu
Fax: +974 - 4883063
Doha Qatar
http://www.hatif.com


		
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com