From abdul_zu@yahoo.com Wed Sep 28 09:13:39 2005
From: Abdul Lateef <abdul_zu@yahoo.com>
To: freeradius-users@lists.freeradius.org
Subject: RE: rlm_perl
Date: Wed, 28 Sep 2005 00:13:25 -0700
Message-ID: <20050928071325.91910.qmail@web31605.mail.mud.yahoo.com>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============1561187412288747390=="

--===============1561187412288747390==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

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

--===============1561187412288747390==--


