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/ - List info/subscribe/unsubscribe? See http://www.freeradius.org/list/users.html
