Oguzhan FreeRADIUS already has MySQL, PostgreSQL, Oracle, MS-SQL and generic ODBC support. You need to do a little reading :-) Start from: http://wiki.freeradius.org/SQL -Peter On Thu 27 Dec 2007, Oguzhan Kayhan wrote:

Hello Peter and all, Yes i managed to work authentication via rlm_perl. I can get accept or reject without a problem. WHat i wonder is can i use it as a hybrid system as, to keep radacct logs in sql, or to get some info data from radgrouprelpy or smwhere? Or some stuff similar like this. I just wanna use rlm_perl for user/pass matching thats all. Rest should be by mysql. Or do i have to write all this modules manually in my perl script too?

...

Selam Oguzhan

You need to be aware of a few things:

Firstly, unless your clients use PAP you will not have a plain text password to use when loging into the IMAP server.

Secondly, It is almost always a better idea to directly check the same backend credential store that yoru IMAP server uses than going via the IMAP protocol. If its a large mail server (At bilkent for example ;-) then you probably have an LDAP tree or SQL server at the backend which FreeRADIUS can directly talk to which would save several steps and protocol conversions and be much faster than going via IMAP. (You would also likely not have to write a perl module..)

İyi çalı�malar

Peter

On Mon 24 Dec 2007, Oguzhan Kayhan wrote:

...

Hello all, I am trying to figure out how to use rlm_perl module for authentication purposes. Whats in my mind is to use my existing IMAP server to check if account exists or not. On the wiki page of rlm_perl i see an example script as :

# Function to handle accounting sub accounting { # For debugging purposes only # &log_request_attributes;

# You can call another subroutine from here &test_call;

return RLM_MODULE_OK; }

Ok... Now.. what should be my return value for test_call subroutine to make it work. I am planning to call an Imap module here and as a return value i should return what? Im not good at perl so, any tiny help will be appreciated.

I am planning to make smthing like this but i am really not sure if it works or not:

sub imapLogin { my $host = shift; my $account = shift; my $password = shift; my $server = shift;

# open a connection to the IMAP server if (! ($server = new Net::IMAP::Simple($host))) { return "cannot connect IMAP server"; }

# login, if success return 1 (true?) and 0 (false?) if ($server->login( $account, $password )) { return RLM_MODULE_OK; } else { return RLM_MODULE_REJECT; } }

- List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html

--

Peter Nixon http://peternixon.net/

- List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html

-- Peter Nixon http://peternixon.net/