hi friends, I am really sorry to post it again. Because still i did not find any reply to solve my problems.
--- Abdul Lateef <[EMAIL PROTECTED]> 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 [EMAIL PROTECTED]:/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 - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html