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
|
<?php
/**
* Implementation of the Quota API for servers using Maildir++ quota files on
* the local filesystem. Currently only supports storage limit, but should be
* expanded to be configurable to support storage or message limits in the
* configuration array.
*
* Requires the following parameter settings in imp/servers.php:
* 'quota' => array(
* 'driver' => 'maildir',
* 'params' => array(
* 'path' => '/path/to/users/Maildir'
* // TODO: Add config param for storage vs message quota
* )
* );
*
* path -- The path to the user's Maildir directory. You may use the
* two-character sequence "~U" to represent the user's account name,
* and the actual username will be substituted in that location.
* E.g., '/home/~U/Maildir/' or '/var/mail/~U/Maildir/'
*
* $Horde: imp/lib/Quota/maildir.php,v 1.1.2.4 2007/12/20 13:59:29 jan Exp $
*
* See the enclosed file COPYING for license information (GPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/gpl.html.
*
* @author Eric Rostetter
* @package IMP_Quota
*/
class IMP_Quota_Maildir extends IMP_Quota {
/**
* Constructor.
*
* @param array $params Hash containing connection parameters.
*/
function IMP_Quota_Maildir( $params = array() )
{
$this->_params = array(
'path' => ''
);
$this->_params = array_merge( $this->_params, $params );
}
/**
* Returns quota information (used/allocated), in bytes.
*
* @return mixed An associative array.
* 'limit' = Maximum quota allowed
* 'usage' = Currently used portion of quota (in bytes)
* Returns PEAR_Error on failure.
*/
function getQuota()
{
$storage_limit = 0;
$message_limit = 0;
$storage_used = 0;
$message_used = 0;
// Get the full path to the quota file.
$full = $this->_params['path'] . '/maildirsize';
// Substitute the username in the string if needed.
$uname = $_SESSION['imp']['user'];
$full = str_replace('~U', $uname, $full);
// Read in the quota file and parse it, if possible.
if (is_file($full)) {
// Read in maildir quota file.
$lines = file($full);
// Parse the lines.
foreach ($lines as $line_number => $line) {
if ($line_num == 0) {
// First line, quota header.
$line = preg_replace("/[ \t\n\r\0\x0B]/", '', $line);
list($v1, $t1, $v2, $t2) = sscanf($line, '%ld%[CS],%ld%[CS]');
if ($v1 == null || $t1 == null) {
$v1 = 0;
}
if ($v2 == null || $t2 == null) {
$v2 = 0;
}
if ($t1 == 'S') {
$storage_limit = $v1;
}
if ($t1 == 'C') {
$message_limit = $v1;
}
if ($t2 == 'S') {
$storage_limit = $v2;
}
if ($t2 == 'C') {
$message_limit = $v2;
}
} else {
// Any line other than the first line.
// The quota used is the sum of all lines found.
list($storage, $message) = sscanf(trim($line), '%ld %d');
if ($storage != null) {
$storage_used += $storage;
}
if ($message != null) {
$message_used += $message;
}
}
}
return array('usage' => $storage_used, 'limit' => $storage_limit);
}
return PEAR::raiseError(_("Unable to retrieve quota"));
}
}
|
