File: pam.php

package info (click to toggle)
roundcube 0.7.2-9%2Bdeb7u2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 13,080 kB
  • sloc: php: 56,554; pascal: 3,416; sql: 1,502; sh: 1,009; xml: 806; makefile: 52; ansic: 32; python: 21
file content (41 lines) | stat: -rw-r--r-- 985 bytes parent folder | download
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
<?php

/**
 * PAM Password Driver
 *
 * @version 1.0
 * @author Aleksander Machniak
 */
 
function password_save($currpass, $newpass)
{
    $user = $_SESSION['username'];

    if (extension_loaded('pam')) {
        if (pam_auth($user, $currpass, $error, false)) {
            if (pam_chpass($user, $currpass, $newpass)) {
                return PASSWORD_SUCCESS;
            }
        }
        else {
            raise_error(array(
                'code' => 600,
                'type' => 'php',
                'file' => __FILE__, 'line' => __LINE__,
                'message' => "Password plugin: PAM authentication failed for user $user: $error"
                ), true, false);
        }
    }
    else {
        raise_error(array(
            'code' => 600,
            'type' => 'php',
            'file' => __FILE__, 'line' => __LINE__,
            'message' => "Password plugin: PECL-PAM module not loaded"
            ), true, false);
    }

    return PASSWORD_ERROR;
}

?>