[Peter Nixon]

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/