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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
<?php
/**
* prefs.php
*
* This contains functions for filebased user prefs locations
*
* @copyright 1999-2012 The SquirrelMail Project Team
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
* @version $Id: prefs.php 14248 2012-01-02 00:18:17Z pdontthink $
* @package squirrelmail
* @subpackage prefs
*/
/** Include global.php */
require_once(SM_PATH . 'functions/global.php');
require_once(SM_PATH . 'functions/plugin.php');
/** include this for error messages */
include_once(SM_PATH . 'functions/display_messages.php');
sqgetGlobalVar('prefs_cache', $prefs_cache, SQ_SESSION );
sqgetGlobalVar('prefs_are_cached', $prefs_are_cached, SQ_SESSION );
$rg = ini_get('register_globals');
if ( !sqsession_is_registered('prefs_are_cached') ||
!isset($prefs_cache) ||
!is_array($prefs_cache)
) {
$prefs_are_cached = false;
$prefs_cache = array();
}
$prefs_backend = do_hook_function('prefs_backend');
if (isset($prefs_backend) && !empty($prefs_backend) && file_exists(SM_PATH . $prefs_backend)) {
require_once(SM_PATH . $prefs_backend);
} elseif (isset($prefs_dsn) && !empty($prefs_dsn)) {
require_once(SM_PATH . 'functions/db_prefs.php');
} else {
require_once(SM_PATH . 'functions/file_prefs.php');
}
/* Hashing functions */
/**
* Given a username and datafilename, this will return the path to the
* hashed location of that datafile.
*
* @param string username the username of the current user
* @param string dir the squirrelmail datadir
* @param string datafile the name of the file to open
* @param bool hash_seach default true
* @return string the hashed location of datafile
*/
function getHashedFile($username, $dir, $datafile, $hash_search = true) {
global $dir_hash_level;
/* Remove trailing slash from $dir if found */
if (substr($dir, -1) == '/') {
$dir = substr($dir, 0, strlen($dir) - 1);
}
/* Compute the hash for this user and extract the hash directories. */
$hash_dirs = computeHashDirs($username);
/* First, get and make sure the full hash directory exists. */
$real_hash_dir = getHashedDir($username, $dir, $hash_dirs);
/* Set the value of our real data file, after we've removed unwanted characters. */
$datafile = str_replace('/', '_', $datafile);
$result = "$real_hash_dir/$datafile";
/* Check for this file in the real hash directory. */
if ($hash_search && !@file_exists($result)) {
/* First check the base directory, the most common location. */
if (@file_exists("$dir/$datafile")) {
rename("$dir/$datafile", $result);
/* Then check the full range of possible hash directories. */
} else {
$check_hash_dir = $dir;
for ($h = 0; $h < 4; ++$h) {
$check_hash_dir .= '/' . $hash_dirs[$h];
if (@is_readable("$check_hash_dir/$datafile")) {
rename("$check_hash_dir/$datafile", $result);
break;
}
}
}
}
/* Return the full hashed datafile path. */
return ($result);
}
/**
* Helper function for getHashedFile(), given a username returns
* the hashed dir for that username.
*
* NOTE that the hashed dir will be created if it doesn't
* already exist.
*
* @param string username the username of the current user
* @param string dir the squirrelmail datadir
* @param string hash_dirs default ''
* @return the path to the hash dir for username
*/
function getHashedDir($username, $dir, $hash_dirs = '') {
global $dir_hash_level;
/* Remove trailing slash from $dir if found */
if (substr($dir, -1) == '/') {
$dir = substr($dir, 0, strlen($dir) - 1);
}
/* If necessary, populate the hash dir variable. */
if ($hash_dirs == '') {
$hash_dirs = computeHashDirs($username);
}
/* Make sure the full hash directory exists. */
$real_hash_dir = $dir;
for ($h = 0; $h < $dir_hash_level; ++$h) {
$real_hash_dir .= '/' . $hash_dirs[$h];
if (!@is_dir($real_hash_dir)) {
if (!@mkdir($real_hash_dir, 0770)) {
echo sprintf(_("Error creating directory %s."), $real_hash_dir) . '<br />' .
_("Could not create hashed directory structure!") . "<br />\n" .
_("Please contact your system administrator and report this error.") . "<br />\n";
exit;
}
}
}
/* And return that directory. */
return ($real_hash_dir);
}
/**
* Helper function for getHashDir which does the actual hash calculation.
*
* @param string username the username to calculate the hash dir for
* @return array a list of hash dirs for this username
*/
function computeHashDirs($username) {
/* Compute the hash for this user and extract the hash directories. */
/* Note that the crc32() function result will be different on 32 and */
/* 64 bit systems, thus the hack below. */
$crc = crc32($username);
if ($crc & 0x80000000) {
$crc ^= 0xffffffff;
$crc += 1;
}
$hash = base_convert($crc, 10, 16);
$hash_dirs = array();
for ($h = 0; $h < 4; ++ $h) {
$hash_dirs[] = substr($hash, $h, 1);
}
/* Return our array of hash directories. */
return ($hash_dirs);
}
|
