docman2/htusers/file.php

<?

/*
        Document manager handling for .htusers file

        This file is included early in docman.php and it should return:
        $gblUserName    descriptive username
        $secHash        md5 hash of joint login and password
        $gblEmail       e-mail address of user

        This module can use any back magic to find who the user
        is, but I suggest $PHP_AUTH_USER and $PHP_AUTH_PW
*/

        $htusers_file="$fsRealmDir/$realm.htusers";
        if (! file_exists($htusers_file)) {
                Error("Can't find users file!","Please create users file <tt>$htusers_file</tt> by hand or using <tt>adduser.pl</tt> script! There is example in <tt>$gblIncDir/realm/localhost.htusers.dist</tt>.");
        }
        $htusers=fopen($htusers_file,"r");
        while($user = fgetcsv($htusers,255,":")) {
                if ($user[0] == $GLOBALS[gblLogin]) {
                        $gblUserName=$user[1];
                        $secHash=$user[2];
                        if (substr($secHash,0,5) == "auth_" && file_exists("$gblIncDir/$secHash.php")) {
                                include_once("$gblIncDir/$secHash.php");
                                if ($secHash($user)) {
                                        $secHash=md5($GLOBALS[gblLogin].$GLOBALS[gblPasswd]);
                                } else {
                                        $secHash="error".md5($GLOBALS[gblLogin].$GLOBALS[gblPasswd]);
                                }
                        }
                        $gblEmail=$user[3];
                        continue ;
                }
        }
        fclose($htusers);

?>
1	<?
2
3	/*
4	Document manager handling for .htusers file
5
6	This file is included early in docman.php and it should return:
7	$gblUserName descriptive username
8	$secHash md5 hash of joint login and password
9	$gblEmail e-mail address of user
10
11	This module can use any back magic to find who the user
12	is, but I suggest $PHP_AUTH_USER and $PHP_AUTH_PW
13	*/
14
15	$htusers_file="$fsRealmDir/$realm.htusers";
16	if (! file_exists($htusers_file)) {
17	Error("Can't find users file!","Please create users file <tt>$htusers_file</tt> by hand or using <tt>adduser.pl</tt> script! There is example in <tt>$gblIncDir/realm/localhost.htusers.dist</tt>.");
18	}
19	$htusers=fopen($htusers_file,"r");
20	while($user = fgetcsv($htusers,255,":")) {
21	if ($user[0] == $GLOBALS[gblLogin]) {
22	$gblUserName=$user[1];
23	$secHash=$user[2];
24	if (substr($secHash,0,5) == "auth_" && file_exists("$gblIncDir/$secHash.php")) {
25	include_once("$gblIncDir/$secHash.php");
26	if ($secHash($user)) {
27	$secHash=md5($GLOBALS[gblLogin].$GLOBALS[gblPasswd]);
28	} else {
29	$secHash="error".md5($GLOBALS[gblLogin].$GLOBALS[gblPasswd]);
30	}
31	}
32	$gblEmail=$user[3];
33	continue ;
34	}
35	}
36	fclose($htusers);
37
38	?>