import of scuttle 0.7.2

git-svn-id: https://semanticscuttle.svn.sourceforge.net/svnroot/semanticscuttle/trunk@1 b3834d28-1941-0410-a4f8-b48e95affb8f

1 files changed, 38 insertions, 0 deletions

diff --git a/services/cacheservice.php b/services/cacheservice.php
new file mode 100644
index 0000000..fe66d38
--- /dev/null
+++ b/services/cacheservice.php
@@ -0,0 +1,38 @@
+<?php
+class CacheService {
+    var $basedir;
+    var $fileextension = '.cache';
+
+    function &getInstance() {
+        static $instance;
+        
+        if (!isset($instance))
+            $instance =& new CacheService();
+
+        return $instance;
+    }
+
+    function CacheService() {
+        $this->basedir = $GLOBALS['dir_cache'];    
+    }
+
+    function Start($hash, $time = 300) {
+        $cachefile = $this->basedir .'/'. $hash . $this->fileextension;
+        if (file_exists($cachefile) && time() < filemtime($cachefile) + $time) {
+            @readfile($cachefile);
+            echo "\n<!-- Cached: ". date('r', filemtime($cachefile)) ." -->\n";
+            unset($cachefile);
+            exit;
+        }
+        ob_start("ob_gzhandler");
+    }
+
+    function End($hash) {
+        $cachefile = $this->basedir .'/'. $hash . $this->fileextension;      
+        $handle = fopen($cachefile, 'w');
+        fwrite($handle, ob_get_contents());
+        fclose($handle);
+        ob_flush();
+    }
+}
+?>
\ No newline at end of file