From 65e237109c063eeea4b94ba5d1b74a56446cf531 Mon Sep 17 00:00:00 2001
From: Yannick Warnier <yannick.warnier@beeznest.com>
Date: Mon, 2 Aug 2010 01:45:09 -0500
Subject: [PATCH] added default cronnable cleanup script (cleans the archive
 director after a week)

---
 main/cron/cleanup.php | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 main/cron/cleanup.php

diff --git a/main/cron/cleanup.php b/main/cron/cleanup.php
new file mode 100644
index 0000000000..2f445639c8
--- /dev/null
+++ b/main/cron/cleanup.php
@@ -0,0 +1,32 @@
+<?php
+if (php_sapi_name() != 'cli') { exit; } //do not run from browser
+$dir = dirname(__FILE__);
+$a_dir = realpath($dir.'/../../archive/');
+$list = scandir($a_dir);
+$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
+		recursiveDelete($a_dir.'/'.$item);
+	}
+}
+
+/**
+ * Delete a file or recursively delete a directory
+ *
+ * @param string $str Path to file or directory
+ */
+function recursiveDelete($str){
+	if(is_file($str)){
+		return @unlink($str);
+	}
+	elseif(is_dir($str)){
+		$scan = glob(rtrim($str,'/').'/*');
+		foreach($scan as $index=>$path){
+			recursiveDelete($path);
+		}
+		return @rmdir($str);
+	}
+}
\ No newline at end of file