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
participants (1)
-
Abdul Lateef