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@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@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