File: lib.php

package info (click to toggle)
moodle 1.6.3-2%2Betch3
  • links: PTS
  • area: main
  • in suites: etch
  • size: 37,172 kB
  • ctags: 51,688
  • sloc: php: 231,916; sql: 5,631; xml: 2,688; sh: 1,185; perl: 638; makefile: 48; pascal: 36
file content (47 lines) | stat: -rw-r--r-- 1,269 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
<?php  // $Id: lib.php,v 1.11 2004/09/12 01:05:29 gustav_delius Exp $
       // Authentication by looking up an IMAP server

function auth_user_login ($username, $password) {
// Returns true if the username and password work
// and false if they are wrong or don't exist.

    global $CFG;

    $hosts = split(';', $CFG->auth_imaphost);   // Could be multiple hosts

    foreach ($hosts as $host) {                 // Try each host in turn

        $host = trim($host);

        switch ($CFG->auth_imaptype) {
            case "imapssl":
                $host = '{'.$host.":$CFG->auth_imapport/imap/ssl}";
            break;
    
            case "imapcert":
                $host = '{'.$host.":$CFG->auth_imapport/imap/ssl/novalidate-cert}";
            break;
    
            case "imaptls":
                $host = '{'.$host.":$CFG->auth_imapport/imap/notls}";
            break;
    
            default:
                $host = '{'.$host.":$CFG->auth_imapport}";
        }

        error_reporting(0);
        $connection = imap_open($host, $username, $password, OP_HALFOPEN);
        error_reporting($CFG->debug);   

        if ($connection) {
            imap_close($connection);
            return true;
        }
    }

    return false;  // No match
}


?>