parent
00440abad4
commit
17757a2bc1
@ -1,40 +1,47 @@ |
||||
<?php |
||||
/** |
||||
* Automatic cleanup procedure |
||||
* Automatic cleanup procedure. Cleans the archive directory of anything |
||||
* older than 7 days |
||||
* @package chamilo.cron |
||||
* @author Yannick Warnier <yannick.warnier@beeznest.com> |
||||
*/ |
||||
/** |
||||
* Initialization |
||||
*/ |
||||
if (php_sapi_name() != 'cli') { exit; } //do not run from browser |
||||
if (php_sapi_name() != 'cli') { |
||||
exit; //do not run from browser |
||||
} |
||||
$dir = dirname(__FILE__); |
||||
$a_dir = realpath($dir.'/../../archive/'); |
||||
$list = scandir($a_dir); |
||||
// calculate 7 days |
||||
$t = time()-(86400*7); |
||||
foreach($list as $item) { |
||||
if (substr($item,0,1) == '.') { continue; } |
||||
$stat = @stat($a_dir.'/'.$item); |
||||
if ($stat === false) { error_log('Cron task cannot stat '.$a_dir.'/'.$item); continue; } |
||||
if ($stat['mtime'] > $t) { //if the file is older than one week, delete |
||||
recursive_delete($a_dir.'/'.$item); |
||||
} |
||||
foreach ($list as $item) { |
||||
if (substr($item,0,1) == '.') { |
||||
continue; |
||||
} |
||||
$stat = @stat($a_dir.'/'.$item); |
||||
if ($stat === false) { |
||||
error_log('Cron task cannot stat '.$a_dir.'/'.$item); |
||||
continue; |
||||
} |
||||
if ($stat['mtime'] > $t) { //if the file is older than one week, delete |
||||
recursive_delete($a_dir.'/'.$item); |
||||
} |
||||
} |
||||
|
||||
/** |
||||
* Delete a file or recursively delete a directory |
||||
* |
||||
* @param string $str Path to file or directory |
||||
*/ |
||||
function recursive_delete($str){ |
||||
if(is_file($str)){ |
||||
return @unlink($str); |
||||
} |
||||
elseif(is_dir($str)){ |
||||
$scan = glob(rtrim($str,'/').'/*'); |
||||
foreach($scan as $index=>$path){ |
||||
recursive_delete($path); |
||||
} |
||||
return @rmdir($str); |
||||
} |
||||
if (is_file($str)) { |
||||
return @unlink($str); |
||||
} elseif (is_dir($str)) { |
||||
$scan = glob(rtrim($str,'/').'/*'); |
||||
foreach ($scan as $index=>$path) { |
||||
recursive_delete($path); |
||||
} |
||||
return @rmdir($str); |
||||
} |
||||
} |
||||
|
||||
Loading…
Reference in new issue