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
|
<?php
/**
* Class for providing garbage collection for any VFS instance.
*
* $Horde: framework/VFS/VFS/GC.php,v 1.4.12.8 2006/01/01 21:28:42 jan Exp $
*
* Copyright 2003-2006 Michael Slusarz <slusarz@bigworm.colorado.edu>
*
* See the enclosed file COPYING for license information (LGPL). If you
* did not receive this file, see http://www.fsf.org/copyleft/lgpl.html.
*
* @author Michael Slusarz <slusarz@bigworm.colorado.edu>
* @since Horde 3.0
* @package VFS
*/
class VFS_GC {
/**
* Garbage collect files in the VFS storage system.
*
* @param VFS &$vfs The VFS object to perform garbage collection on.
* @param string $path The VFS path to clean.
* @param integer $secs The minimum amount of time (in seconds) required
* before a file is removed.
*/
function gc(&$vfs, $path, $secs = 345600)
{
/* A 1% chance we will run garbage collection during a call. */
if (rand(0, 99) == 0) {
/* Make sure cleaning is done recursively. */
$files = $vfs->listFolder($path, null, true, false, true);
if (!is_a($files, 'PEAR_Error') && is_array($files)) {
$modtime = time() - $secs;
foreach ($files as $val) {
if ($val['date'] < $modtime) {
$vfs->deleteFile($path, $val['name']);
}
}
}
}
}
}
|
