Mercurial > SimpleWebPresenter

annotate FileCacheSet.inc @ 84:3a1e20a5b67a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Branc merge.
author Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
date Mon, 15 Oct 2012 16:52:50 +0200
parents 1d5166aba2c5
children aafc23919e79
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
1 <?php
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
2 $baseDir = dirname(__FILE__);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
3
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
4 include_once 'Logger.inc';
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
5 $cache = ScriptIncludeCache::instance(__FILE__);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
6 $cache->cache_time("${baseDir}/Logger.inc");
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
7
70
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
8 /**
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
9 * Caches a set of file with timestamps
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
10 */
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
11 class FileCacheSet {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
12 private $newest = 0;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
13 private $files = array();
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
14 private $parentCaches = array();
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
15
70
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
16 /**
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
17 * Constructs a FileCacheSet object
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
18 *
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
19 * @param $parent optional linked parent cache to sync with
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
20 */
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
21 protected function __construct($parent = null) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
22 if ($parent) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
23 $this->addParent($parent);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
24 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
25 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
26
70
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
27 /**
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
28 * Links up a parent cache
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
29 *
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
30 * @param $parent cache we should sync with
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
31 */
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
32 protected function addParent($parent)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
33 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
34 array_push($this->parentCaches, $parent);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
35 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
36
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
37 /**
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
38 * List a set of files which contributes to this pages cacheset.
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
39 *
74
1d5166aba2c5 Documentation fixes.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 70
diff changeset
40 * @param $humanReadable If the timestamp should be human readable.
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
41 *
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
42 * @return an associative array of file, and timestamp
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
43 */
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
44 function cacheSet($humanReadable = False)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
45 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
46 $retVal = array();
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
47 foreach ($this->parentCaches as $parent) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
48 $retVal = array_merge($retVal, $parent->cacheSet($humanReadable));
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
49 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
50 foreach($this->files as $file) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
51 $mtime = filemtime($file);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
52 if ($humanReadable)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
53 $mtime = gmdate('D, d M Y H:i:s', $mtime) . ' GMT';
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
54
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
55 $retVal[$file] = $mtime;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
56 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
57 return $retVal;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
58 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
59
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
60 /**
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
61 * Include a file in the cacheset
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
62 *
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
63 * @param $path the path of the file
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
64 */
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
65 function cache_time($path)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
66 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
67 if (!file_exists($path)) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
68 Logger::warn("${path} does not exist");
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
69 errorPage("Resource is not available");
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
70 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
71
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
72 array_push($this->files, $path);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
73 $mtime = filemtime($path);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
74 if ($mtime > $this->newest) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
75 $this->newest = $mtime;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
76 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
77 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
78
70
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
79 /**
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
80 * Find the newest member of the combined cacheset
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
81 *
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
82 * @return timestamp of newest member
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
83 */
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
84 function getNewest()
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
85 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
86 $newest = 0;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
87 foreach ($this->parentCaches as $parent) {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
88 $newest = max($newest, $parent->getNewest());
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
89 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
90 $newest = max($newest, $this->newest);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
91 return $newest;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
92 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
93 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
94
70
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
95 /**
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
96 * Singleton class, keeps track of all scriptfile includes
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
97 *
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
98 * This class is typically used as a parent class of another cache
62b9d7a35658 Fix documentation regressions.
Tom Fredrik Blenning Klaussen <bfg@blenning.no>
parents: 69
diff changeset
99 */
69
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
100 class ScriptIncludeCache extends FileCacheSet
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
101 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
102 private static $myInstance = 0;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
103
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
104 protected function __construct($filename = False)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
105 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
106 parent::__construct();
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
107 if ($filename)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
108 $this->cache_time($filename);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
109 $this->cache_time(__FILE__);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
110 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
111
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
112 /**
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
113 * Generates a singleton instance of this CacheTimeCheck
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
114 *
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
115 * @param $filename an optional file to include in the cacheset
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
116 *
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
117 * @return a CacheTimeCheck object
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
118 */
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
119 function instance($filename = False)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
120 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
121 if (! self::$myInstance)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
122 self::$myInstance = new self($filename);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
123 elseif ($filename)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
124 self::$myInstance->cache_time($filename);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
125 return self::$myInstance;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
126 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
127
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
128 /**
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
129 * Convenience function to include a file, and add it to the cacheset.
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
130 *
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
131 * @param $path path of the file
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
132 * @param $basedir a directory to prepend to the path
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
133 */
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
134 function includeOnce($path, $basedir = false)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
135 {
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
136 if ($basedir)
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
137 $path = $basedir . "/" . $path;
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
138 $this->cache_time($path);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
139 include_once($path);
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
140 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
141 }
dd4ddedca4c5 Add convenience header ScriptIncludeCache
Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
parents:
diff changeset
142 ?>